📄 uyhqx.dfm
字号:
object FYHQX: TFYHQX
Left = 340
Top = 222
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #29992#25143#19982#26435#38480
ClientHeight = 490
ClientWidth = 598
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 598
Height = 490
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #26435#38480#32452#20449#24687
object Panel1: TPanel
Left = 0
Top = 0
Width = 209
Height = 463
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object Panel3: TPanel
Left = 0
Top = 0
Width = 209
Height = 32
Align = alTop
TabOrder = 0
object BitBtn1: TBitBtn
Left = 4
Top = 3
Width = 60
Height = 25
Caption = '1'#65294#22686#21152
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 66
Top = 3
Width = 60
Height = 25
Caption = #65298#65294#20462#25913
TabOrder = 1
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 128
Top = 3
Width = 60
Height = 25
Caption = #65299#65294#21024#38500
TabOrder = 2
OnClick = BitBtn3Click
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 32
Width = 209
Height = 431
Align = alClient
DataSource = DataSource1
Flat = False
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'QXID'
Footers = <>
Title.Caption = #26435#38480
Width = 34
end
item
EditButtons = <>
FieldName = 'QXMC'
Footers = <>
Title.Caption = #26435#38480#32452#21517#31216
Width = 142
end>
end
end
object Panel2: TPanel
Left = 209
Top = 0
Width = 381
Height = 463
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Panel4: TPanel
Left = 0
Top = 0
Width = 381
Height = 32
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 6
Width = 171
Height = 19
Caption = #26435#38480#32452#34987#38480#21046#30340#21151#33021
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object TreeView1: TTreeView
Left = 0
Top = 32
Width = 381
Height = 431
Align = alClient
Indent = 19
TabOrder = 1
end
end
end
object TabSheet2: TTabSheet
Caption = #37096#38376#20449#24687
ImageIndex = 1
object Panel5: TPanel
Left = 0
Top = 0
Width = 590
Height = 32
Align = alTop
TabOrder = 0
object BitBtn4: TBitBtn
Left = 4
Top = 3
Width = 60
Height = 25
Caption = '7'#65294#22686#21152
TabOrder = 0
OnClick = BitBtn4Click
end
object BitBtn5: TBitBtn
Left = 66
Top = 3
Width = 60
Height = 25
Caption = '8'#65294#20462#25913
TabOrder = 1
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 128
Top = 3
Width = 60
Height = 25
Caption = '9'#65294#21024#38500
TabOrder = 2
OnClick = BitBtn6Click
end
end
object DBGridEh2: TDBGridEh
Left = 0
Top = 32
Width = 590
Height = 431
Align = alClient
DataSource = DataSource2
Flat = False
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'BMID'
Footers = <>
Title.Caption = #37096#38376
Width = 67
end
item
EditButtons = <>
FieldName = 'BMMC'
Footers = <>
Title.Caption = #37096#38376#21517#31216
end>
end
end
object TabSheet3: TTabSheet
Caption = #25805#20316#21592#20449#24687
ImageIndex = 2
object Panel6: TPanel
Left = 0
Top = 0
Width = 590
Height = 32
Align = alTop
TabOrder = 0
object BitBtn7: TBitBtn
Left = 4
Top = 3
Width = 60
Height = 25
Caption = '7'#65294#22686#21152
TabOrder = 0
OnClick = BitBtn7Click
end
object BitBtn8: TBitBtn
Left = 66
Top = 3
Width = 60
Height = 25
Caption = '8'#65294#20462#25913
TabOrder = 1
OnClick = BitBtn8Click
end
object BitBtn9: TBitBtn
Left = 128
Top = 3
Width = 60
Height = 25
Caption = '9'#65294#21024#38500
TabOrder = 2
OnClick = BitBtn9Click
end
object BitBtn10: TBitBtn
Left = 191
Top = 3
Width = 60
Height = 25
Caption = #28165#31354#23494#30721
TabOrder = 3
OnClick = BitBtn10Click
end
end
object DBGridEh3: TDBGridEh
Left = 0
Top = 32
Width = 590
Height = 431
Align = alClient
DataSource = DataSource3
Flat = False
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'CYZID'
Footers = <>
Title.Caption = #32534#21495
Width = 54
end
item
EditButtons = <>
FieldName = 'CZYMC'
Footers = <>
Title.Caption = #25805#20316#21592
Width = 78
end
item
EditButtons = <>
FieldName = 'BMMC'
Footers = <>
Title.Caption = #37096#38376
Width = 129
end
item
EditButtons = <>
FieldName = 'QXMC'
Footers = <>
Title.Caption = #26435#38480#32452
Width = 118
end
item
EditButtons = <>
FieldName = 'BZXX'
Footers = <>
Title.Caption = #22791#27880
Width = 169
end>
end
end
end
object ADOQ_QXZ: TADOQuery
Connection = DM.ADOConn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'')
Left = 261
Top = 191
end
object DataSource1: TDataSource
DataSet = ADOQ_QXZ
Left = 301
Top = 191
end
object DataSource2: TDataSource
DataSet = ADOQ_BM
Left = 300
Top = 231
end
object ADOQ_BM: TADOQuery
Connection = DM.ADOConn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT * FROM JCBMXX')
Left = 260
Top = 231
end
object ADOQ_CYZ: TADOQuery
Connection = DM.ADOConn
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT a.*,b.BMMC,c.QXMC from JCCZYXX a,JCBMXX b,JCQXXX c where '
'(a.BMID=b.BMID)and(a.QXID=c.QXID)')
Left = 260
Top = 263
end
object DataSource3: TDataSource
DataSet = ADOQ_CYZ
Left = 300
Top = 263
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -