?? ckdd1.dfm
字號:
object ADOTable4: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
Filter = 'ywybz=1'
Filtered = True
TableName = 'RYDA'
Left = 416
Top = 184
object StringField1: TStringField
DisplayLabel = '編碼'
FieldName = 'code'
Size = 5
end
object StringField2: TStringField
DisplayLabel = '名稱'
FieldName = 'name'
Size = 200
end
object ADOTable4bm: TStringField
DisplayLabel = '部門'
FieldName = 'bm'
Size = 50
end
object ADOTable4xb: TStringField
DisplayLabel = '性別'
FieldName = 'xb'
Size = 4
end
object ADOTable4csrq: TDateTimeField
DisplayLabel = '出生日期'
FieldName = 'csrq'
end
object ADOTable4dh: TStringField
DisplayLabel = '電話'
FieldName = 'dh'
Size = 50
end
object ADOTable4zz: TStringField
DisplayLabel = '住址'
FieldName = 'zz'
Size = 200
end
end
object dxDBGridLayoutList1: TdxDBGridLayoutList
Left = 336
Top = 184
object dxDBGridLayoutList1Item1: TdxDBGridLayout
Data = {
FE050000545046301054647844424772696457726170706572000542616E6473
0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
742E5374796C650B000A44617461536F757263650710434B44442E4461746153
6F75726365330D46696C7465722E416374697665090F46696C7465722E437269
74657269610A04000000000000000D477269644C696E65436F6C6F720706636C
4E61767912486561646572466F6E742E43686172736574070E4742323331325F
4348415253455410486561646572466F6E742E436F6C6F72070C636C57696E64
6F775465787411486561646572466F6E742E48656967687402F40F4865616465
72466F6E742E4E616D650604CBCECCE510486561646572466F6E742E5374796C
650B000F4F7074696F6E734265686176696F720B0C6564676F4175746F536F72
740E6564676F447261675363726F6C6C0B6564676F45646974696E6713656467
6F456E74657253686F77456469746F72136564676F496D6D6564696174654564
69746F720D6564676F4D756C7469536F72740E6564676F5461625468726F7567
680F6564676F566572745468726F75676800094F7074696F6E7344420B106564
676F43616E63656C4F6E457869740D6564676F43616E496E7365727411656467
6F43616E4E617669676174696F6E116564676F436F6E6669726D44656C657465
126564676F4C6F6164416C6C5265636F726473106564676F557365426F6F6B6D
61726B73000B4F7074696F6E73566965770B136564676F42616E644865616465
7257696474680D6564676F496E64696361746F720D6564676F5573654269746D
6170001350726576696577466F6E742E43686172736574070F44454641554C54
5F434841525345541150726576696577466F6E742E436F6C6F720706636C426C
75651250726576696577466F6E742E48656967687402F5105072657669657746
6F6E742E4E616D65060D4D532053616E73205365726966115072657669657746
6F6E742E5374796C650B0000135464784442477269644D61736B436F6C756D6E
04636F6465055769647468024A0942616E64496E646578020008526F77496E64
65780200094669656C644E616D650604636F6465000013546478444247726964
4D61736B436F6C756D6E046E616D65055769647468026F0942616E64496E6465
78020008526F77496E6465780200094669656C644E616D6506046E616D650000
135464784442477269644D61736B436F6C756D6E02647A055769647468038100
0942616E64496E646578020008526F77496E6465780200094669656C644E616D
650602647A0000135464784442477269644D61736B436F6C756D6E0264680557
6964746802570942616E64496E646578020008526F77496E6465780200094669
656C644E616D65060264680000135464784442477269644D61736B436F6C756D
6E02637A05576964746802570942616E64496E646578020008526F77496E6465
780200094669656C644E616D650602637A0000135464784442477269644D6173
6B436F6C756D6E036C7872055769647468023D0942616E64496E646578020008
526F77496E6465780200094669656C644E616D6506036C787200001354647844
42477269644D61736B436F6C756D6E02627A05576964746802790942616E6449
6E646578020008526F77496E6465780200094669656C644E616D650602627A00
0000}
end
object dxDBGridLayoutList1Item2: TdxDBGridLayout
Data = {
F7050000545046301054647844424772696457726170706572000542616E6473
0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
742E5374796C650B000A44617461536F757263650710434B44442E4461746153
6F75726365340D46696C7465722E416374697665090F46696C7465722E437269
74657269610A040000000000000012486561646572466F6E742E436861727365
74070E4742323331325F4348415253455410486561646572466F6E742E436F6C
6F72070C636C57696E646F775465787411486561646572466F6E742E48656967
687402F40F486561646572466F6E742E4E616D650604CBCECCE5104865616465
72466F6E742E5374796C650B000F4F7074696F6E734265686176696F720B0C65
64676F4175746F536F72740E6564676F447261675363726F6C6C0B6564676F45
646974696E67136564676F456E74657253686F77456469746F72136564676F49
6D6D656469617465456469746F720D6564676F4D756C7469536F72740E656467
6F5461625468726F7567680F6564676F566572745468726F75676800094F7074
696F6E7344420B106564676F43616E63656C4F6E457869740D6564676F43616E
44656C6574650D6564676F43616E496E73657274116564676F43616E4E617669
676174696F6E116564676F436F6E6669726D44656C657465126564676F4C6F61
64416C6C5265636F726473106564676F557365426F6F6B6D61726B73000B4F70
74696F6E73566965770B136564676F42616E6448656164657257696474680D65
64676F496E64696361746F720D6564676F5573654269746D6170001350726576
696577466F6E742E43686172736574070F44454641554C545F43484152534554
1150726576696577466F6E742E436F6C6F720706636C426C7565125072657669
6577466F6E742E48656967687402F51050726576696577466F6E742E4E616D65
060D4D532053616E732053657269661150726576696577466F6E742E5374796C
650B0000135464784442477269644D61736B436F6C756D6E04636F6465055769
64746802450942616E64496E646578020008526F77496E646578020009466965
6C644E616D650604636F64650000135464784442477269644D61736B436F6C75
6D6E046E616D65055769647468023F0942616E64496E646578020008526F7749
6E6465780200094669656C644E616D6506046E616D6500001354647844424772
69644D61736B436F6C756D6E02626D055769647468023E0942616E64496E6465
78020008526F77496E6465780200094669656C644E616D650602626D00001354
64784442477269644D61736B436F6C756D6E0278620557696474680238094261
6E64496E646578020008526F77496E6465780200094669656C644E616D650602
786200001354647844424772696444617465436F6C756D6E0463737271055769
64746802560942616E64496E646578020008526F77496E646578020009466965
6C644E616D650604637372710000135464784442477269644D61736B436F6C75
6D6E02646805576964746802600942616E64496E646578020008526F77496E64
65780200094669656C644E616D65060264680000135464784442477269644D61
736B436F6C756D6E027A7A055769647468027C0942616E64496E646578020008
526F77496E6465780200094669656C644E616D6506027A7A000000}
end
end
object DataSource3: TDataSource
DataSet = ADOTable3
Left = 384
Top = 216
end
object DataSource4: TDataSource
DataSet = ADOTable4
Left = 416
Top = 216
end
object Query1: TADOQuery
Connection = MainForm.ADOConnection1
Parameters = <>
Left = 336
Top = 216
end
object ADOTable2: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
BeforePost = ADOTable2BeforePost
IndexFieldNames = 'code'
MasterFields = 'code'
MasterSource = DataSource1
TableName = 'CKDD002'
Left = 120
Top = 192
object ADOTable2spcode: TStringField
DisplayLabel = '貨品編碼'
DisplayWidth = 10
FieldName = 'spcode'
OnSetText = ADOTable2spcodeSetText
Size = 15
end
object ADOTable2spname: TStringField
DisplayLabel = '貨品名稱'
DisplayWidth = 25
FieldName = 'spname'
Size = 200
end
object ADOTable2jldw: TStringField
DisplayLabel = '單位'
DisplayWidth = 10
FieldName = 'jldw'
Size = 10
end
object ADOTable2js: TBCDField
DisplayLabel = '件數'
DisplayWidth = 19
FieldName = 'js'
OnSetText = ADOTable2jsSetText
Precision = 18
Size = 3
end
object ADOTable2ss: TBCDField
DisplayLabel = '散數'
DisplayWidth = 19
FieldName = 'ss'
OnSetText = ADOTable2ssSetText
Precision = 18
Size = 3
end
object ADOTable2sl: TBCDField
DisplayLabel = '數量'
DisplayWidth = 19
FieldName = 'sl'
OnSetText = ADOTable2slSetText
Precision = 18
Size = 3
end
object ADOTable2jhj: TBCDField
DisplayLabel = '成本價'
DisplayWidth = 19
FieldName = 'jhj'
OnSetText = ADOTable2jhjSetText
Precision = 18
Size = 3
end
object ADOTable2je: TBCDField
DisplayLabel = '金額'
DisplayWidth = 19
FieldName = 'je'
Precision = 18
Size = 3
end
object ADOTable2id: TAutoIncField
DisplayLabel = 'ID'
DisplayWidth = 10
FieldName = 'id'
end
object ADOTable2code: TStringField
DisplayLabel = '主單號'
DisplayWidth = 20
FieldName = 'code'
end
object ADOTable2bzgg: TBCDField
DisplayLabel = '包裝'
DisplayWidth = 19
FieldName = 'bzgg'
Precision = 18
Size = 0
end
object ADOTable2kcsl: TBCDField
DisplayLabel = '庫存數量'
FieldName = 'kcsl'
Precision = 18
Size = 0
end
end
object ADOTable1: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
AfterScroll = ADOTable1AfterScroll
TableName = 'CKDD001'
Left = 416
Top = 80
object ADOTable1code: TStringField
DisplayLabel = '單號'
FieldName = 'code'
end
object ADOTable1kdrq: TDateTimeField
DisplayLabel = '開單日期'
FieldName = 'kdrq'
end
object ADOTable1ywy: TStringField
DisplayLabel = '業務員'
FieldName = 'ywy'
Size = 10
end
object ADOTable1bz: TStringField
DisplayLabel = '備注'
FieldName = 'bz'
Size = 200
end
object ADOTable1zt: TStringField
DisplayLabel = '單據狀態'
FieldName = 'zt'
Size = 10
end
object ADOTable1ywyname: TStringField
DisplayLabel = '業務員'
FieldKind = fkLookup
FieldName = 'ywyname'
LookupDataSet = ADOTable4
LookupKeyFields = 'code'
LookupResultField = 'name'
KeyFields = 'ywy'
Lookup = True
end
object ADOTable1dkr: TStringField
DisplayLabel = '開單人'
FieldName = 'dkr'
Size = 6
end
object ADOTable1dcck: TStringField
DisplayLabel = '調出倉庫'
FieldName = 'dcck'
Size = 5
end
object ADOTable1drck: TStringField
DisplayLabel = '調入倉庫'
FieldName = 'drck'
Size = 5
end
object ADOTable1dcckname: TStringField
FieldKind = fkLookup
FieldName = 'dcckname'
LookupDataSet = ADOTable3
LookupKeyFields = 'code'
LookupResultField = 'name'
KeyFields = 'dcck'
Lookup = True
end
object ADOTable1drckname: TStringField
FieldKind = fkLookup
FieldName = 'drckname'
LookupDataSet = ADOTable3
LookupKeyFields = 'code'
LookupResultField = 'name'
KeyFields = 'drck'
Lookup = True
end
object ADOTable1shrq: TDateTimeField
FieldName = 'shrq'
end
object ADOTable1shr: TStringField
FieldName = 'shr'
end
end
object PopupMenu1: TPopupMenu
Alignment = paCenter
Left = 24
Top = 192
object N2: TMenuItem
Caption = '修改單號'
ShortCut = 116
OnClick = N2Click
end
object Bit1: TMenuItem
Caption = '第 一 單'
ShortCut = 16454
OnClick = Bit1Click
end
object Bit4: TMenuItem
Caption = '最后一單'
ShortCut = 16460
OnClick = Bit4Click
end
object N1: TMenuItem
Caption = '-'
end
object N9: TMenuItem
Caption = '選擇貨品'
ShortCut = 119
OnClick = N9Click
end
object N10: TMenuItem
Caption = '刪除貨品'
ShortCut = 16452
OnClick = N10Click
end
object N11: TMenuItem
Caption = '歷史價格'
ShortCut = 16458
OnClick = N11Click
end
object N13: TMenuItem
Caption = '單據查找'
ShortCut = 114
OnClick = N13Click
end
object N12: TMenuItem
Caption = '-'
end
object N3: TMenuItem
Caption = '審核入賬'
ShortCut = 121
OnClick = N3Click
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -