?? importbase.dfm
字號:
inherited frmImportBase: TfrmImportBase
Left = 296
Top = 146
Width = 602
Caption = #21333#25454#24341#20837#31383#20307#30340#22522#31867
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 166
Width = 594
Height = 3
Cursor = crVSplit
Align = alTop
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 594
Height = 38
AutoSize = True
ButtonHeight = 36
ButtonWidth = 33
Caption = 'ToolBar1'
Flat = True
Images = GBKPFrmStockMain.ToolButtonImages
ShowCaptions = True
TabOrder = 0
object tbtfirst: TToolButton
Left = 0
Top = 0
Action = acFirst
end
object tbtprior: TToolButton
Left = 33
Top = 0
Action = acPrior
end
object tbtNext: TToolButton
Left = 66
Top = 0
Action = acNext
end
object tbtLast: TToolButton
Left = 99
Top = 0
Action = acLast
end
object ToolButton2: TToolButton
Left = 132
Top = 0
Width = 8
Caption = 'ToolButton2'
ImageIndex = 0
Style = tbsDivider
end
object tbtImport: TToolButton
Left = 140
Top = 0
Action = acImport
end
object ToolButton1: TToolButton
Left = 173
Top = 0
Width = 11
Caption = 'ToolButton1'
ImageIndex = 0
Style = tbsDivider
end
object tbtExit: TToolButton
Left = 184
Top = 0
Action = acExit
end
end
object wwDGMaster: TwwDBGrid
Left = 0
Top = 38
Width = 594
Height = 128
Selected.Strings = (
'fNO'#9'17'#9#21512#21516#21495
'sCustomerCode'#9'10'#9#23458#25143#32534#21495
'sCustomerName'#9'20'#9#23458#25143#21517#31216
'fDate'#9'12'#9#31614#23450#26085#26399
'fDeliveryDate'#9'12'#9#20132#20184#26085#26399
'fEarnest'#9'11'#9#23450#37329'(%)'
'fBalanceMethod'#9'50'#9#32467#31639#26041#24335)
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alTop
DataSource = dsMaster
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
ReadOnly = True
TabOrder = 1
TitleAlignment = taLeftJustify
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
end
object wwDGDetail: TwwDBGrid
Left = 0
Top = 169
Width = 594
Height = 179
Selected.Strings = (
'sCode'#9'19'#9#20135#21697#20195#30721
'sName'#9'36'#9#21517#31216
'fUnitPrice'#9'11'#9#21333#20215
'fQty'#9'11'#9#25968#37327
'rSumPrice'#9'10'#9#37329#39069)
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
Align = alClient
DataSource = dsDetail
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
ReadOnly = True
TabOrder = 2
TitleAlignment = taLeftJustify
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
end
object ALToolbar: TActionList
Images = GBKPFrmStockMain.ToolButtonImages
Left = 224
Top = 16
object acImport: TAction
Caption = #24341#20837
ImageIndex = 23
end
object acFirst: TAction
Caption = #39318#26465
ImageIndex = 8
OnExecute = acFirstExecute
end
object acPrior: TAction
Caption = #19978#26465
ImageIndex = 9
OnExecute = acPriorExecute
end
object acNext: TAction
Caption = #19979#26465
ImageIndex = 10
OnExecute = acNextExecute
end
object acLast: TAction
Caption = #26410#26465
ImageIndex = 11
OnExecute = acLastExecute
end
object acExit: TAction
Caption = #20851#38381
ImageIndex = 20
OnExecute = acExitExecute
end
end
object QMaster: TADOQuery
LockType = ltReadOnly
Parameters = <>
Left = 408
Top = 80
end
object QDetail: TADOQuery
LockType = ltReadOnly
DataSource = dsMaster
Parameters = <>
Left = 408
Top = 192
end
object dsMaster: TDataSource
DataSet = QMaster
OnDataChange = dsMasterDataChange
Left = 424
Top = 96
end
object dsDetail: TDataSource
DataSet = QDetail
Left = 424
Top = 208
end
object QProducts: TADOQuery
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select fID,fCode,fName,fSpec,fColor,fUnitsName From tProduct')
Left = 88
Top = 200
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -