📄 spzzd1.dfm
字号:
end
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 = {
FF050000545046301054647844424772696457726170706572000542616E6473
0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
742E5374796C650B000A44617461536F75726365071173707A7A642E44617461
536F75726365330D46696C7465722E416374697665090F46696C7465722E4372
6974657269610A04000000000000000D477269644C696E65436F6C6F72070663
6C4E61767912486561646572466F6E742E43686172736574070E474232333132
5F4348415253455410486561646572466F6E742E436F6C6F72070C636C57696E
646F775465787411486561646572466F6E742E48656967687402F40F48656164
6572466F6E742E4E616D650604CBCECCE510486561646572466F6E742E537479
6C650B000F4F7074696F6E734265686176696F720B0C6564676F4175746F536F
72740E6564676F447261675363726F6C6C0B6564676F45646974696E67136564
676F456E74657253686F77456469746F72136564676F496D6D65646961746545
6469746F720D6564676F4D756C7469536F72740E6564676F5461625468726F75
67680F6564676F566572745468726F75676800094F7074696F6E7344420B1065
64676F43616E63656C4F6E457869740D6564676F43616E496E73657274116564
676F43616E4E617669676174696F6E116564676F436F6E6669726D44656C6574
65126564676F4C6F6164416C6C5265636F726473106564676F557365426F6F6B
6D61726B73000B4F7074696F6E73566965770B136564676F42616E6448656164
657257696474680D6564676F496E64696361746F720D6564676F557365426974
6D6170001350726576696577466F6E742E43686172736574070F44454641554C
545F434841525345541150726576696577466F6E742E436F6C6F720706636C42
6C75651250726576696577466F6E742E48656967687402F51050726576696577
466F6E742E4E616D65060D4D532053616E732053657269661150726576696577
466F6E742E5374796C650B0000135464784442477269644D61736B436F6C756D
6E04636F6465055769647468024A0942616E64496E646578020008526F77496E
6465780200094669656C644E616D650604636F64650000135464784442477269
644D61736B436F6C756D6E046E616D65055769647468026F0942616E64496E64
6578020008526F77496E6465780200094669656C644E616D6506046E616D6500
00135464784442477269644D61736B436F6C756D6E02647A0557696474680381
000942616E64496E646578020008526F77496E6465780200094669656C644E61
6D650602647A0000135464784442477269644D61736B436F6C756D6E02646805
576964746802570942616E64496E646578020008526F77496E64657802000946
69656C644E616D65060264680000135464784442477269644D61736B436F6C75
6D6E02637A05576964746802570942616E64496E646578020008526F77496E64
65780200094669656C644E616D650602637A0000135464784442477269644D61
736B436F6C756D6E036C7872055769647468023D0942616E64496E6465780200
08526F77496E6465780200094669656C644E616D6506036C7872000013546478
4442477269644D61736B436F6C756D6E02627A05576964746802790942616E64
496E646578020008526F77496E6465780200094669656C644E616D650602627A
000000}
end
object dxDBGridLayoutList1Item2: TdxDBGridLayout
Data = {
F8050000545046301054647844424772696457726170706572000542616E6473
0E0100000D44656661756C744C61796F7574091348656164657250616E656C52
6F77436F756E740201084B65794669656C640604636F64650D53756D6D617279
47726F7570730E001053756D6D617279536570617261746F7206022C200C466F
6E742E43686172736574070E4742323331325F434841525345540A466F6E742E
436F6C6F72070C636C57696E646F77546578740B466F6E742E48656967687402
F409466F6E742E4E616D650604CBCECCE50A466F6E742E5374796C650B000A50
6172656E74466F6E74081042616E64466F6E742E43686172736574070F444546
41554C545F434841525345540E42616E64466F6E742E436F6C6F72070C636C57
696E646F77546578740F42616E64466F6E742E48656967687402F50D42616E64
466F6E742E4E616D65060D4D532053616E732053657269660E42616E64466F6E
742E5374796C650B000A44617461536F75726365071173707A7A642E44617461
536F75726365340D46696C7465722E416374697665090F46696C7465722E4372
6974657269610A040000000000000012486561646572466F6E742E4368617273
6574070E4742323331325F4348415253455410486561646572466F6E742E436F
6C6F72070C636C57696E646F775465787411486561646572466F6E742E486569
67687402F40F486561646572466F6E742E4E616D650604CBCECCE51048656164
6572466F6E742E5374796C650B000F4F7074696F6E734265686176696F720B0C
6564676F4175746F536F72740E6564676F447261675363726F6C6C0B6564676F
45646974696E67136564676F456E74657253686F77456469746F72136564676F
496D6D656469617465456469746F720D6564676F4D756C7469536F72740E6564
676F5461625468726F7567680F6564676F566572745468726F75676800094F70
74696F6E7344420B106564676F43616E63656C4F6E457869740D6564676F4361
6E44656C6574650D6564676F43616E496E73657274116564676F43616E4E6176
69676174696F6E116564676F436F6E6669726D44656C657465126564676F4C6F
6164416C6C5265636F726473106564676F557365426F6F6B6D61726B73000B4F
7074696F6E73566965770B136564676F42616E6448656164657257696474680D
6564676F496E64696361746F720D6564676F5573654269746D61700013507265
76696577466F6E742E43686172736574070F44454641554C545F434841525345
541150726576696577466F6E742E436F6C6F720706636C426C75651250726576
696577466F6E742E48656967687402F51050726576696577466F6E742E4E616D
65060D4D532053616E732053657269661150726576696577466F6E742E537479
6C650B0000135464784442477269644D61736B436F6C756D6E04636F64650557
6964746802450942616E64496E646578020008526F77496E6465780200094669
656C644E616D650604636F64650000135464784442477269644D61736B436F6C
756D6E046E616D65055769647468023F0942616E64496E646578020008526F77
496E6465780200094669656C644E616D6506046E616D65000013546478444247
7269644D61736B436F6C756D6E02626D055769647468023E0942616E64496E64
6578020008526F77496E6465780200094669656C644E616D650602626D000013
5464784442477269644D61736B436F6C756D6E02786205576964746802380942
616E64496E646578020008526F77496E6465780200094669656C644E616D6506
02786200001354647844424772696444617465436F6C756D6E04637372710557
6964746802560942616E64496E646578020008526F77496E6465780200094669
656C644E616D650604637372710000135464784442477269644D61736B436F6C
756D6E02646805576964746802600942616E64496E646578020008526F77496E
6465780200094669656C644E616D65060264680000135464784442477269644D
61736B436F6C756D6E027A7A055769647468027C0942616E64496E6465780200
08526F77496E6465780200094669656C644E616D6506027A7A000000}
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 = 'SPZZ002'
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
end
object ADOTable1: TADOTable
Active = True
Connection = MainForm.ADOConnection1
CursorType = ctStatic
AfterScroll = ADOTable1AfterScroll
TableName = 'SPZZ001'
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 ADOTable1ck: TStringField
DisplayLabel = '仓库'
FieldName = 'ck'
Size = 5
end
object ADOTable1ckname: TStringField
FieldKind = fkLookup
FieldName = 'ckname'
LookupDataSet = ADOTable3
LookupKeyFields = 'code'
LookupResultField = 'name'
KeyFields = 'ck'
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 + -