📄 uyhjgb.dfm
字号:
inherited frmYHJGB: TfrmYHJGB
Left = 12
Top = 0
Caption = ''
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 12
inherited Panel2: TPanel
inherited TreeView1: TTreeView
OnClick = TreeView1Click
end
end
inherited pagTemp: TPageControl
inherited tabEdit: TTabSheet
inherited Panel6: TPanel
inherited scrMain: TScrollBox
object Panel1: TPanel
Left = 0
Top = 0
Width = 628
Height = 417
Align = alClient
TabOrder = 0
object Bevel1: TBevel
Left = 8
Top = 120
Width = 609
Height = 17
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 609
Height = 105
TabOrder = 0
object Label2: TLabel
Left = 208
Top = 16
Width = 48
Height = 12
Caption = '银行名称'
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 408
Top = 16
Width = 48
Height = 12
Caption = '机构级别'
FocusControl = DBEdit3
end
object Label4: TLabel
Left = 8
Top = 64
Width = 24
Height = 12
Caption = '地址'
FocusControl = DBEdit4
end
object Label5: TLabel
Left = 208
Top = 64
Width = 48
Height = 12
Caption = '邮政编码'
FocusControl = DBEdit5
end
object Label6: TLabel
Left = 304
Top = 64
Width = 48
Height = 12
Caption = '联系部门'
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 408
Top = 64
Width = 48
Height = 12
Caption = '联系电话'
FocusControl = DBEdit7
end
object Label1: TLabel
Left = 8
Top = 16
Width = 48
Height = 12
Caption = '银行行号'
FocusControl = DBEdit1
end
object DBEdit2: TDBEdit
Left = 208
Top = 32
Width = 196
Height = 20
DataField = 'YHMC'
DataSource = souTemp
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 408
Top = 32
Width = 89
Height = 20
DataField = 'JGJB'
DataSource = souTemp
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 8
Top = 80
Width = 193
Height = 20
DataField = 'DZ'
DataSource = souTemp
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 208
Top = 80
Width = 89
Height = 20
DataField = 'YZBM'
DataSource = souTemp
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 304
Top = 80
Width = 98
Height = 20
DataField = 'LXBM'
DataSource = souTemp
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 408
Top = 80
Width = 90
Height = 20
DataField = 'LXDH'
DataSource = souTemp
TabOrder = 6
end
object DBEdit1: TDBEdit
Left = 8
Top = 32
Width = 193
Height = 20
DataField = 'YHHH'
DataSource = souTemp
TabOrder = 0
end
object chkSYYH: TCheckBox
Left = 504
Top = 81
Width = 97
Height = 17
Caption = '所有银行机构'
TabOrder = 7
OnClick = chkSYYHClick
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 144
Width = 609
Height = 257
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 14
Width = 605
Height = 241
Align = alClient
DataSource = souTemp
ImeName = '中文 (简体) - 微软拼音'
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'YHHH'
Title.Caption = '银行行号'
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'YHMC'
Title.Caption = '银行名称'
Width = 116
Visible = True
end
item
Expanded = False
FieldName = 'JGJB'
Title.Caption = '机构级别'
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'DZ'
Title.Caption = '地址'
Width = 139
Visible = True
end
item
Expanded = False
FieldName = 'YZBM'
Title.Caption = '邮政编码'
Width = 58
Visible = True
end
item
Expanded = False
FieldName = 'LXBM'
Title.Caption = '联系部门'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'LXDH'
Title.Caption = '联系电话'
Visible = True
end>
end
end
end
end
end
end
inherited tabBrowse: TTabSheet
Caption = '查询界面'
object Bevel2: TBevel [0]
Left = 0
Top = 152
Width = 633
Height = 17
end
inherited pnlBrowse: TPanel
Width = 637
Caption = ' 查询操作'
end
object GroupBox3: TGroupBox
Left = 2
Top = 40
Width = 633
Height = 105
TabOrder = 1
object Label8: TLabel
Left = 17
Top = 46
Width = 48
Height = 12
Caption = '银行行号'
end
object Label9: TLabel
Left = 16
Top = 75
Width = 48
Height = 12
Caption = '银行名称'
end
object btnCXYHHH: TSpeedButton
Left = 208
Top = 39
Width = 39
Height = 22
Caption = '查询'
OnClick = btnCXYHHHClick
end
object btnCXYYMC: TSpeedButton
Left = 208
Top = 71
Width = 39
Height = 22
Caption = '查询'
OnClick = btnCXYYMCClick
end
object Label10: TLabel
Left = 16
Top = 16
Width = 180
Height = 12
Caption = '请输入查询条件(可进行模糊查询)'
end
object chkCX: TCheckBox
Left = 256
Top = 75
Width = 97
Height = 17
Caption = '显示所有银行'
TabOrder = 0
OnClick = chkCXClick
end
object edtYHHH: TEdit
Left = 72
Top = 41
Width = 121
Height = 20
TabOrder = 1
OnChange = edtYHHHChange
end
object edtYHMC: TEdit
Left = 72
Top = 71
Width = 121
Height = 20
TabOrder = 2
OnChange = edtYHMCChange
end
object chkZD: TCheckBox
Left = 256
Top = 56
Width = 97
Height = 17
Caption = '自动匹配'
TabOrder = 3
end
end
object GroupBox4: TGroupBox
Left = 0
Top = 174
Width = 633
Height = 285
TabOrder = 2
object DBGrid2: TDBGrid
Left = 2
Top = 14
Width = 629
Height = 269
Align = alClient
DataSource = souTemp
ImeName = '中文 (简体) - 微软拼音'
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'YHHH'
Title.Caption = '银行行号'
Width = 76
Visible = True
end
item
Expanded = False
FieldName = 'YHMC'
Title.Caption = '银行名称'
Width = 103
Visible = True
end
item
Expanded = False
FieldName = 'JGJB'
Title.Caption = '机构级别'
Visible = True
end
item
Expanded = False
FieldName = 'DZ'
Title.Caption = '地址'
Width = 141
Visible = True
end
item
Expanded = False
FieldName = 'YZBM'
Title.Caption = '邮政编码'
Visible = True
end
item
Expanded = False
FieldName = 'LXBM'
Title.Caption = '联系部门'
Visible = True
end
item
Expanded = False
FieldName = 'LXDH'
Title.Caption = '联系电话'
Visible = True
end>
end
end
end
end
inherited qryTemp: TwwQuery
SQL.Strings = (
'select * from tYHJGB order by YHHH')
object qryTempYHHH: TStringField
FieldName = 'YHHH'
Origin = 'MAINDB.TYHJGB.YHHH'
Size = 30
end
object qryTempYHMC: TStringField
FieldName = 'YHMC'
Origin = 'MAINDB.TYHJGB.YHMC'
Size = 40
end
object qryTempJGJB: TFloatField
FieldName = 'JGJB'
Origin = 'MAINDB.TYHJGB.JGJB'
end
object qryTempDZ: TStringField
FieldName = 'DZ'
Origin = 'MAINDB.TYHJGB.DZ'
FixedChar = True
Size = 40
end
object qryTempYZBM: TStringField
FieldName = 'YZBM'
Origin = 'MAINDB.TYHJGB.YZBM'
FixedChar = True
Size = 6
end
object qryTempLXBM: TStringField
FieldName = 'LXBM'
Origin = 'MAINDB.TYHJGB.LXBM'
FixedChar = True
Size = 16
end
object qryTempLXDH: TStringField
FieldName = 'LXDH'
Origin = 'MAINDB.TYHJGB.LXDH'
FixedChar = True
Size = 14
end
end
inherited sqlTemp: TUpdateSQL
ModifySQL.Strings = (
'update tYHJGB'
'set'
' YHHH = :YHHH,'
' YHMC = :YHMC,'
' JGJB = :JGJB,'
' DZ = :DZ,'
' YZBM = :YZBM,'
' LXBM = :LXBM,'
' LXDH = :LXDH'
'where'
' YHHH = :OLD_YHHH')
InsertSQL.Strings = (
'insert into tYHJGB'
' (YHHH, YHMC, JGJB, DZ, YZBM, LXBM, LXDH)'
'values'
' (:YHHH, :YHMC, :JGJB, :DZ, :YZBM, :LXBM, :LXDH)')
DeleteSQL.Strings = (
'delete from tYHJGB'
'where'
' YHHH = :OLD_YHHH')
end
inherited mnuTemp: TPopupMenu
inherited Q1: TMenuItem
Caption = '查询[&F]'
ShortCut = 16454
end
end
object souYHHH: TDataSource
DataSet = qryYHHH
Left = 262
Top = 99
end
object qryYHHH: TQuery
DatabaseName = 'MainDB'
Left = 302
Top = 99
end
object souYHMC: TDataSource
DataSet = qryYHMC
Left = 374
Top = 100
end
object qryYHMC: TQuery
DatabaseName = 'MainDB'
Left = 406
Top = 100
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -