📄 pfm_gys.dfm
字号:
object fm_gys: Tfm_gys
Left = 207
Top = 136
Width = 697
Height = 505
Caption = '供应商信息管理'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 689
Height = 478
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '供应商基本信息'
object Label1: TLabel
Left = 16
Top = 20
Width = 73
Height = 13
AutoSize = False
Caption = '供应商代码'
end
object Label2: TLabel
Left = 16
Top = 48
Width = 73
Height = 13
AutoSize = False
Caption = '供应商名称'
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 16
Top = 75
Width = 73
Height = 13
AutoSize = False
Caption = '联系地址'
FocusControl = DBEdit3
end
object Label4: TLabel
Left = 16
Top = 101
Width = 65
Height = 13
AutoSize = False
Caption = '邮政编码'
FocusControl = DBEdit4
end
object Label5: TLabel
Left = 16
Top = 132
Width = 65
Height = 13
AutoSize = False
Caption = '联系电话'
FocusControl = DBEdit5
end
object Label6: TLabel
Left = 16
Top = 162
Width = 49
Height = 13
AutoSize = False
Caption = '联系人'
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 16
Top = 193
Width = 24
Height = 13
AutoSize = False
Caption = '传真'
FocusControl = DBEdit7
end
object Label8: TLabel
Left = 16
Top = 223
Width = 65
Height = 13
AutoSize = False
Caption = '开户银行'
FocusControl = DBEdit8
end
object Label9: TLabel
Left = 16
Top = 254
Width = 57
Height = 13
AutoSize = False
Caption = '银行帐号'
FocusControl = DBEdit9
end
object Label10: TLabel
Left = 16
Top = 284
Width = 57
Height = 13
AutoSize = False
Caption = '增值税票'
FocusControl = DBEdit10
end
object Label11: TLabel
Left = 16
Top = 315
Width = 57
Height = 13
AutoSize = False
Caption = '主要产品'
FocusControl = DBEdit11
end
object Label12: TLabel
Left = 16
Top = 345
Width = 65
Height = 13
AutoSize = False
Caption = '结算方式'
end
object DBEdit2: TDBEdit
Left = 96
Top = 16
Width = 65
Height = 21
DataField = 'gysmc'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit3: TDBEdit
Left = 96
Top = 71
Width = 209
Height = 21
DataField = 'lxdz'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit4: TDBEdit
Left = 96
Top = 101
Width = 209
Height = 21
DataField = 'yzbm'
DataSource = DataSource1
TabOrder = 2
end
object DBEdit5: TDBEdit
Left = 96
Top = 132
Width = 209
Height = 21
DataField = 'lxdh'
DataSource = DataSource1
TabOrder = 3
end
object DBEdit6: TDBEdit
Left = 96
Top = 162
Width = 209
Height = 21
DataField = 'lxr'
DataSource = DataSource1
TabOrder = 4
end
object DBEdit7: TDBEdit
Left = 96
Top = 193
Width = 209
Height = 21
DataField = 'fax'
DataSource = DataSource1
TabOrder = 5
end
object DBEdit8: TDBEdit
Left = 96
Top = 223
Width = 209
Height = 21
DataField = 'khyh'
DataSource = DataSource1
TabOrder = 6
end
object DBEdit9: TDBEdit
Left = 96
Top = 254
Width = 209
Height = 21
DataField = 'yhzh'
DataSource = DataSource1
TabOrder = 7
end
object DBEdit10: TDBEdit
Left = 96
Top = 284
Width = 209
Height = 21
DataField = 'zzsh'
DataSource = DataSource1
TabOrder = 8
end
object DBEdit11: TDBEdit
Left = 96
Top = 315
Width = 209
Height = 21
DataField = 'zysp'
DataSource = DataSource1
TabOrder = 9
end
object BitBtn_add: TBitBtn
Left = 256
Top = 400
Width = 75
Height = 25
Caption = '追加'
TabOrder = 10
OnClick = BitBtn_addClick
end
object BitBtn_del: TBitBtn
Left = 336
Top = 400
Width = 75
Height = 25
Caption = '删除'
TabOrder = 11
OnClick = BitBtn_delClick
end
object BitBtn_save: TBitBtn
Left = 416
Top = 400
Width = 75
Height = 25
Caption = '保存'
Enabled = False
TabOrder = 12
OnClick = BitBtn_saveClick
end
object BitBtn_first: TBitBtn
Left = 16
Top = 400
Width = 49
Height = 25
Caption = '<<'
TabOrder = 13
OnClick = BitBtn_firstClick
end
object BitBtn_prev: TBitBtn
Left = 72
Top = 400
Width = 49
Height = 25
Caption = '<'
TabOrder = 14
OnClick = BitBtn_prevClick
end
object BitBtn_next: TBitBtn
Left = 128
Top = 400
Width = 49
Height = 25
Caption = '>'
TabOrder = 15
OnClick = BitBtn_nextClick
end
object BitBtn_last: TBitBtn
Left = 184
Top = 400
Width = 49
Height = 25
Caption = '>>'
TabOrder = 16
OnClick = BitBtn_lastClick
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 96
Top = 344
Width = 209
Height = 21
DataField = 'jsfs'
DataSource = DataSource1
KeyField = 'value'
ListField = 'value'
ListSource = DataSource2
TabOrder = 17
end
object BitBtn_cancel: TBitBtn
Left = 496
Top = 400
Width = 75
Height = 25
Caption = '取消'
Enabled = False
TabOrder = 18
OnClick = BitBtn_cancelClick
end
object BitBtn_quit: TBitBtn
Left = 592
Top = 400
Width = 75
Height = 25
Caption = '退出'
TabOrder = 19
OnClick = BitBtn_quitClick
end
object DBEdit1: TDBEdit
Left = 96
Top = 44
Width = 209
Height = 21
DataField = 'gysname'
DataSource = DataSource1
TabOrder = 20
end
end
object TabSheet2: TTabSheet
Caption = '维护列表'
ImageIndex = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 681
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 = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
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'
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 = 'fax'
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>
end
object BitBtn5: TBitBtn
Left = 64
Top = 408
Width = 75
Height = 25
Caption = '全部数据'
TabOrder = 1
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 152
Top = 408
Width = 75
Height = 25
Caption = '查询'
TabOrder = 2
OnClick = BitBtn6Click
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 164
Top = 56
end
object Query1: TQuery
CachedUpdates = True
AfterInsert = Query1AfterInsert
AfterEdit = Query1AfterInsert
AfterPost = Query1AfterPost
AfterScroll = Query1AfterScroll
DatabaseName = 'posdb'
RequestLive = True
SQL.Strings = (
'select * from t_gysxx')
Left = 108
Top = 104
object Query1gysdm: TIntegerField
FieldName = 'gysdm'
Origin = 'POSDB."dbo.t_gysxx".gysdm'
end
object Query1gysmc: TStringField
FieldName = 'gysmc'
Origin = 'POSDB."dbo.t_gysxx".gysmc'
Size = 30
end
object Query1gysname: TStringField
FieldName = 'gysname'
Origin = 'POSDB."dbo.t_gysxx".gysname'
FixedChar = True
Size = 30
end
object Query1lxdz: TStringField
FieldName = 'lxdz'
Origin = 'POSDB."dbo.t_gysxx".lxdz'
Size = 30
end
object Query1yzbm: TStringField
FieldName = 'yzbm'
Origin = 'POSDB."dbo.t_gysxx".yzbm'
FixedChar = True
Size = 6
end
object Query1lxdh: TStringField
FieldName = 'lxdh'
Origin = 'POSDB."dbo.t_gysxx".lxdh'
end
object Query1lxr: TStringField
FieldName = 'lxr'
Origin = 'POSDB."dbo.t_gysxx".lxr'
end
object Query1fax: TStringField
FieldName = 'fax'
Origin = 'POSDB."dbo.t_gysxx".fax'
Size = 12
end
object Query1khyh: TStringField
FieldName = 'khyh'
Origin = 'POSDB."dbo.t_gysxx".khyh'
Size = 30
end
object Query1yhzh: TStringField
FieldName = 'yhzh'
Origin = 'POSDB."dbo.t_gysxx".yhzh'
Size = 22
end
object Query1zzsh: TStringField
FieldName = 'zzsh'
Origin = 'POSDB."dbo.t_gysxx".zzsh'
Size = 15
end
object Query1zysp: TStringField
FieldName = 'zysp'
Origin = 'POSDB."dbo.t_gysxx".zysp'
Size = 30
end
object Query1jsfs: TStringField
FieldName = 'jsfs'
Origin = 'POSDB."dbo.t_gysxx".jsfs'
FixedChar = True
Size = 10
end
end
object Query2: TQuery
Active = True
DatabaseName = 'posdb'
SQL.Strings = (
'select mid,value,colcn from t_datadict')
Left = 284
Top = 136
end
object DataSource2: TDataSource
DataSet = Query2
Left = 316
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -