这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
源代码在线查看： sys910_03.dfm.svn-base
object Sys910_03Form: TSys910_03Form
Left = 192
Top = 107
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #21457#36865#26102#38388
ClientHeight = 151
ClientWidth = 385
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Bevel1: TBevel
Left = 8
Top = 8
Width = 369
Height = 105
Shape = bsFrame
end
object lblType: TLabel
Left = 24
Top = 72
Width = 48
Height = 12
Caption = #21457#36865#21608#26399
end
object lblTime: TLabel
Left = 184
Top = 72
Width = 48
Height = 12
Caption = #21457#36865#26102#38388
end
object lblUser: TLabel
Left = 24
Top = 40
Width = 48
Height = 12
Caption = #29992#25143#21517#31216
end
object cbTime: TComboBox
Left = 240
Top = 64
Width = 121
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
Visible = False
end
object cbType: TComboBox
Left = 80
Top = 64
Width = 89
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 1
Text = #21363#26102
OnChange = cbTypeChange
Items.Strings = (
#21363#26102
#27599#22825
#27599#21608
#27599#26376)
end
object bbtnOk: TBitBtn
Left = 208
Top = 120
Width = 75
Height = 25
Caption = #30830#23450'(&O)'
TabOrder = 4
OnClick = bbtnOkClick
end
object bbtnExit: TBitBtn
Left = 288
Top = 120
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 5
OnClick = bbtnExitClick
end
object edtTime: TwwDBEdit
Left = 240
Top = 64
Width = 121
Height = 20
Color = clBtnFace
Picture.PictureMask = '{0,1,2}{0,1,2,3}:{0,1,2,3,4,5}#'
TabOrder = 2
UnboundDataType = wwEdtTime
WantReturns = False
WordWrap = False
end
object edtUser: TDBEdit
Left = 80
Top = 32
Width = 281
Height = 20
Color = clBtnFace
DataField = 'FUserName'
DataSource = Sys910_02Form.dsSys500A
Enabled = False
TabOrder = 0
end
end
