一个用Delphi开发的ERP软件
源代码在线查看： cwa100_01.dfm.svn-base
inherited Cwa100_01Form: TCwa100_01Form
Left = 209
Top = 91
Width = 584
Height = 420
HelpContext = 31
Caption = #24037#20316#26085#21382#32500#25252
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object CoolBar1: TCoolBar [0]
Left = 0
Top = 0
Width = 576
Height = 43
AutoSize = True
Bands = <
item
Control = ToolBar2
ImageIndex = -1
MinHeight = 39
Width = 572
end>
object ToolBar2: TToolBar
Left = 9
Top = 0
Width = 559
Height = 39
AutoSize = True
ButtonHeight = 39
ButtonWidth = 31
Caption = 'ToolBar2'
EdgeBorders = []
Flat = True
Images = SYSDM.imgBtn
ShowCaptions = True
TabOrder = 0
object tlbFirst: TToolButton
Left = 0
Top = 0
Action = ActFirst
AutoSize = True
end
object tlbPrior: TToolButton
Left = 35
Top = 0
Action = ActPrior
AutoSize = True
end
object tlbNext: TToolButton
Left = 70
Top = 0
Action = ActNext
AutoSize = True
end
object tlbLast: TToolButton
Left = 105
Top = 0
Action = ActLast
AutoSize = True
end
object ToolButton1: TToolButton
Left = 140
Top = 0
Width = 8
Caption = 'ToolButton1'
ImageIndex = 13
Style = tbsSeparator
end
object tlbLocate: TToolButton
Left = 148
Top = 0
Action = ActLocate
AutoSize = True
end
object tlbSearch: TToolButton
Left = 183
Top = 0
Action = ActSearch
AutoSize = True
end
object tlbPrint: TToolButton
Left = 218
Top = 0
Action = ActPrint
AutoSize = True
DropdownMenu = PopupMenu1
Style = tbsDropDown
end
object ToolButton4: TToolButton
Left = 266
Top = 0
Width = 8
Caption = 'ToolButton4'
ImageIndex = 13
Style = tbsSeparator
end
object tlbSet: TToolButton
Left = 274
Top = 0
Action = ActSet
AutoSize = True
end
object ToolButton3: TToolButton
Left = 309
Top = 0
Width = 8
Caption = 'ToolButton3'
ImageIndex = 15
Style = tbsSeparator
end
object tlbExit: TToolButton
Left = 317
Top = 0
Action = ActExit
AutoSize = True
end
end
end
object Panel1: TPanel [1]
Left = 0
Top = 43
Width = 576
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
DesignSize = (
576
37)
object Image1: TImage
Left = 2
Top = 2
Width = 572
Height = 33
Align = alClient
Stretch = True
end
object Label1: TLabel
Left = 153
Top = 12
Width = 48
Height = 12
Anchors = [akTop, akRight]
Caption = #36215#22987#26085#26399
Transparent = True
end
object Label2: TLabel
Left = 323
Top = 12
Width = 48
Height = 12
Anchors = [akTop, akRight]
Caption = #32467#26463#26085#26399
Transparent = True
end
object SpeedButton1: TSpeedButton
Left = 500
Top = 8
Width = 60
Height = 21
Anchors = [akTop, akRight]
Caption = #30830#23450
Flat = True
OnClick = SpeedButton1Click
end
object wwDBDateTimePicker1: TwwDBDateTimePicker
Left = 212
Top = 9
Width = 97
Height = 20
Anchors = [akTop, akRight]
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
Epoch = 1950
ShowButton = True
TabOrder = 0
OnChange = wwDBDateTimePicker1Change
end
object wwDBDateTimePicker2: TwwDBDateTimePicker
Left = 382
Top = 9
Width = 97
Height = 20
Anchors = [akTop, akRight]
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
Epoch = 1950
ShowButton = True
TabOrder = 1
end
end
object ScrollBox1: TScrollBox [2]
Left = 0
Top = 80
Width = 576
Height = 313
Align = alClient
TabOrder = 2
object dxDBGrid1: TdxDBGrid
Left = 0
Top = 0
Width = 572
Height = 309
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
SummaryGroups =
SummarySeparator = ', '
Align = alClient
BorderStyle = bsNone
TabOrder = 0
DataSource = dsCwa100
Filter.Criteria = {00000000}
HeaderColor = 15262169
HideFocusRect = True
LookAndFeel = lfUltraFlat
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
object dxDBGrid1C100_001: TdxDBGridDateColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 108
BandIndex = 0
RowIndex = 0
FieldName = 'C100_001'
end
object dxDBGrid1C100_002: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 89
BandIndex = 0
RowIndex = 0
FieldName = 'C100_002'
end
object dxDBGrid1C100_003: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 79
BandIndex = 0
RowIndex = 0
FieldName = 'C100_003'
end
object dxDBGrid1C100_004: TdxDBGridColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 184
BandIndex = 0
RowIndex = 0
FieldName = 'C100_004'
end
end
end
object PopupMenu1: TPopupMenu
Left = 400
Top = 8
object mmiPrint: TMenuItem
Action = ActPrint
end
object mmiExport: TMenuItem
Action = ActExport
end
end
object dsCwa100: TDataSource
DataSet = qryCwa100
Left = 24
Top = 176
end
object qryCwa100: TADOQuery
Connection = SYSDM.ADOC
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from CWA100')
Left = 48
Top = 184
object qryCwa100C100_001: TDateTimeField
DisplayLabel = #26085#26399
FieldName = 'C100_001'
end
object qryCwa100C100_002: TSmallintField
DisplayLabel = #31867#22411
FieldName = 'C100_002'
OnGetText = qryCwa100C100_002GetText
end
object qryCwa100C100_003: TSmallintField
DisplayLabel = #26143#26399
FieldName = 'C100_003'
OnGetText = qryCwa100C100_003GetText
end
object qryCwa100C100_004: TStringField
DisplayLabel = #22791#27880
FieldName = 'C100_004'
Size = 30
end
end
object ActionList1: TActionList
Images = SYSDM.imgBtn
Left = 400
Top = 72
object ActFirst: TAction
Caption = #26368#21069
Hint = #31227#21040#31532#19968#26465#35760#24405
ImageIndex = 0
ShortCut = 32838
OnExecute = ActFirstExecute
end
object ActPrior: TAction
Caption = #19978#31227
Hint = #31227#21040#19978#19968#26465#35760#24405
ImageIndex = 1
ShortCut = 32848
OnExecute = ActPriorExecute
end
object ActNext: TAction
Caption = #19979#31227
Hint = #31227#21040#19979#19968#26465#35760#24405
ImageIndex = 2
ShortCut = 32846
OnExecute = ActNextExecute
end
object ActLast: TAction
Caption = #26368#21518
Hint = #31227#21040#26368#21518#19968#26465#35760#24405
ImageIndex = 3
ShortCut = 32844
OnExecute = ActLastExecute
end
object ActLocate: TAction
Caption = #26597#25214
Hint = #24555#36895#23450#20301#35760#24405
ImageIndex = 10
ShortCut = 32847
OnExecute = ActLocateExecute
end
object ActSearch: TAction
Caption = #26597#35810
Hint = #25353#26465#20214#26597#35810#25968#25454
ImageIndex = 11
ShortCut = 32849
OnExecute = ActSearchExecute
end
object ActPrint: TAction
Caption = #25171#21360
Hint = #23558#25968#25454#25171#21360#20986#26469
ImageIndex = 12
ShortCut = 32848
OnExecute = ActPrintExecute
end
object ActExport: TAction
Caption = #23548#20986#21040'Excel'
Hint = #23548#20986#21040'Excel'#25991#20214#20013
ShortCut = 32852
OnExecute = ActExportExecute
end
object ActSet: TAction
Caption = #35774#32622
Hint = #35774#32622#24037#20316#26085#21382
ImageIndex = 17
OnExecute = ActSetExecute
end
object ActExit: TAction
Caption = #36864#20986
Hint = #20851#38381#24403#21069#31383#21475
ImageIndex = 15
ShortCut = 32856
OnExecute = ActExitExecute
end
end
object SaveDialog1: TSaveDialog
Filter = 'Excel'#25991#20214'(*.xls)|*.xls'
Left = 328
Top = 72
end
end
