📄 pfm_test.dfm
字号:
object fm_test: Tfm_test
Left = 189
Top = 19
Width = 580
Height = 527
Caption = 'fm_test'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
Menu = MainMenu1
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 572
Height = 481
ActivePage = TabSheet2
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '供应商基本信息'
object Label1: TLabel
Left = 16
Top = 32
Width = 73
Height = 13
AutoSize = False
Caption = '供应商代码'
FocusControl = DBEdit1
end
object Label2: TLabel
Left = 136
Top = 32
Width = 81
Height = 13
AutoSize = False
Caption = '供应商名称'
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 16
Top = 63
Width = 73
Height = 13
AutoSize = False
Caption = '联系地址'
FocusControl = DBEdit3
end
object Label4: TLabel
Left = 16
Top = 93
Width = 65
Height = 13
AutoSize = False
Caption = '邮政编码'
FocusControl = DBEdit4
end
object Label5: TLabel
Left = 16
Top = 124
Width = 65
Height = 13
AutoSize = False
Caption = '联系电话'
FocusControl = DBEdit5
end
object Label6: TLabel
Left = 16
Top = 154
Width = 49
Height = 13
AutoSize = False
Caption = '联系人'
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 16
Top = 185
Width = 24
Height = 13
AutoSize = False
Caption = '传真'
FocusControl = DBEdit7
end
object Label8: TLabel
Left = 16
Top = 215
Width = 65
Height = 13
AutoSize = False
Caption = '开户银行'
FocusControl = DBEdit8
end
object Label9: TLabel
Left = 16
Top = 246
Width = 57
Height = 13
AutoSize = False
Caption = '银行帐号'
FocusControl = DBEdit9
end
object Label10: TLabel
Left = 16
Top = 276
Width = 57
Height = 13
AutoSize = False
Caption = '增值税票'
FocusControl = DBEdit10
end
object Label11: TLabel
Left = 16
Top = 307
Width = 57
Height = 13
AutoSize = False
Caption = '主要产品'
FocusControl = DBEdit11
end
object Label12: TLabel
Left = 16
Top = 337
Width = 65
Height = 13
AutoSize = False
Caption = '结算方式'
FocusControl = DBEdit12
end
object Label13: TLabel
Left = 16
Top = 368
Width = 65
Height = 13
AutoSize = False
Caption = '操作员码'
FocusControl = DBEdit13
end
object DBEdit1: TDBEdit
Left = 96
Top = 32
Width = 33
Height = 21
DataField = 'gysdm'
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 232
Top = 32
Width = 184
Height = 21
DataField = 'gysmc'
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 96
Top = 63
Width = 209
Height = 21
DataField = 'lxdz'
DataSource = DataSource1
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 96
Top = 93
Width = 57
Height = 21
DataField = 'yzbm'
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 96
Top = 124
Width = 124
Height = 21
DataField = 'lxdh'
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 96
Top = 154
Width = 124
Height = 21
DataField = 'lxr'
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 96
Top = 185
Width = 76
Height = 21
DataField = 'cz'
TabOrder = 6
end
object DBEdit8: TDBEdit
Left = 96
Top = 215
Width = 184
Height = 21
DataField = 'khyh'
TabOrder = 7
end
object DBEdit9: TDBEdit
Left = 96
Top = 246
Width = 185
Height = 21
DataField = 'yhzh'
TabOrder = 8
end
object DBEdit10: TDBEdit
Left = 96
Top = 276
Width = 94
Height = 21
DataField = 'zzsh'
TabOrder = 9
end
object DBEdit11: TDBEdit
Left = 96
Top = 307
Width = 184
Height = 21
DataField = 'zysp'
TabOrder = 10
end
object DBEdit12: TDBEdit
Left = 96
Top = 337
Width = 57
Height = 21
DataField = 'jsfs'
TabOrder = 11
end
object DBEdit13: TDBEdit
Left = 96
Top = 368
Width = 57
Height = 21
DataField = 'czym'
TabOrder = 12
end
object BitBtn_add: TBitBtn
Left = 256
Top = 400
Width = 75
Height = 25
Caption = '追加'
TabOrder = 13
end
object BitBtn_del: TBitBtn
Left = 336
Top = 400
Width = 75
Height = 25
Caption = '删除'
TabOrder = 14
end
object BitBtn_save: TBitBtn
Left = 416
Top = 400
Width = 75
Height = 25
Caption = '保存'
TabOrder = 15
end
object BitBtn_first: TBitBtn
Left = 16
Top = 400
Width = 49
Height = 25
Caption = '<<'
TabOrder = 16
end
object BitBtn_prev: TBitBtn
Left = 72
Top = 400
Width = 49
Height = 25
Caption = '<'
TabOrder = 17
end
object BitBtn_next: TBitBtn
Left = 128
Top = 400
Width = 49
Height = 25
Caption = '>'
TabOrder = 18
end
object BitBtn_last: TBitBtn
Left = 184
Top = 400
Width = 49
Height = 25
Caption = '>>'
TabOrder = 19
end
end
object TabSheet2: TTabSheet
Caption = '维护列表'
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 564
Height = 401
Align = alTop
Color = clInfoBk
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'gysdm'
Visible = True
end
item
Expanded = False
FieldName = 'gysmc'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'lxdz'
Visible = True
end
item
Expanded = False
FieldName = 'yzbm'
Visible = True
end
item
Expanded = False
FieldName = 'lxdh'
Visible = True
end
item
Expanded = False
FieldName = 'lxr'
Visible = True
end
item
Expanded = False
FieldName = 'cz'
Visible = True
end
item
Expanded = False
FieldName = 'khyh'
Visible = True
end
item
Expanded = False
FieldName = 'yhzh'
Visible = True
end
item
Expanded = False
FieldName = 'zzsh'
Visible = True
end
item
Expanded = False
FieldName = 'zysp'
Visible = True
end
item
Expanded = False
FieldName = 'jsfs'
Visible = True
end
item
Expanded = False
FieldName = 'czym'
Visible = True
end>
end
object BitBtn5: TBitBtn
Left = 64
Top = 408
Width = 75
Height = 25
Caption = '全部数据'
TabOrder = 1
end
object BitBtn6: TBitBtn
Left = 152
Top = 408
Width = 75
Height = 25
Caption = '查询'
TabOrder = 2
end
end
end
object MainMenu1: TMainMenu
Left = 104
Top = 72
object N1: TMenuItem
Caption = '测试'
end
end
object Table1: TTable
Active = True
DatabaseName = 'jsdb'
TableName = 'dbo.t_gysxx'
Left = 132
Top = 32
object Table1gysdm: TStringField
FieldName = 'gysdm'
Required = True
FixedChar = True
Size = 4
end
object Table1gysmc: TStringField
FieldName = 'gysmc'
Required = True
Size = 30
end
object Table1lxdz: TStringField
FieldName = 'lxdz'
Size = 30
end
object Table1yzbm: TStringField
FieldName = 'yzbm'
FixedChar = True
Size = 6
end
object Table1lxdh: TStringField
FieldName = 'lxdh'
end
object Table1lxr: TStringField
FieldName = 'lxr'
end
object Table1cz: TStringField
FieldName = 'cz'
Size = 12
end
object Table1khyh: TStringField
FieldName = 'khyh'
Required = True
Size = 30
end
object Table1yhzh: TStringField
FieldName = 'yhzh'
Required = True
Size = 22
end
object Table1zzsh: TStringField
FieldName = 'zzsh'
Size = 15
end
object Table1zysp: TStringField
FieldName = 'zysp'
Required = True
Size = 30
end
object Table1jsfs: TStringField
FieldName = 'jsfs'
FixedChar = True
Size = 1
end
object Table1czym: TStringField
FieldName = 'czym'
FixedChar = True
Size = 5
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 164
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -