一个用Delphi开发的ERP软件
源代码在线查看： rab110_01.dfm.svn-base
inherited Rab110_01Form: TRab110_01Form
Left = 98
Top = 78
Width = 638
Height = 464
HelpContext = 52
Caption = #20303#25151#36164#26009#32500#25252
PixelsPerInch = 96
TextHeight = 12
inherited CoolBar1: TCoolBar
Width = 630
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 626
end>
inherited ToolBar2: TToolBar
Width = 613
end
end
inherited Panel1: TPanel
Width = 630
inherited Image1: TImage
Width = 626
end
object Label1: TLabel
Left = 95
Top = 15
Width = 48
Height = 12
Caption = #23487#33293#32534#21495
FocusControl = DBEdit1
Transparent = True
end
object Label2: TLabel
Left = 272
Top = 15
Width = 48
Height = 12
Caption = #23487#33293#35828#26126
FocusControl = DBEdit2
Transparent = True
end
object DBEdit1: TDBEdit
Left = 152
Top = 11
Width = 107
Height = 20
DataField = 'R100_002'
DataSource = DataSource1
Enabled = False
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 330
Top = 10
Width = 195
Height = 20
DataField = 'R100_003'
DataSource = DataSource1
Enabled = False
TabOrder = 1
end
end
inherited PageControl1: TPageControl
Width = 630
Height = 357
inherited TabSheet1: TTabSheet
inherited ScrollBox2: TScrollBox
Width = 622
Height = 327
inherited dxDBGrid1: TdxDBGrid
Width = 618
Height = 323
Filter.Criteria = {00000000}
object dxDBGrid1R110_003: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R110_003'
end
object dxDBGrid1R110_004: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 124
BandIndex = 0
RowIndex = 0
FieldName = 'R110_004'
end
object dxDBGrid1R110_005: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R110_005'
end
object dxDBGrid1R110_006: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R110_006'
end
object dxDBGrid1R110_007: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
OnCustomDrawCell = dxDBGrid1R110_007CustomDrawCell
FieldName = 'R110_007'
end
object dxDBGrid1R110_008: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R110_008'
end
object dxDBGrid1R110_009: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R110_009'
end
object dxDBGrid1R110_010: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 78
BandIndex = 0
RowIndex = 0
FieldName = 'R110_010'
end
end
end
end
inherited TabSheet2: TTabSheet
inherited ScrollBox1: TScrollBox
Width = 622
Height = 327
object Label3: TLabel
Tag = 1
Left = 112
Top = 56
Width = 48
Height = 12
Caption = #20303#25151#32534#21495
FocusControl = DBEdit3
end
object Label4: TLabel
Tag = 1
Left = 112
Top = 88
Width = 48
Height = 12
Caption = #35268#26684#35828#26126
FocusControl = DBEdit4
end
object Label5: TLabel
Tag = 1
Left = 112
Top = 120
Width = 48
Height = 12
Caption = #20303#25151#38754#31215
FocusControl = DBEdit5
end
object Label6: TLabel
Tag = 1
Left = 112
Top = 152
Width = 48
Height = 12
Caption = #21487#20303#20154#25968
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 320
Top = 152
Width = 48
Height = 12
Caption = #24050#20303#20154#25968
FocusControl = DBEdit7
end
object Label8: TLabel
Left = 112
Top = 184
Width = 48
Height = 12
Caption = #25151#38388#36153#29992
FocusControl = DBEdit8
end
object Label9: TLabel
Left = 320
Top = 184
Width = 48
Height = 12
Caption = #20154#22343#36153#29992
FocusControl = DBEdit9
end
object Label10: TLabel
Left = 136
Top = 216
Width = 24
Height = 12
Caption = #22791#27880
FocusControl = DBEdit10
end
object DBEdit3: TDBEdit
Left = 168
Top = 48
Width = 130
Height = 20
DataField = 'R110_003'
DataSource = DataSource2
TabOrder = 0
end
object DBEdit4: TDBEdit
Left = 168
Top = 80
Width = 337
Height = 20
DataField = 'R110_004'
DataSource = DataSource2
TabOrder = 1
end
object DBEdit5: TDBEdit
Left = 168
Top = 112
Width = 130
Height = 20
DataField = 'R110_005'
DataSource = DataSource2
TabOrder = 2
end
object DBEdit6: TDBEdit
Left = 168
Top = 144
Width = 130
Height = 20
DataField = 'R110_006'
DataSource = DataSource2
TabOrder = 3
end
object DBEdit7: TDBEdit
Left = 376
Top = 144
Width = 129
Height = 20
DataField = 'R110_007'
DataSource = DataSource2
Enabled = False
TabOrder = 4
end
object DBEdit8: TDBEdit
Left = 168
Top = 176
Width = 129
Height = 20
DataField = 'R110_008'
DataSource = DataSource2
TabOrder = 5
end
object DBEdit9: TDBEdit
Left = 376
Top = 176
Width = 129
Height = 20
DataField = 'R110_009'
DataSource = DataSource2
TabOrder = 6
end
object DBEdit10: TDBEdit
Left = 168
Top = 208
Width = 337
Height = 20
DataField = 'R110_010'
DataSource = DataSource2
TabOrder = 7
end
end
end
end
inherited pmUISet: TPopupMenu
Left = 584
end
inherited DataSource1: TDataSource
Left = 32
Top = 144
end
inherited ADOQuery1: TADOQuery
CursorType = ctStatic
SQL.Strings = (
'select * from RAB100')
object ADOQuery1R100_001: TAutoIncField
DisplayLabel = #30005#33041#32534#21495
FieldName = 'R100_001'
ReadOnly = True
Visible = False
end
object ADOQuery1R100_002: TStringField
FieldName = 'R100_002'
FixedChar = True
Size = 10
end
object ADOQuery1R100_003: TStringField
FieldName = 'R100_003'
end
end
inherited DataSource2: TDataSource
Left = 96
Top = 144
end
inherited ADOQuery2: TADOQuery
CursorType = ctStatic
DataSource = DataSource1
Parameters = <
item
Name = 'R100_001'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select * from RAB110 where R110_002= :R100_001')
object ADOQuery2R110_001: TAutoIncField
DisplayLabel = #30005#33041#32534#21495
FieldName = 'R110_001'
ReadOnly = True
Visible = False
end
object ADOQuery2R110_002: TIntegerField
DisplayLabel = #23487#33293#32534#21495
FieldName = 'R110_002'
Visible = False
end
object ADOQuery2R110_003: TStringField
DisplayLabel = #20303#25151#32534#21495
FieldName = 'R110_003'
FixedChar = True
Size = 10
end
object ADOQuery2R110_004: TStringField
DisplayLabel = #35268#26684#35828#26126
FieldName = 'R110_004'
end
object ADOQuery2R110_005: TFloatField
DisplayLabel = #20303#25151#38754#31215
FieldName = 'R110_005'
end
object ADOQuery2R110_006: TIntegerField
DisplayLabel = #21487#20303#20154#25968
FieldName = 'R110_006'
end
object ADOQuery2R110_007: TIntegerField
DisplayLabel = #24050#20303#20154#25968
FieldName = 'R110_007'
end
object ADOQuery2R110_008: TFloatField
DisplayLabel = #25151#38388#36153#29992
FieldName = 'R110_008'
end
object ADOQuery2R110_009: TFloatField
DisplayLabel = #20154#22343#36153#29992
FieldName = 'R110_009'
end
object ADOQuery2R110_010: TStringField
DisplayLabel = #22791#27880
FieldName = 'R110_010'
Size = 30
end
end
inherited pmGrid: TPopupMenu
Left = 584
Top = 208
end
end
