这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
源代码在线查看： hwsearch.dfm.svn-base
object HwSearchForm: THwSearchForm
Left = 192
Top = 107
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #26597#35810
ClientHeight = 348
ClientWidth = 536
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
ShowHint = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 536
Height = 41
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 14
Width = 42
Height = 12
Caption = #23383#27573'(&F)'
end
object Label2: TLabel
Left = 200
Top = 14
Width = 54
Height = 12
Caption = #27604#36739#31526'(&C)'
end
object Label3: TLabel
Left = 344
Top = 14
Width = 54
Height = 12
Caption = #23383#27573#20540'(&V)'
end
object cbFieldName: TComboBox
Left = 56
Top = 10
Width = 137
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = cbFieldNameChange
end
object cbOperator: TComboBox
Left = 260
Top = 10
Width = 73
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'='
'>'
'>='
' ' ''
'like')
end
object edtFieldValue: TEdit
Left = 404
Top = 10
Width = 125
Height = 20
TabOrder = 2
OnKeyPress = edtFieldValueKeyPress
end
end
object dxDateEdit1: TdxDateEdit
Left = 404
Top = 10
Width = 124
TabOrder = 3
Visible = False
Date = -700000
DateValidation = True
UseEditMask = True
StoredValues = 4
end
object Panel2: TPanel
Left = 0
Top = 41
Width = 121
Height = 307
Align = alLeft
BevelOuter = bvLowered
TabOrder = 1
object bbtnSearch: TBitBtn
Left = 24
Top = 24
Width = 75
Height = 25
Caption = #25191#34892#26597#35810'(&S)'
TabOrder = 0
OnClick = bbtnSearchClick
end
object bbtnAdd: TBitBtn
Left = 24
Top = 72
Width = 75
Height = 25
Caption = #21152#20837#26465#20214'(&A)'
Default = True
TabOrder = 1
OnClick = bbtnAddClick
end
object bbtnDelete: TBitBtn
Left = 24
Top = 120
Width = 75
Height = 25
Caption = #31227#38500#26465#20214'(&D)'
Enabled = False
TabOrder = 2
OnClick = bbtnDeleteClick
end
object bbtnExit: TBitBtn
Left = 24
Top = 256
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 3
OnClick = bbtnExitClick
end
object bbtnDelAll: TBitBtn
Left = 24
Top = 168
Width = 75
Height = 25
Caption = #28165#38500#26465#20214'(&L)'
Enabled = False
TabOrder = 4
OnClick = bbtnDelAllClick
end
end
object DBGrid1: TDBGrid
Left = 121
Top = 41
Width = 415
Height = 307
Align = alClient
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Pitch = fpFixed
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'DisplayLabel'
Title.Alignment = taCenter
Width = 135
Visible = True
end
item
Expanded = False
FieldName = 'Operator'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'FieldValue'
Title.Alignment = taCenter
Width = 173
Visible = True
end>
end
object ADODataSet1: TADODataSet
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FieldName'
DataType = ftString
Size = 20
end
item
Name = 'DisplayLabel'
DataType = ftString
Size = 50
end
item
Name = 'Operator'
DataType = ftString
Size = 10
end
item
Name = 'FieldValue'
DataType = ftString
Size = 50
end>
Parameters =
StoreDefs = True
Left = 176
Top = 120
object ADODataSet1FieldName: TStringField
FieldName = 'FieldName'
end
object ADODataSet1DisplayLabel: TStringField
DisplayLabel = #23383#27573
FieldName = 'DisplayLabel'
Size = 50
end
object ADODataSet1Operator: TStringField
DisplayLabel = #27604#36739#31526
FieldName = 'Operator'
Size = 10
end
object ADODataSet1FieldValue: TStringField
DisplayLabel = #23383#27573#20540
FieldName = 'FieldValue'
Size = 50
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 168
Top = 112
end
end
