?? sledsalebgtp.dfm
字號:
end
inherited MainMenu: TMainMenu
Left = 344
Top = 2
end
inherited DetailsPopupMenu: TPopupMenu
Left = 384
Top = 0
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 = 146
Top = 32
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 = 197
Top = 32
end
object GoodName: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
Parameters = <>
Left = 91
Top = 239
end
object PackUnit: 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 = 173
Top = 239
end
object dsPackUnit: TDataSource
DataSet = PackUnit
Left = 173
Top = 274
end
object DSClientName: TDataSource
DataSet = ClientName
Left = 149
Top = 65
end
object DSEmployeeName: TDataSource
DataSet = EmployeeName
Left = 197
Top = 65
end
object TempAds: TADODataSet
Connection = CommonData.acnConnection
Parameters = <>
Left = 256
Top = 239
end
object adsMaster: TADODataSet
Tag = 11
Connection = CommonData.acnConnection
CursorType = ctStatic
Filtered = True
CommandText = 'select *'#13#10'from SLSaleMaster'#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 = 96
Top = 32
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 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'
EditMask = '9999-99-99;1;_'
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
object adsMasterWarehouseID: TIntegerField
FieldName = 'WarehouseID'
Visible = False
end
end
object adsDetail: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
CommandText = 'select *'#13#10'from SLSaleDetail'#13#10'where MasterID = :ID'
Parameters = <
item
Name = 'ID'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 50
Top = 239
object adsDetailID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
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 = adsDetailPackUnitIDChange
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 adsDetailGoalQuantity: TBCDField
DisplayLabel = #26631#20934#25968#37327
FieldName = 'GoalQuantity'
OnChange = adsDetailGoalQuantityChange
DisplayFormat = '#,#.00'
currency = True
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 adsDetailPriceBase: TBCDField
DisplayLabel = #21333#20215
FieldName = 'PriceBase'
OnChange = adsDetailPriceBaseChange
DisplayFormat = '#,#.00'
Precision = 19
end
object adsDetailQuantityPcs: TBCDField
DisplayLabel = #38646#25968
FieldName = 'QuantityPcs'
Visible = False
DisplayFormat = '#,#.00'
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 adsDetailQuantity: TBCDField
DisplayLabel = #21253#35013#25968#37327
FieldName = 'Quantity'
DisplayFormat = '#,#.00'
Precision = 19
Size = 5
end
object adsDetailAmount: TBCDField
DisplayLabel = #37329#39069
FieldName = 'Amount'
currency = True
Precision = 19
Size = 5
end
object adsDetailDiscount: TBCDField
DisplayLabel = #25240#25187#37329#39069
FieldName = 'Discount'
Visible = False
currency = True
Precision = 19
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 adsDetailMemo: TStringField
DisplayLabel = #22791#27880
FieldName = 'Memo'
Size = 30
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 = 132
Top = 239
end
object dsGoodsSpec: TDataSource
DataSet = adsGoodsSpec
Left = 132
Top = 274
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 = 214
Top = 239
end
object dsGoalUnit: TDataSource
DataSet = GoalUnit
Left = 214
Top = 274
end
object TpPackUnit: TADOQuery
Connection = CommonData.acnConnection
Parameters = <>
Left = 368
Top = 256
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -