📄 sledgoodsout.dfm
字号:
Left = 456
Top = 1
end
object ClientName: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText =
'select ID, Name'#13#10'from DAClient'#13#10'where RecordState<>'#39#21024#38500#39#13#10'and Cli' +
'entType <>'#39#21378#21830#39
Parameters = <>
Left = 153
Top = 38
end
object EmployeeName: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
Parameters = <>
Left = 192
Top = 38
end
object GoodName: TADODataSet
Active = True
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
Parameters = <>
Left = 80
Top = 259
end
object PackUnit: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText =
'select ID, Name, ExchangeRate, GoalUnitID, IsGoalUnit'#13#10'from M' +
'SUnit'#13#10'where RecordState<>'#39#21024#38500#39' '
Parameters = <>
Left = 172
Top = 259
end
object dsPackUnit: TDataSource
DataSet = PackUnit
Left = 172
Top = 298
end
object DSClientName: TDataSource
DataSet = ClientName
Left = 153
Top = 78
end
object DSEmployeeName: TDataSource
DataSet = EmployeeName
Left = 192
Top = 78
end
object TempAds: TADODataSet
Connection = CommonData.acnConnection
Parameters = <>
Left = 264
Top = 259
end
object adsMaster: TADODataSet
Tag = 11
Connection = CommonData.acnConnection
CursorType = ctStatic
Filtered = True
CommandText =
'select *'#13#10'from SLGoodsOutMaster'#13#10'where RecordState<>'#39#21024#38500#39' and ID=' +
':ID'
IndexFieldNames = 'ID'
Parameters = <
item
Name = 'ID'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 115
Top = 38
object adsMasterID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
Visible = False
end
object adsMasterCreateDate: TDateTimeField
FieldName = 'CreateDate'
Visible = False
end
object adsMasterCreateUserID: TIntegerField
FieldName = 'CreateUserID'
Visible = False
end
object adsMasterRecordState: TStringField
FieldName = 'RecordState'
Visible = False
Size = 12
end
object adsMasterClientID: TIntegerField
FieldName = 'ClientID'
Visible = False
end
object adsMasterPeriodID: TIntegerField
FieldName = 'PeriodID'
Visible = False
end
object adsMasterWarehouseID: TIntegerField
FieldName = 'WarehouseID'
end
object adsMasterEmployeeID: TIntegerField
FieldName = 'EmployeeID'
Visible = False
end
object adsMasterOriginID: TIntegerField
FieldName = 'OriginID'
Visible = False
end
object adsMasterOriginTable: TStringField
FieldName = 'OriginTable'
Visible = False
Size = 30
end
object adsMasterBillAffix: TBytesField
FieldName = 'BillAffix'
Visible = False
Size = 50
end
object adsMasterCode: TStringField
DisplayLabel = #32534#21495
FieldName = 'Code'
end
object adsMasterDate: TDateTimeField
DisplayLabel = #26085#26399
FieldName = 'Date'
DisplayFormat = 'yyyy-mm-dd'
end
object adsMasterBillMode: TStringField
DisplayLabel = #19994#21153#31867#21035
FieldName = 'BillMode'
Size = 16
end
object adsMasterBrief: TStringField
DisplayLabel = #19994#21153#25688#35201
FieldName = 'Brief'
Size = 30
end
object adsMasterClearDate: TDateTimeField
DisplayLabel = #32467#31639#26085#26399
FieldName = 'ClearDate'
end
object adsMasterSundryFee: TBCDField
FieldName = 'SundryFee'
DisplayFormat = '#,#.00'
Precision = 19
Size = 5
end
object adsMasterClientName: TStringField
DisplayLabel = #23458#25143#21517#31216
FieldKind = fkLookup
FieldName = 'ClientName'
LookupDataSet = ClientName
LookupKeyFields = 'ID'
LookupResultField = 'Name'
KeyFields = 'ClientID'
Lookup = True
end
object adsMasterApportion: TStringField
DisplayLabel = #20998#25674#35828#26126
FieldName = 'Apportion'
Size = 12
end
object adsMasterDeliver: TStringField
DisplayLabel = #36865#36135
FieldName = 'Deliver'
Size = 30
end
object adsMasterMemo: TStringField
DisplayLabel = #22791#27880
FieldName = 'Memo'
Size = 60
end
object adsMasterEmployee: TStringField
FieldKind = fkLookup
FieldName = 'Employee'
LookupDataSet = EmployeeName
LookupKeyFields = 'ID'
LookupResultField = 'Name'
KeyFields = 'EmployeeID'
Lookup = True
end
object adsMasterModeDC: TIntegerField
FieldName = 'ModeDC'
Visible = False
end
object adsMasterModeC: TIntegerField
FieldName = 'ModeC'
Visible = False
end
end
object adsDetail: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
CommandText = 'select *'#13#10'from SLGoodsOutDetail'#13#10'where MasterID = :ID'
Parameters = <
item
Name = 'ID'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 34
Top = 259
object adsDetailID: TAutoIncField
FieldName = 'ID'
Visible = False
end
object adsDetailMasterID: TIntegerField
FieldName = 'MasterID'
Visible = False
end
object adsDetailGoodsID: TIntegerField
FieldName = 'GoodsID'
Visible = False
OnChange = adsDetailGoodsIDChange
end
object adsDetailPackUnitID: TIntegerField
FieldName = 'PackUnitID'
Visible = False
OnChange = adsDetailQuantityChange
end
object adsDetailGoalUnitID: TIntegerField
FieldName = 'GoalUnitID'
Visible = False
end
object adsDetailGoodsName: TStringField
DisplayLabel = #21830#21697#21517#31216
FieldKind = fkLookup
FieldName = 'GoodsName'
LookupDataSet = GoodName
LookupKeyFields = 'ID'
LookupResultField = 'Name'
KeyFields = 'GoodsID'
Size = 60
Lookup = True
end
object adsDetailGoodsSpec: TStringField
DisplayLabel = #35268#26684#22411#21495
FieldName = 'GoodsSpec'
Size = 30
end
object adsDetailQuantity: TBCDField
DisplayLabel = #25968#37327
FieldName = 'Quantity'
OnChange = adsDetailQuantityChange
currency = True
Precision = 19
Size = 5
end
object adsDetailPackUnit: TStringField
DisplayLabel = #21253#35013#21333#20301
FieldKind = fkLookup
FieldName = 'PackUnit'
LookupDataSet = PackUnit
LookupKeyFields = 'ID'
LookupResultField = 'Name'
KeyFields = 'PackUnitID'
Lookup = True
end
object adsDetailPriceBase: TBCDField
DisplayLabel = #25104#26412#21333#20215
FieldName = 'PriceBase'
Visible = False
OnChange = adsDetailQuantityChange
DisplayFormat = '#.000'
Precision = 19
end
object adsDetailAmount: TBCDField
DisplayLabel = #25104#26412#37329#39069
FieldName = 'Amount'
Visible = False
currency = True
Precision = 19
Size = 5
end
object adsDetailGoalQuantity: TBCDField
DisplayLabel = #26631#20934#25968#37327
FieldName = 'GoalQuantity'
DisplayFormat = '#,#.00'
Precision = 19
Size = 5
end
object adsDetailGoalUnit: TStringField
DisplayLabel = #26631#20934#21333#20301
FieldKind = fkLookup
FieldName = 'GoalUnit'
LookupDataSet = GoalUnit
LookupKeyFields = 'ID'
LookupResultField = 'Name'
KeyFields = 'GoalUnitID'
Lookup = True
end
object adsDetailPriceGoal: TBCDField
DisplayLabel = #26631#20934#25104#26412#21333#20215
FieldName = 'PriceGoal'
DisplayFormat = '#.000'
Precision = 19
end
object adsDetailMemo: TStringField
DisplayLabel = #22791#27880
FieldName = 'Memo'
Size = 30
end
object adsDetailDiscount: TBCDField
DisplayLabel = #25240#25187#37329#39069
FieldName = 'Discount'
Visible = False
currency = True
Precision = 19
end
object adsDetailQuantityPcs: TBCDField
DisplayLabel = #38646#25968
FieldName = 'QuantityPcs'
Visible = False
DisplayFormat = '#,#.00'
Precision = 19
Size = 5
end
object adsDetailTaxAmount: TBCDField
DisplayLabel = #31246#37329
FieldName = 'TaxAmount'
Visible = False
currency = True
Precision = 19
end
object adsDetailSundryFee: TBCDField
DisplayLabel = #38468#21152#36153#29992
FieldName = 'SundryFee'
Visible = False
currency = True
Precision = 19
Size = 5
end
object adsDetailPriceCost: TBCDField
FieldName = 'PriceCost'
Precision = 19
end
end
object adsGoodsSpec: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText = 'select ID, Name from DAAttribute '#13#10'where recordstate<>'#39#21024#38500#39
Parameters = <>
Left = 126
Top = 259
end
object dsGoodsSpec: TDataSource
DataSet = adsGoodsSpec
Left = 126
Top = 298
end
object GoalUnit: TADODataSet
Active = True
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText =
'select ID, Name, ExchangeRate, GoalUnitID, IsGoalUnit'#13#10'from M' +
'SUnit'#13#10'where RecordState<>'#39#21024#38500#39
Parameters = <>
Left = 218
Top = 259
end
object dsGoalUnit: TDataSource
DataSet = GoalUnit
Left = 218
Top = 298
end
object adsWarehouse: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText = 'select ID, Name'#13#10'from STWarehouse'#13#10'where RecordState<>'#39#21024#38500#39#13#10
Parameters = <>
Left = 233
Top = 38
end
object dsWarehouse: TDataSource
DataSet = adsWarehouse
Left = 233
Top = 78
end
object PackUintFltAQ: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText =
'select ID, Name, ExchangeRate, GoalUnitID, IsGoalUnit'#13#10'from M' +
'SUnit'#13#10'where RecordState<>'#39#21024#38500#39' '
Parameters = <>
Left = 317
Top = 287
end
object PackUintFltDS: TDataSource
DataSet = PackUintFltAQ
Left = 317
Top = 322
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -