?? u_inwarehouse.dfm
字號:
inherited F_InWarehouse: TF_InWarehouse
Left = 188
Top = 78
VertScrollBar.Range = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #25104#21697#20837#20179
ClientHeight = 413
ClientWidth = 644
PixelsPerInch = 96
TextHeight = 13
inherited pnl_operate: TPanel
Top = 384
Width = 644
inherited btn_find: TSpeedButton
Left = 565
end
inherited btn_save: TSpeedButton
Left = 338
end
inherited btn_cancel: TSpeedButton
Left = 288
end
inherited btn_delete: TSpeedButton
Left = 188
end
inherited btn_edit: TSpeedButton
Left = 238
end
inherited btn_refresh: TSpeedButton
Left = 491
end
inherited btn_print: TSpeedButton
Left = 388
end
end
inherited Panel1: TPanel
Width = 644
Height = 83
object Label1: TLabel
Left = 247
Top = 20
Width = 52
Height = 13
Caption = #20837#20179#21333#21495
FocusControl = EInNO
end
object Label2: TLabel
Left = 247
Top = 51
Width = 52
Height = 13
Caption = #20837#20179#26085#26399
FocusControl = EInDate
end
object Label3: TLabel
Left = 16
Top = 22
Width = 61
Height = 13
Caption = #20179' '#24211
end
object Label4: TLabel
Left = 20
Top = 53
Width = 53
Height = 13
Caption = #32463' '#25163' '#20154
FocusControl = EUsername
end
object LWareNO: TLabel
Left = 208
Top = 24
Width = 7
Height = 13
end
object EInNO: TDBEdit
Left = 319
Top = 14
Width = 129
Height = 21
DataField = 'InNO'
DataSource = Ds_Master
Enabled = False
ReadOnly = True
TabOrder = 0
end
object EInDate: TDBEdit
Left = 319
Top = 44
Width = 129
Height = 21
DataField = 'Indate'
DataSource = Ds_Master
Enabled = False
ReadOnly = True
TabOrder = 1
end
object EUsername: TDBEdit
Left = 88
Top = 46
Width = 113
Height = 21
DataField = 'Username'
DataSource = Ds_Master
Enabled = False
ReadOnly = True
TabOrder = 2
end
object EWarehouse: TDBComboBox
Left = 88
Top = 16
Width = 113
Height = 21
DataField = 'Warehouseno'
DataSource = Ds_Master
ItemHeight = 13
TabOrder = 3
OnExit = EWarehouseExit
end
end
inherited DBGridEh: TDBGridEh
Top = 83
Width = 644
Height = 301
OnColExit = DBGridEhColExit
Columns = <
item
EditButtons = <>
FieldName = 'ProductTm'
Footers = <>
Width = 133
end
item
EditButtons = <>
FieldName = 'ItemNo'
Footers = <>
Width = 72
end
item
EditButtons = <>
FieldName = 'Groupname'
Footers = <>
Width = 82
end
item
EditButtons = <>
FieldName = 'handCount'
Footer.ValueType = fvtSum
Footers = <>
Width = 68
end
item
EditButtons = <>
FieldName = 'Perhandcount'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Incount'
Footer.ValueType = fvtSum
Footers = <>
Width = 66
end
item
EditButtons = <>
FieldName = 'InPrice'
Footers = <>
Width = 67
end
item
EditButtons = <>
FieldName = 'Inmoney'
Footer.ValueType = fvtSum
Footers = <>
Width = 65
end>
end
inherited Ds_Master: TDataSource
Left = 584
Top = 8
end
inherited Ado_Master: TADOTable
Active = True
Connection = F_Dm.DBcon
CursorType = ctStatic
TableName = 'InWarehouseMaster'
Left = 584
Top = 48
object Ado_MasterInNO: TStringField
DisplayLabel = #20837#20179#21333#21495
FieldName = 'InNO'
end
object Ado_MasterIndate: TDateTimeField
DisplayLabel = #20837#20179#26085#26399
FieldName = 'Indate'
end
object Ado_MasterWarehouseno: TStringField
DisplayLabel = #25152#20837#20179#24211
FieldName = 'Warehouseno'
Size = 30
end
object Ado_MasterUsername: TStringField
DisplayLabel = #32463#25163#20154
FieldName = 'Username'
Size = 16
end
object Ado_MasterAllhandcount: TIntegerField
FieldName = 'Allhandcount'
end
object Ado_MasterAllCount: TIntegerField
FieldName = 'AllCount'
end
object Ado_MasterAllmoney: TBCDField
FieldName = 'Allmoney'
Precision = 19
end
end
inherited ADO_Detail: TADOTable
Active = True
Connection = F_Dm.DBcon
CursorType = ctStatic
AfterInsert = ADO_DetailAfterInsert
BeforePost = ADO_DetailBeforePost
IndexFieldNames = 'InNo'
MasterFields = 'InNO'
MasterSource = Ds_Master
TableName = 'InWarehouseDetail'
Left = 456
Top = 344
object ADO_DetailGroupname: TStringField
DisplayLabel = #32452#21035
FieldName = 'Groupname'
Size = 30
end
object ADO_DetailInNo: TStringField
FieldName = 'InNo'
end
object ADO_DetailProductTm: TStringField
DisplayLabel = #20135#21697#30721
FieldName = 'ProductTm'
end
object ADO_DetailItemNo: TStringField
DisplayLabel = #27454#21495
FieldName = 'ItemNo'
Size = 6
end
object ADO_DetailUnit: TStringField
FieldName = 'Unit'
Size = 10
end
object ADO_DetailhandCount: TIntegerField
DisplayLabel = #25163#25968
FieldName = 'handCount'
end
object ADO_DetailIncount: TIntegerField
DisplayLabel = #25968#37327
FieldName = 'Incount'
end
object ADO_DetailPerhandcount: TIntegerField
DisplayLabel = #27599#25163#25968#37327
FieldName = 'Perhandcount'
end
object ADO_DetailInPrice: TBCDField
DisplayLabel = #38646#21806#20215
FieldName = 'InPrice'
Precision = 19
end
object ADO_DetailInmoney: TBCDField
DisplayLabel = #37329#39069
FieldName = 'Inmoney'
Precision = 19
end
object ADO_DetailWarehouseno: TStringField
FieldName = 'Warehouseno'
Size = 30
end
end
inherited SkinData1: TSkinData
Left = 608
Top = 24
SkinStream = {00000000}
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -