📄 inv500_02.dfm.svn-base
字号:
ReadOnly = True
TabOrder = 13
end
object edtOrder: TEdit
Left = 544
Top = 64
Width = 185
Height = 20
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 9
end
object cbType: TComboBox
Left = 544
Top = 40
Width = 185
Height = 20
Style = csDropDownList
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 12
TabOrder = 5
OnChange = cbTypeChange
end
object cbObjTyp: TComboBox
Left = 80
Top = 88
Width = 121
Height = 20
Style = csDropDownList
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 12
ItemIndex = 0
TabOrder = 10
Text = #31354#30333
OnChange = cbObjTypChange
Items.Strings = (
#31354#30333
#23458#25143
#21592#24037
#37096#38376)
end
object edtPost: TEdit
Left = 648
Top = 16
Width = 81
Height = 20
Color = clBtnFace
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 2
end
end
object PageControl1: TPageControl [3]
Left = 8
Top = 264
Width = 753
Height = 209
ActivePage = tsItem
Style = tsFlatButtons
TabIndex = 0
TabOrder = 3
object tsItem: TTabSheet
Caption = #26009#21697#20449#24687
object wwDBGrid1: TwwDBGrid
Tag = 99
Left = 0
Top = 0
Width = 745
Height = 179
ControlType.Strings = (
'FItemID;CustomEdit;edtItem;F'
'FUnitID;CustomEdit;edtUnit;F'
'FLocID;CustomEdit;edtLoc;F')
PictureMasks.Strings = (
'T531_004'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
'T531_005'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
'T531_006'#9'0.00'#9'T'#9'T'
'T531_007'#9'0.00'#9'T'#9'T'
'FFromTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
'FToTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
'FStartTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
'FEndTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T')
Selected.Strings = (
'FItemID'#9'22'#9#20135#21697#32534#21495#9#9
'FItemName'#9'40'#9#20135#21697#21517#31216#9#9
'FItemSpec'#9'40'#9#35268#26684#22411#21495#9#9
'FUnitID'#9'15'#9#21333#20301#32534#21495#9#9
'FUnitName'#9'20'#9#21333#20301#21517#31216#9#9
'FUnitRate'#9'10'#9#21333#20301#36716#25442#9'F'#9
'FLocID'#9'15'#9#24211#20301#32534#21495#9#9
'FLocName'#9'30'#9#24211#20301#21517#31216#9#9
'FOrdQty'#9'15'#9#24212#25910#21457#37327#9#9
'FQty'#9'15'#9#36827#20986#25968#37327#9#9
'FPrice'#9'15'#9#36827#20986#21333#20215#9#9
'FAmount'#9'20'#9#36827#20986#37329#39069#9#9
'FDate'#9'20'#9#29983#20135#26085#26399#9#9
'FLot'#9'20'#9#29983#20135#25209#21495#9#9
'FRemark'#9'40'#9#22791#27880#35828#26126#9#9
'FFromOrder'#9'20'#9#26469#28304#21333#21495#9'F'
'FFromLine'#9'10'#9#26469#28304#34892#21495#9'F')
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
Align = alClient
DataSource = dsInv500B
ImeName = ''
KeyOptions = [dgEnterToTab, dgAllowInsert]
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgShowFooter]
TabOrder = 0
TitleAlignment = taCenter
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Pitch = fpFixed
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
OnColExit = wwDBGrid1ColExit
OnEnter = wwDBGrid1Enter
OnExit = wwDBGrid1Exit
OnUpdateFooter = wwDBGrid1UpdateFooter
FooterColor = clWindow
FooterCellColor = clWindow
end
object edtItem: TwwDBComboDlg
Left = 24
Top = 24
Width = 121
Height = 20
OnCustomDlg = edtItemCustomDlg
ShowButton = True
Style = csDropDown
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 1
WordWrap = False
UnboundDataType = wwDefault
end
object edtUnit: TwwDBComboDlg
Left = 648
Top = 24
Width = 65
Height = 20
OnCustomDlg = edtUnitCustomDlg
ShowButton = True
Style = csDropDown
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 3
WordWrap = False
UnboundDataType = wwDefault
end
object edtLoc: TwwDBComboDlg
Left = 192
Top = 24
Width = 121
Height = 20
OnCustomDlg = edtLocCustomDlg
ShowButton = True
Style = csDropDown
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 2
WordWrap = False
UnboundDataType = wwDefault
end
end
end
inherited pmUISet: TPopupMenu
Left = 8
Top = 224
end
inherited ADOQuery1: TADOQuery
CursorType = ctStatic
OnCalcFields = ADOQuery1CalcFields
SQL.Strings = (
'select A.*,'
' B.*,'
' C.G100_001,C.G100_002,C.G100_003,'
' D.I100_001,D.I100_002,D.I100_003'
'from INV500A A,INV550 B,GLD100 C,INV100 D'
'where I500A_002=I550_001 and I500A_008=G100_001 and I500A_010=I1' +
'00_001'
'order by I500A_001')
object ADOQuery1I500A_001: TWideStringField
DisplayLabel = #36827#20986#21333#21495
FieldName = 'I500A_001'
Size = 30
end
object ADOQuery1I500A_002: TIntegerField
FieldName = 'I500A_002'
Visible = False
end
object ADOQuery1I550_002: TWideStringField
DisplayLabel = #31867#22411#32534#21495
FieldName = 'I550_002'
Size = 10
end
object ADOQuery1I550_003: TWideStringField
DisplayLabel = #31867#22411#21517#31216
FieldName = 'I550_003'
Size = 30
end
object ADOQuery1I500A_003: TWideStringField
DisplayLabel = #25688#35201#35828#26126
FieldName = 'I500A_003'
Size = 60
end
object ADOQuery1I500A_004: TDateTimeField
DisplayLabel = #36827#20986#26085#26399
FieldName = 'I500A_004'
DisplayFormat = 'yyyy-mm-dd'
end
object ADOQuery1I500A_005: TSmallintField
DisplayLabel = #23545#35937#31867#22411
FieldName = 'I500A_005'
OnGetText = ADOQuery1I500A_005GetText
end
object ADOQuery1I500A_006: TIntegerField
FieldName = 'I500A_006'
Visible = False
end
object ADOQuery1FCode: TStringField
DisplayLabel = #23545#35937#32534#21495
FieldKind = fkCalculated
FieldName = 'FCode'
Calculated = True
end
object ADOQuery1FName: TStringField
DisplayLabel = #23545#35937#21517#31216
FieldKind = fkCalculated
FieldName = 'FName'
Size = 60
Calculated = True
end
object ADOQuery1I500A_007: TWideStringField
DisplayLabel = #30456#20851#21333#25454
FieldName = 'I500A_007'
Size = 30
end
object ADOQuery1I500A_008: TIntegerField
FieldName = 'I500A_008'
Visible = False
end
object ADOQuery1G100_002: TWideStringField
DisplayLabel = #24065#21035#32534#21495
FieldName = 'G100_002'
Size = 10
end
object ADOQuery1G100_003: TWideStringField
DisplayLabel = #24065#21035#21517#31216
FieldName = 'G100_003'
Size = 30
end
object ADOQuery1I500A_009: TFloatField
DisplayLabel = #24065#21035#27719#29575
FieldName = 'I500A_009'
end
object ADOQuery1I500A_010: TIntegerField
FieldName = 'I500A_010'
Visible = False
end
object ADOQuery1I100_002: TWideStringField
DisplayLabel = #20179#24211#32534#21495
FieldName = 'I100_002'
end
object ADOQuery1I100_003: TWideStringField
DisplayLabel = #20179#24211#21517#31216
FieldName = 'I100_003'
Size = 50
end
object ADOQuery1I500A_011: TMemoField
DisplayLabel = #22791#27880#35828#26126
FieldName = 'I500A_011'
BlobType = ftMemo
end
object ADOQuery1I500A_012: TDateTimeField
DisplayLabel = #21046#21333#26085#26399
FieldName = 'I500A_012'
end
object ADOQuery1I500A_013: TWideStringField
DisplayLabel = #21046#21333#20154#21592
FieldName = 'I500A_013'
end
object ADOQuery1I500A_014: TDateTimeField
DisplayLabel = #20462#25913#26085#26399
FieldName = 'I500A_014'
end
object ADOQuery1I500A_015: TWideStringField
DisplayLabel = #20462#25913#20154#21592
FieldName = 'I500A_015'
end
object ADOQuery1I500A_016: TBooleanField
DisplayLabel = #24050#36807#24080#21542
FieldName = 'I500A_016'
OnGetText = ADOQuery1I500A_016GetText
end
object ADOQuery1I550_001: TAutoIncField
FieldName = 'I550_001'
ReadOnly = True
Visible = False
end
object ADOQuery1I550_004: TSmallintField
FieldName = 'I550_004'
Visible = False
end
object ADOQuery1I550_005: TSmallintField
FieldName = 'I550_005'
Visible = False
end
object ADOQuery1I550_006: TBooleanField
FieldName = 'I550_006'
Visible = False
end
object ADOQuery1I550_007: TSmallintField
FieldName = 'I550_007'
Visible = False
end
object ADOQuery1I550_008: TWideStringField
FieldName = 'I550_008'
Visible = False
end
object ADOQuery1I550_009: TIntegerField
FieldName = 'I550_009'
Visible = False
end
object ADOQuery1I550_010: TSmallintField
FieldName = 'I550_010'
Visible = False
end
object ADOQuery1I550_011: TWideStringField
FieldName = 'I550_011'
Visible = False
Size = 30
end
object ADOQuery1G100_001: TAutoIncField
FieldName = 'G100_001'
ReadOnly = True
Visible = False
end
object ADOQuery1I100_001: TAutoIncField
FieldName = 'I100_001'
ReadOnly = True
Visible = False
end
end
object qryInv550: TADOQuery
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select * from INV550 order by I550_002')
Left = 584
Top = 88
end
object qryInv100: TADOQuery
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select I100_001,I100_002,I100_003 from INV100 order by I100_002')
Left = 128
Top = 88
object qryInv100I100_001: TAutoIncField
FieldName = 'I100_001'
ReadOnly = True
Visible = False
end
object qryInv100I100_002: TWideStringField
DisplayLabel = #20179#24211#32534#21495
FieldName = 'I100_002'
end
object qryInv100I100_003: TWideStringField
DisplayLabel = #20179#24211#21517#31216
FieldName = 'I100_003'
Size = 50
end
end
object qryGld100: TADOQuery
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select * from GLD100 order by G100_002')
Left = 304
Top = 104
end
object qryInv500B: TADOQuery
Connection = SYSDM.ADOC
Parameters = <>
Left = 120
Top = 360
end
object qryInv150: TADOQuery
Connection = SYSDM.ADOC
Parameters = <>
SQL.Strings = (
'select I150_001,I150_002,I150_003,I150_004,I140_001,I140_002,I14' +
'0_003'
'from INV150,INV140'
'where I150_011=I140_001'
'order by I150_002')
Left = 96
Top = 304
object qryInv150I150_001: TAutoIncField
FieldName = 'I150_001'
ReadOnly = True
Visible = False
end
object qryInv150I150_002: TWideStringField
DisplayLabel = #26009#21697#32534#21495
FieldName = 'I150_002'
Size = 30
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -