一个用Delphi开发的ERP软件
源代码在线查看： rab150_01.dfm.svn-base
inherited Rab150_01Form: TRab150_01Form
Left = 169
Top = 90
Width = 618
Height = 428
HelpContext = 54
Caption = #23601#39184#36164#26009#32500#25252
PixelsPerInch = 96
TextHeight = 12
inherited CoolBar1: TCoolBar
Width = 610
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 606
end>
inherited ToolBar2: TToolBar
Width = 593
end
end
inherited Panel1: TPanel
Width = 610
inherited Image1: TImage
Width = 606
end
end
inherited PageControl1: TPageControl
Width = 610
Height = 321
inherited TabSheet1: TTabSheet
inherited ScrollBox2: TScrollBox
Width = 602
Height = 291
inherited dxDBGrid1: TdxDBGrid
Width = 598
Height = 287
Filter.Criteria = {00000000}
object dxDBGrid1H150_002: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 71
BandIndex = 0
RowIndex = 0
FieldName = 'H150_002'
end
object dxDBGrid1H150_003: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 94
BandIndex = 0
RowIndex = 0
FieldName = 'H150_003'
end
object dxDBGrid1R150_002: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 56
BandIndex = 0
RowIndex = 0
FieldName = 'R150_002'
end
object dxDBGrid1R150_003: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R150_003'
end
object dxDBGrid1R150_004: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 91
BandIndex = 0
RowIndex = 0
FieldName = 'R150_004'
end
object dxDBGrid1R150_005: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 94
BandIndex = 0
RowIndex = 0
FieldName = 'R150_005'
end
object dxDBGrid1R150_006: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R150_006'
end
object dxDBGrid1R150_007: TdxDBGridMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
BandIndex = 0
RowIndex = 0
FieldName = 'R150_007'
end
object dxDBGrid1R150_008: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 184
BandIndex = 0
RowIndex = 0
FieldName = 'R150_008'
end
end
end
end
inherited TabSheet2: TTabSheet
inherited ScrollBox1: TScrollBox
Width = 602
Height = 291
object Label1: TLabel
Tag = 1
Left = 120
Top = 88
Width = 24
Height = 12
Caption = #39184#21035
end
object Label2: TLabel
Tag = 1
Left = 96
Top = 152
Width = 48
Height = 12
Caption = #23601#39184#25968#37327
FocusControl = DBEdit2
end
object Label3: TLabel
Tag = 1
Left = 96
Top = 120
Width = 48
Height = 12
Caption = #36215#22987#26085#26399
end
object Label4: TLabel
Tag = 1
Left = 328
Top = 120
Width = 48
Height = 12
Caption = #32467#26463#26085#26399
end
object Label5: TLabel
Tag = 1
Left = 360
Top = 152
Width = 24
Height = 12
Caption = #21333#20215
FocusControl = DBEdit5
end
object Label6: TLabel
Tag = 1
Left = 96
Top = 184
Width = 48
Height = 12
Caption = #37329#39069#23567#35745
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 120
Top = 216
Width = 24
Height = 12
Caption = #22791#27880
FocusControl = DBEdit7
end
object Label8: TLabel
Tag = 1
Left = 96
Top = 56
Width = 48
Height = 12
Caption = #21592#24037#32534#21495
end
object SpeedButton1: TSpeedButton
Left = 274
Top = 48
Width = 21
Height = 20
Flat = True
Glyph.Data = {
F6060000424DF606000000000000360000002800000018000000180000000100
180000000000C006000000000000000000000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
00FFFFFF80808080808000000000000000000000000000000000000000000000
0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
OnClick = SpeedButton1Click
end
object DBEdit2: TDBEdit
Left = 152
Top = 144
Width = 121
Height = 20
DataField = 'R150_003'
DataSource = DataSource1
TabOrder = 3
OnExit = DBEdit2Exit
OnKeyPress = DBEdit2KeyPress
end
object DBEdit5: TDBEdit
Left = 392
Top = 144
Width = 121
Height = 20
DataField = 'R150_006'
DataSource = DataSource1
TabOrder = 4
OnExit = DBEdit2Exit
OnKeyPress = DBEdit2KeyPress
end
object DBEdit6: TDBEdit
Left = 152
Top = 176
Width = 121
Height = 20
Color = clWhite
DataField = 'R150_007'
DataSource = DataSource1
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 152
Top = 208
Width = 361
Height = 20
DataField = 'R150_008'
DataSource = DataSource1
TabOrder = 6
end
object wwDBDateTimePicker1: TwwDBDateTimePicker
Left = 152
Top = 112
Width = 121
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 = 'R150_004'
DataSource = DataSource1
Epoch = 1950
ShowButton = True
TabOrder = 1
end
object wwDBDateTimePicker2: TwwDBDateTimePicker
Left = 392
Top = 112
Width = 121
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 = 'R150_005'
DataSource = DataSource1
Epoch = 1950
ShowButton = True
TabOrder = 2
end
object DBEdit1: TDBEdit
Left = 304
Top = 48
Width = 209
Height = 20
DataField = 'H150_003'
DataSource = DataSource1
Enabled = False
TabOrder = 7
end
object ComboBox1: TComboBox
Left = 152
Top = 80
Width = 121
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
Items.Strings = (
'1='#26089#39184
'2='#20013#39184
'3='#26202#39184
'4='#22812#39184)
end
object Edit1: TEdit
Left = 152
Top = 48
Width = 121
Height = 20
TabOrder = 8
OnExit = Edit1Exit
OnKeyDown = Edit1KeyDown
end
end
end
end
inherited ADOQuery1: TADOQuery
CursorType = ctStatic
OnCalcFields = ADOQuery1CalcFields
SQL.Strings = (
'select * from RAB150')
object ADOQuery1R150_001: TIntegerField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'R150_001'
Visible = False
end
object ADOQuery1R150_002: TSmallintField
DisplayLabel = #39184#21035
FieldName = 'R150_002'
OnGetText = ADOQuery1R150_002GetText
end
object ADOQuery1R150_003: TIntegerField
DisplayLabel = #23601#39184#25968#37327
FieldName = 'R150_003'
end
object ADOQuery1R150_004: TDateTimeField
DisplayLabel = #36215#22987#26085#26399
FieldName = 'R150_004'
end
object ADOQuery1R150_005: TDateTimeField
DisplayLabel = #32467#26463#26085#26399
FieldName = 'R150_005'
end
object ADOQuery1R150_006: TFloatField
DisplayLabel = #21333#20215
FieldName = 'R150_006'
end
object ADOQuery1R150_007: TFloatField
DisplayLabel = #37329#39069#23567#35745
FieldName = 'R150_007'
end
object ADOQuery1R150_008: TStringField
DisplayLabel = #22791#27880
FieldName = 'R150_008'
Size = 30
end
object ADOQuery1H150_002: TStringField
DisplayLabel = #21592#24037#32534#21495
FieldKind = fkCalculated
FieldName = 'H150_002'
FixedChar = True
Size = 10
Calculated = True
end
object ADOQuery1H150_003: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldKind = fkCalculated
FieldName = 'H150_003'
Calculated = True
end
end
inherited pmGrid: TPopupMenu
Left = 384
Top = 144
end
object qryHrm150: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters =
SQL.Strings = (
'select * from HRM150')
Left = 408
Top = 192
object qryHrm150H150_001: TAutoIncField
DisplayLabel = #30005#33041#32534#21495
FieldName = 'H150_001'
ReadOnly = True
Visible = False
end
object qryHrm150H150_002: TStringField
DisplayLabel = #21592#24037#32534#21495
FieldName = 'H150_002'
FixedChar = True
Size = 10
end
object qryHrm150H150_003: TStringField
DisplayLabel = #21592#24037#22995#21517
FieldName = 'H150_003'
end
end
end
