📄 u_customermain.dfm
字号:
object frmCustomerMain: TfrmCustomerMain
Left = 179
Top = 165
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #23458#25143#36164#26009
ClientHeight = 342
ClientWidth = 749
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
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 749
Height = 342
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 747
Height = 288
Align = alTop
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'CusClass'
Title.Alignment = taCenter
Title.Caption = #23458#25143#31867#21035
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusNO'
Title.Alignment = taCenter
Title.Caption = #32534#21495' '
Width = 51
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusSName'
Title.Alignment = taCenter
Title.Caption = #23458#25143#21517#31216
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusFName'
Title.Alignment = taCenter
Title.Caption = #23458#25143#20840#31216
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusMan'
Title.Alignment = taCenter
Title.Caption = #32852#31995#20154
Width = 65
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusTel'
Title.Alignment = taCenter
Title.Caption = #30005#35805
Width = 125
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusFax'
Title.Alignment = taCenter
Title.Caption = #20256#30495
Width = 125
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusPost'
Title.Alignment = taCenter
Title.Caption = #37038#25919#32534#30721
Width = 53
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusAddr'
Title.Alignment = taCenter
Title.Caption = #22320#22336
Width = 305
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusBank'
Title.Alignment = taCenter
Title.Caption = #24320#25143#38134#34892
Width = 125
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusBandAccount'
Title.Alignment = taCenter
Title.Caption = #38134#34892#24080#21495
Width = 125
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusTax'
Title.Alignment = taCenter
Title.Caption = #31246#21495
Width = 305
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'CusNote'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 305
Visible = True
end>
end
object btnDelete: TBitBtn
Left = 413
Top = 307
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = btnDeleteClick
end
object btnClose: TBitBtn
Left = 573
Top = 307
Width = 75
Height = 25
Caption = #36864#12288#20986
TabOrder = 2
OnClick = btnCloseClick
end
object btnAdd: TBitBtn
Left = 93
Top = 307
Width = 75
Height = 25
Caption = #22686#21152
TabOrder = 3
OnClick = btnAddClick
end
object btnEdit: TBitBtn
Left = 253
Top = 307
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 4
OnClick = btnEditClick
end
end
object qry: TADOQuery
Connection = frmDataCtrl.ADOConn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from vw_Customer')
Left = 448
Top = 40
end
object DataSource1: TDataSource
DataSet = qry
Left = 496
Top = 40
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -