?? u_order.dfm
字號:
inherited F_Order: TF_Order
Left = 120
Top = 15
VertScrollBar.Range = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #23458#25143#35746#21333
ClientHeight = 443
ClientWidth = 641
PixelsPerInch = 96
TextHeight = 13
inherited pnl_operate: TPanel
Top = 400
Width = 641
Height = 43
inherited btn_insert: TSpeedButton
Left = 160
Top = 11
end
inherited btn_find: TSpeedButton
Left = 410
Top = 11
end
inherited btn_save: TSpeedButton
Left = 360
Top = 11
end
inherited btn_cancel: TSpeedButton
Left = 310
Top = 11
end
inherited btn_delete: TSpeedButton
Left = 210
Top = 11
end
inherited btn_edit: TSpeedButton
Left = 260
Top = 11
end
inherited btn_refresh: TSpeedButton
Left = 297
Top = 44
Visible = False
end
inherited btn_print: TSpeedButton
Left = 577
Top = 11
OnClick = btn_printClick
end
inherited DBNavigator: TDBNavigator
Top = 11
end
object Check: TCheckBox
Left = 488
Top = 14
Width = 85
Height = 17
Caption = #25171#21360#25240#25187#29575
TabOrder = 1
end
end
inherited Panel1: TPanel
Width = 641
Height = 145
object Label1: TLabel
Left = 29
Top = 16
Width = 52
Height = 13
Caption = #23458#25143#32534#21495
FocusControl = ECustno
end
object Label2: TLabel
Left = 30
Top = 43
Width = 52
Height = 13
Caption = #23458#25143#21517#31216
FocusControl = ECustname
end
object Label3: TLabel
Left = 244
Top = 14
Width = 40
Height = 13
Caption = #20256' '#30495
FocusControl = Efax
end
object Label4: TLabel
Left = 244
Top = 38
Width = 40
Height = 13
Caption = #30005' '#35805
FocusControl = ETel
end
object Label5: TLabel
Left = 30
Top = 97
Width = 54
Height = 13
Caption = #22320' '#22336
FocusControl = EAdd
end
object Label6: TLabel
Left = 428
Top = 11
Width = 52
Height = 13
Caption = #35746#36135#26085#26399
FocusControl = EOrderDate
end
object Label7: TLabel
Left = 428
Top = 38
Width = 52
Height = 13
Caption = #20132#36135#26085#26399
FocusControl = EDelidate
end
object Label8: TLabel
Left = 432
Top = 70
Width = 52
Height = 13
Caption = #35746#21333#32534#21495
FocusControl = EOrderno
end
object Label9: TLabel
Left = 246
Top = 67
Width = 39
Height = 13
Caption = #32463#25163#20154
end
object Label10: TLabel
Left = 29
Top = 70
Width = 53
Height = 13
Caption = #25286' '#25187' '#29575
FocusControl = EZkrate
end
object ECustno: TDBEdit
Left = 85
Top = 10
Width = 146
Height = 21
DataField = 'Custno'
DataSource = Ds_Master
TabOrder = 0
OnExit = ECustnoExit
OnKeyPress = ECustnoKeyPress
end
object ECustname: TDBEdit
Left = 85
Top = 37
Width = 146
Height = 21
DataField = 'Custname'
DataSource = Ds_Master
ReadOnly = True
TabOrder = 1
end
object Efax: TDBEdit
Left = 287
Top = 9
Width = 132
Height = 21
DataField = 'Fax'
DataSource = Ds_Master
ReadOnly = True
TabOrder = 2
end
object ETel: TDBEdit
Left = 287
Top = 37
Width = 132
Height = 21
DataField = 'Tel'
DataSource = Ds_Master
ReadOnly = True
TabOrder = 3
end
object EAdd: TDBEdit
Left = 86
Top = 92
Width = 529
Height = 21
DataField = 'DeliAddress'
DataSource = Ds_Master
ReadOnly = True
TabOrder = 4
end
object EOrderDate: TDBEdit
Left = 492
Top = 11
Width = 121
Height = 21
DataField = 'OrderDate'
DataSource = Ds_Master
TabOrder = 5
end
object EDelidate: TDBEdit
Left = 492
Top = 38
Width = 121
Height = 21
DataField = 'DeliDate'
DataSource = Ds_Master
TabOrder = 6
end
object EOrderno: TDBEdit
Left = 492
Top = 65
Width = 121
Height = 21
Color = clMoneyGreen
DataField = 'OrderNo'
DataSource = Ds_Master
ReadOnly = True
TabOrder = 7
end
object EOperateman: TEdit
Left = 287
Top = 63
Width = 132
Height = 21
Color = clMoneyGreen
Enabled = False
ReadOnly = True
TabOrder = 8
end
object EZkrate: TDBEdit
Left = 86
Top = 64
Width = 145
Height = 21
DataField = 'ZkRate'
DataSource = Ds_Master
ReadOnly = True
TabOrder = 9
end
object CheckBox1: TCheckBox
Left = 32
Top = 120
Width = 97
Height = 17
Caption = #29992#25163#24037#36755#20837
TabOrder = 10
end
end
inherited DBGridEh: TDBGridEh
Top = 145
Width = 641
Height = 255
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking]
OnColExit = DBGridEhColExit
Columns = <
item
EditButtons = <>
FieldName = 'ProductTm'
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
ReadOnly = False
end
item
EditButtons = <>
FieldName = 'ItemNO'
Footers = <>
ReadOnly = False
Width = 56
end
item
EditButtons = <>
FieldName = 'Groupname'
Footers = <>
ReadOnly = False
Width = 78
end
item
EditButtons = <>
FieldName = 'handCount'
Footer.ValueType = fvtSum
Footers = <>
ReadOnly = False
Width = 57
end
item
EditButtons = <>
FieldName = 'Perhandcount'
Footers = <>
ReadOnly = False
Width = 62
end
item
EditButtons = <>
FieldName = 'OrderCount'
Footer.ValueType = fvtSum
Footers = <>
ReadOnly = False
end
item
EditButtons = <>
FieldName = 'OrderPrice'
Footers = <>
ReadOnly = False
Width = 49
end
item
EditButtons = <>
FieldName = 'OrderMoney'
Footer.ValueType = fvtSum
Footers = <>
ReadOnly = False
Width = 73
end>
end
inherited Ds_Master: TDataSource
Left = 264
Top = 65528
end
inherited Ado_Master: TADOTable
Connection = F_Dm.DBcon
CursorType = ctStatic
BeforePost = Ado_MasterBeforePost
TableName = 'OrderMaster'
Left = 224
Top = 16
object ADO_masterOrderNo: TStringField
DisplayLabel = #35746#21333#32534#21495
FieldName = 'OrderNo'
end
object ADO_masterCustno: TStringField
DisplayLabel = #23458#25143#32534#21495
FieldName = 'Custno'
Size = 6
end
object ADO_masterCustname: TStringField
DisplayLabel = #23458#25143#21517#31216
FieldName = 'Custname'
Size = 30
end
object ADO_masterFax: TStringField
DisplayLabel = #20256#30495
FieldName = 'Fax'
Size = 13
end
object ADO_masterTel: TStringField
DisplayLabel = #30005#35805
FieldName = 'Tel'
Size = 13
end
object ADO_masterDeliAddress: TStringField
DisplayLabel = #22320#22336
FieldName = 'DeliAddress'
Size = 30
end
object ADO_masterEmail: TStringField
FieldName = 'Email'
Size = 30
end
object ADO_masterOrderDate: TDateTimeField
DisplayLabel = #35746#36135#26085#26399
FieldName = 'OrderDate'
end
object ADO_masterDeliDate: TDateTimeField
DisplayLabel = #20132#36135#26085#26399
FieldName = 'DeliDate'
end
object ADO_masterAllhandCount: TIntegerField
FieldName = 'AllhandCount'
end
object ADO_masterAllcount: TFloatField
FieldName = 'Allcount'
end
object ADO_masterAllmoney: TBCDField
FieldName = 'Allmoney'
Precision = 19
end
object ADO_masterZkRate: TFloatField
DisplayLabel = #25286#25187#29575
FieldName = 'ZkRate'
end
object ADO_masterZkAllmoney: TBCDField
FieldName = 'ZkAllmoney'
Precision = 19
end
object Ado_MasterOperateMan: TStringField
FieldName = 'OperateMan'
Size = 18
end
end
inherited ADO_Detail: TADOTable
Connection = F_Dm.DBcon
CursorType = ctStatic
AfterInsert = ADO_DetailAfterInsert
BeforePost = ADO_DetailBeforePost
MasterFields = 'OrderNo'
MasterSource = Ds_Master
TableName = 'OrderDetail'
Left = 464
Top = 288
object ADO_DetailProductTm: TStringField
DisplayLabel = #20135#21697#30721
DisplayWidth = 16
FieldName = 'ProductTm'
end
object ADO_DetailItemNO: TStringField
DisplayLabel = #27454#21495
DisplayWidth = 7
FieldName = 'ItemNO'
Size = 6
end
object ADO_DetailGroupname: TStringField
DisplayLabel = #32452#21035
FieldName = 'Groupname'
Size = 30
end
object ADO_DetailhandCount: TIntegerField
DisplayLabel = #25163#25968
DisplayWidth = 10
FieldName = 'handCount'
end
object ADO_DetailPerhandcount: TIntegerField
DisplayLabel = #27599#25163#25968#37327
DisplayWidth = 10
FieldName = 'Perhandcount'
end
object ADO_DetailOrderCount: TIntegerField
DisplayLabel = #25968#37327
DisplayWidth = 10
FieldName = 'OrderCount'
end
object ADO_DetailOrderMoney: TBCDField
DisplayLabel = #37329#39069
DisplayWidth = 20
FieldName = 'OrderMoney'
Precision = 19
end
object ADO_DetailOrderNo: TStringField
FieldName = 'OrderNo'
end
object ADO_DetailOrderPrice: TFloatField
DisplayLabel = #21333#20215
FieldName = 'OrderPrice'
end
object ADO_DetailGroupNO: TStringField
FieldName = 'GroupNO'
Size = 3
end
end
inherited SkinData1: TSkinData
SkinStream = {00000000}
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -