📄 u_supply.dfm
字号:
object frmSupplyInfo: TfrmSupplyInfo
Left = 166
Top = 161
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #20379#24212#21830#20449#24687
ClientHeight = 323
ClientWidth = 764
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 764
Height = 323
Align = alClient
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 0
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 762
Height = 272
Align = alTop
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
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 = 'SupNO'
Title.Alignment = taCenter
Title.Caption = #32534#21495' '
Width = 52
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupSName'
Title.Alignment = taCenter
Title.Caption = #31616#31216
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupFName'
Title.Alignment = taCenter
Title.Caption = #20840#31216
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupMan'
Title.Alignment = taCenter
Title.Caption = #32852#31995#20154
Width = 65
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupTel'
Title.Alignment = taCenter
Title.Caption = #30005#35805
Width = 130
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupFax'
Title.Alignment = taCenter
Title.Caption = #20256#30495
Width = 120
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupPost'
Title.Alignment = taCenter
Title.Caption = #37038#25919#32534#30721
Width = 55
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupAddr'
Title.Alignment = taCenter
Title.Caption = #22320#22336
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupBank'
Title.Alignment = taCenter
Title.Caption = #24320#25143#38134#34892
Width = 123
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupBandAccount'
Title.Alignment = taCenter
Title.Caption = #38134#34892#24080#21495
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupTax'
Title.Alignment = taCenter
Title.Caption = #31246#21495
Width = 190
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'SupNote'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 200
Visible = True
end>
end
object btnAdd: TBitBtn
Left = 94
Top = 288
Width = 75
Height = 25
Caption = #22686#21152
TabOrder = 1
OnClick = btnAddClick
end
object btnClose: TBitBtn
Left = 534
Top = 288
Width = 75
Height = 25
Caption = #36864#12288#20986
TabOrder = 2
OnClick = btnCloseClick
end
object btnEdit: TBitBtn
Left = 240
Top = 288
Width = 75
Height = 25
Caption = #20462#25913
TabOrder = 3
OnClick = btnEditClick
end
object btnDelete: TBitBtn
Left = 387
Top = 288
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 4
OnClick = btnDeleteClick
end
end
object qry: TADOQuery
Connection = frmDataCtrl.ADOConn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from tb_Supply'
'')
Left = 424
Top = 40
end
object DataSource1: TDataSource
DataSet = qry
Left = 496
Top = 40
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -