一个用Delphi开发的ERP软件
源代码在线查看： csh550_01.dfm.svn-base
inherited Csh550_01Form: TCsh550_01Form
Left = 157
Top = 99
Caption = #26032#24314#24080#25143
PixelsPerInch = 96
TextHeight = 12
inherited PageControl1: TPageControl
inherited TabSheet1: TTabSheet
inherited ScrollBox2: TScrollBox
inherited dxDBGrid1: TdxDBGrid
Filter.Criteria = {00000000}
object dxDBGrid1C550_002: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 236
BandIndex = 0
RowIndex = 0
FieldName = 'C550_002'
end
object dxDBGrid1C550_003: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 214
BandIndex = 0
RowIndex = 0
FieldName = 'C550_003'
end
object dxDBGrid1C550_004: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'C550_004'
end
object dxDBGrid1G100_003: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'G100_003'
end
object dxDBGrid1H150_003: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'H150_003'
end
object dxDBGrid1C550_007: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 112
BandIndex = 0
RowIndex = 0
FieldName = 'C550_007'
end
object dxDBGrid1C550_008: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'C550_008'
end
end
end
end
inherited TabSheet2: TTabSheet
inherited ScrollBox1: TScrollBox
object lblName: TLabel
Tag = 1
Left = 96
Top = 36
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #24080#25143#21517#31216
FocusControl = edtName
end
object lblDesc: TLabel
Left = 96
Top = 68
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #24080#25143#35828#26126
FocusControl = edtDesc
end
object lblType: TLabel
Tag = 1
Left = 96
Top = 100
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #24080#25143#31867#22411
end
object lblCurr: TLabel
Tag = 1
Left = 320
Top = 100
Width = 24
Height = 12
Alignment = taRightJustify
Caption = #24065#21035
end
object lblPerson: TLabel
Left = 108
Top = 132
Width = 36
Height = 12
Alignment = taRightJustify
Caption = #32463#21150#20154
end
object lblDate: TLabel
Tag = 1
Left = 96
Top = 164
Width = 48
Height = 12
Alignment = taRightJustify
Caption = #24314#24080#26085#26399
end
object lblAmount: TLabel
Tag = 1
Left = 320
Top = 164
Width = 24
Height = 12
Alignment = taRightJustify
Caption = #20313#39069
FocusControl = edtAmount
end
object edtName: TDBEdit
Left = 152
Top = 32
Width = 328
Height = 20
DataField = 'C550_002'
DataSource = DataSource1
TabOrder = 0
end
object edtDesc: TDBEdit
Left = 152
Top = 64
Width = 328
Height = 20
DataField = 'C550_003'
DataSource = DataSource1
TabOrder = 1
end
object edtAmount: TDBEdit
Left = 352
Top = 160
Width = 128
Height = 20
DataField = 'C550_008'
DataSource = DataSource1
TabOrder = 6
end
object cbPerson: TDBLookupComboBox
Left = 152
Top = 128
Width = 129
Height = 20
DataField = 'C550_006'
DataSource = DataSource1
KeyField = 'H150_001'
ListField = 'H150_003'
ListSource = dsHrm150
NullValueKey = 46
TabOrder = 4
end
object cbType: TComboBox
Left = 152
Top = 96
Width = 129
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
Items.Strings = (
#29616#37329#24080
#38134#34892#24080)
end
object cbCurr: TDBLookupComboBox
Left = 352
Top = 96
Width = 129
Height = 20
DataField = 'C550_005'
DataSource = DataSource1
KeyField = 'G100_001'
ListField = 'G100_003'
ListSource = dsGld100
NullValueKey = 46
TabOrder = 3
end
object dtpDate: TwwDBDateTimePicker
Left = 152
Top = 160
Width = 129
Height = 20
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
CalendarAttributes.PopupYearOptions.ShowEditYear = True
DataField = 'C550_007'
DataSource = DataSource1
Epoch = 1950
ShowButton = True
TabOrder = 5
end
end
end
end
inherited ADOQuery1: TADOQuery
SQL.Strings = (
'select * from CSH550')
object ADOQuery1C550_001: TAutoIncField
FieldName = 'C550_001'
ReadOnly = True
Visible = False
end
object ADOQuery1C550_002: TStringField
DisplayLabel = #24080#25143#21517#31216
FieldName = 'C550_002'
Size = 50
end
object ADOQuery1C550_003: TStringField
DisplayLabel = #24080#25143#35828#26126
FieldName = 'C550_003'
Size = 50
end
object ADOQuery1C550_004: TSmallintField
DisplayLabel = #24080#25143#31867#22411
FieldName = 'C550_004'
OnGetText = ADOQuery1C550_004GetText
end
object ADOQuery1C550_005: TIntegerField
DisplayLabel = #24065#21035
FieldName = 'C550_005'
Visible = False
end
object ADOQuery1G100_003: TStringField
DisplayLabel = #24065#21035
FieldKind = fkLookup
FieldName = 'G100_003'
LookupDataSet = qryGld100
LookupKeyFields = 'G100_001'
LookupResultField = 'G100_003'
KeyFields = 'C550_005'
Size = 30
Lookup = True
end
object ADOQuery1C550_006: TIntegerField
DisplayLabel = #32463#21150#20154
FieldName = 'C550_006'
Visible = False
end
object ADOQuery1H150_003: TStringField
DisplayLabel = #32463#21150#20154
FieldKind = fkLookup
FieldName = 'H150_003'
LookupDataSet = qryHrm150
LookupKeyFields = 'H150_001'
LookupResultField = 'H150_003'
KeyFields = 'C550_006'
Lookup = True
end
object ADOQuery1C550_007: TDateTimeField
DisplayLabel = #24314#24080#26085#26399
FieldName = 'C550_007'
end
object ADOQuery1C550_008: TFloatField
DisplayLabel = #20313#39069
FieldName = 'C550_008'
end
end
object dsHrm150: TDataSource
DataSet = qryHrm150
Left = 160
Top = 296
end
object qryHrm150: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select H150_001,H150_002,H150_003 from HRM150')
Left = 192
Top = 296
end
object dsGld100: TDataSource
DataSet = qryGld100
Left = 384
Top = 296
end
object qryGld100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from GLD100')
Left = 416
Top = 296
end
end
