?? ps_ordbill.dfm
字號:
object F_ordbill: TF_ordbill
Left = 192
Top = 110
BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
BorderStyle = bsSingle
Caption = #37319#36141'/'#35746#36141#36164#26009
ClientHeight = 407
ClientWidth = 513
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDesktopCenter
Visible = True
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDeactivate = FormDeactivate
PixelsPerInch = 96
TextHeight = 13
object DBGrid2: TDBGrid
Left = 0
Top = 201
Width = 513
Height = 206
Align = alClient
DataSource = comdatabase.DS_ordbillsub
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnMouseUp = DBGrid2MouseUp
Columns = <
item
Expanded = False
FieldName = 'flag'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'billno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'serialno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'productid'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'productid2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'amount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'price'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ReadOnly = True
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'money'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ReadOnly = True
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'taxrate'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'tax'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ReadOnly = True
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'memo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'translated'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ReadOnly = True
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -13
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Width = 64
Visible = True
end>
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 513
Height = 201
Align = alTop
TabOrder = 1
OnMouseUp = GroupBox1MouseUp
object L_targetid1: TLabel
Left = 8
Top = 65
Width = 65
Height = 16
Caption = #21378#21830#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_personid1: TLabel
Left = 8
Top = 114
Width = 65
Height = 16
Caption = #37319#36141#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_totaltax1: TLabel
Left = 149
Top = 139
Width = 39
Height = 16
Caption = #31246#37329#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_memo1: TLabel
Left = 288
Top = 40
Width = 39
Height = 16
Caption = #22791#27880#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_totalmoney: TLabel
Left = 8
Top = 139
Width = 39
Height = 16
Caption = #37329#39069#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_name1: TLabel
Left = 149
Top = 118
Width = 65
Height = 16
Caption = #20154#21592#22995#21517#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_shortname: TLabel
Left = 149
Top = 65
Width = 65
Height = 16
Caption = #20844#21496#31616#31216#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_billno: TLabel
Left = 8
Top = 40
Width = 29
Height = 16
Caption = #21333#21495':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_deliveryaddr: TLabel
Left = 8
Top = 90
Width = 65
Height = 16
Caption = #36865#36135#22320#22336#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_title1: TLabel
Left = 8
Top = 12
Width = 125
Height = 20
Caption = #37319#36141'/'#35746#36141#21333#20449#24687
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnMouseUp = GroupBox1MouseUp
end
object L_title2: TLabel
Left = 8
Top = 172
Width = 86
Height = 20
Caption = #21333#20013#20869#23481#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object M_memo1: TDBMemo
Left = 288
Top = 56
Width = 217
Height = 105
DataField = 'memo'
DataSource = comdatabase.DS_ordbillmain
ScrollBars = ssVertical
TabOrder = 0
OnMouseUp = GroupBox1MouseUp
end
object E_shortname1: TDBEdit
Left = 208
Top = 63
Width = 73
Height = 21
DataField = 'name'
DataSource = comdatabase.DS_comcustomer
Enabled = False
TabOrder = 1
OnMouseUp = GroupBox1MouseUp
end
object CB_personid1: TDBLookupComboBox
Left = 72
Top = 112
Width = 73
Height = 21
DataField = 'personid'
DataSource = comdatabase.DS_ordbillmain
KeyField = 'id'
ListField = 'id'
ListSource = comdatabase.DS_comperson
TabOrder = 2
OnCloseUp = CB_personid1CloseUp
OnMouseUp = GroupBox1MouseUp
end
object E_name1: TDBEdit
Left = 208
Top = 112
Width = 73
Height = 21
DataField = 'name'
DataSource = comdatabase.DS_comperson
Enabled = False
TabOrder = 3
OnMouseUp = GroupBox1MouseUp
end
object E_totalmoney1: TDBEdit
Left = 48
Top = 137
Width = 97
Height = 21
DataField = 'totalmoney'
DataSource = comdatabase.DS_ordbillmain
Enabled = False
ReadOnly = True
TabOrder = 4
OnMouseUp = GroupBox1MouseUp
end
object E_totaltax1: TDBEdit
Left = 192
Top = 137
Width = 89
Height = 21
DataField = 'totaltax'
DataSource = comdatabase.DS_ordbillmain
Enabled = False
ReadOnly = True
TabOrder = 5
OnMouseUp = GroupBox1MouseUp
end
object CB_deliveryaddr: TComboBox
Left = 72
Top = 88
Width = 209
Height = 21
ItemHeight = 13
TabOrder = 6
Text = 'CB_deliveryaddr'
OnChange = CB_deliveryaddrChange
end
object CB_targetid1: TDBLookupComboBox
Left = 72
Top = 63
Width = 73
Height = 21
DataField = 'targetid'
DataSource = comdatabase.DS_ordbillmain
KeyField = 'id'
ListField = 'id'
ListSource = comdatabase.DS_comcustomer
TabOrder = 7
OnCloseUp = CB_targetid1CloseUp
end
object CB_billno: TComboBox
Left = 72
Top = 40
Width = 209
Height = 21
ItemHeight = 13
TabOrder = 8
Text = 'CB_billno'
OnChange = CB_billnoChange
end
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -