一个用Delphi开发的ERP软件
源代码在线查看： cwa510_01.dfm.svn-base
inherited Cwa510_01Form: TCwa510_01Form
Left = 216
Top = 116
HelpContext = 38
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #32771#21220#36164#26009#23548#20837
ClientHeight = 195
ClientWidth = 337
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object Label8: TLabel [0]
Left = 8
Top = 8
Width = 264
Height = 12
Caption = #36825#20010#25805#20316#21487#33021#38656#35201#20960#20998#38047#26102#38388#65292#35831#32784#24515#31561#20505'......'
Transparent = True
WordWrap = True
end
object GroupBox1: TGroupBox [1]
Left = 8
Top = 32
Width = 321
Height = 113
Caption = #25968#25454#35835#21462#26684#24335#65306
TabOrder = 0
object lblLength: TLabel
Left = 35
Top = 25
Width = 48
Height = 12
Caption = #35835#21462#38271#24230
end
object lblFormat: TLabel
Left = 146
Top = 25
Width = 48
Height = 12
Caption = #35835#21462#26684#24335
end
object lblID: TLabel
Left = 37
Top = 56
Width = 36
Height = 12
Caption = #21345#21495#27573
end
object lblDate: TLabel
Left = 89
Top = 54
Width = 36
Height = 12
Caption = #26085#26399#27573
end
object lblHour: TLabel
Left = 140
Top = 55
Width = 36
Height = 12
Caption = #23567#26102#27573
end
object lblMinute: TLabel
Left = 192
Top = 55
Width = 36
Height = 12
Caption = #20998#38047#27573
end
object lblInOut: TLabel
Left = 244
Top = 54
Width = 36
Height = 12
Caption = #36827#20986#27573
end
object edtLength: TEdit
Left = 93
Top = 22
Width = 41
Height = 20
MaxLength = 2
TabOrder = 0
Text = '0'
OnKeyPress = edtLengthKeyPress
end
object edtFormat: TMaskEdit
Left = 201
Top = 22
Width = 77
Height = 20
EditMask = '9.9.9.9.9;1;_'
MaxLength = 9
TabOrder = 1
Text = '0.0.0.0.0'
end
object edtID: TEdit
Left = 37
Top = 74
Width = 34
Height = 20
MaxLength = 1
TabOrder = 2
Text = '0'
end
object edtDate: TEdit
Left = 89
Top = 74
Width = 34
Height = 20
MaxLength = 1
TabOrder = 3
Text = '0'
end
object edtHour: TEdit
Left = 140
Top = 74
Width = 34
Height = 20
MaxLength = 1
TabOrder = 4
Text = '0'
end
object edtMinute: TEdit
Left = 192
Top = 74
Width = 34
Height = 20
MaxLength = 1
TabOrder = 5
Text = '0'
end
object edtInOut: TEdit
Left = 244
Top = 74
Width = 34
Height = 20
MaxLength = 1
TabOrder = 6
Text = '0'
end
end
object bbtnOk: TBitBtn [2]
Left = 152
Top = 152
Width = 75
Height = 25
Caption = #30830#23450'(&O)'
TabOrder = 1
OnClick = bbtnOkClick
end
object bbtnExit: TBitBtn [3]
Left = 240
Top = 152
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 2
OnClick = bbtnExitClick
end
object ProgressBar1: TProgressBar [4]
Left = 0
Top = 184
Width = 337
Height = 11
Align = alBottom
Min = 0
Max = 100
ParentShowHint = False
Step = 1
ShowHint = False
TabOrder = 3
end
object cbType: TComboBox [5]
Left = 8
Top = 152
Width = 113
Height = 20
Style = csDropDownList
Color = clWhite
ItemHeight = 12
TabOrder = 4
end
object dsCwa510: TDataSource
DataSet = qryCwa510
Left = 24
Top = 152
end
object OpenDialog1: TOpenDialog
Filter = '*.*|*.*'
InitialDir = 'E:\'
Left = 216
Top = 64
end
object qryCwa510: TADOQuery
CacheSize = 1000
Connection = SYSDM.ADOC
Parameters =
SQL.Strings = (
'select * from CWA510 where C510_001=null')
Left = 40
Top = 160
end
end
