📄 unit4.dfm
字号:
object FSZ: TFSZ
Left = 403
Top = 237
BorderStyle = bsDialog
Caption = #35774#32622
ClientHeight = 415
ClientWidth = 378
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 378
Height = 376
ActivePage = TabSheet1
Align = alClient
Style = tsFlatButtons
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #24037#24207' '#20154#21592
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 369
Height = 169
Caption = #24037#24207#35774#32622
TabOrder = 0
object DBGrid1: TDBGrid
Left = 8
Top = 16
Width = 133
Height = 145
DataSource = DataSource1
Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'gymc'
Title.Alignment = taCenter
Title.Caption = #24037#24207#21517#31216
Visible = True
end>
end
object Button1: TButton
Left = 192
Top = 24
Width = 129
Height = 33
Caption = #22686' '#21152
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 192
Top = 56
Width = 129
Height = 33
Caption = #30830' '#23450
Enabled = False
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 192
Top = 88
Width = 129
Height = 33
Caption = #21024' '#38500
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 192
Top = 120
Width = 129
Height = 33
Caption = #25764' '#28040
TabOrder = 4
OnClick = Button4Click
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 176
Width = 369
Height = 169
Caption = #24037#33402#21592#35774#32622
TabOrder = 1
object DBGrid2: TDBGrid
Left = 8
Top = 16
Width = 133
Height = 145
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'GYY'
Title.Alignment = taCenter
Title.Caption = #24037#24207#21517#31216
Visible = True
end>
end
object Button5: TButton
Left = 192
Top = 24
Width = 129
Height = 33
Caption = #22686' '#21152
TabOrder = 1
OnClick = Button5Click
end
object Button6: TButton
Left = 192
Top = 56
Width = 129
Height = 33
Caption = #30830' '#23450
Enabled = False
TabOrder = 2
OnClick = Button6Click
end
object Button7: TButton
Left = 192
Top = 88
Width = 129
Height = 33
Caption = #21024' '#38500
TabOrder = 3
OnClick = Button7Click
end
object Button8: TButton
Left = 192
Top = 120
Width = 129
Height = 33
Caption = #25764' '#28040
TabOrder = 4
OnClick = Button8Click
end
end
end
object TabSheet2: TTabSheet
Caption = #35774#22791' '#23450#39069
ImageIndex = 1
object DBGrid3: TDBGrid
Left = 6
Top = 8
Width = 361
Height = 273
DataSource = DataSource3
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'SBXH'
Title.Alignment = taCenter
Title.Caption = #26426#24202#22411#21495
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'SBMC'
Title.Alignment = taCenter
Title.Caption = #35774#22791#21517#31216
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'GJFMC'
Title.Alignment = taCenter
Title.Caption = #20381' '#25454
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'BCDE'
Title.Alignment = taCenter
Title.Caption = #29677#20135#23450#39069
Visible = True
end>
end
object Button10: TButton
Left = 6
Top = 296
Width = 90
Height = 33
Caption = #22686' '#21152
TabOrder = 1
OnClick = Button10Click
end
object Button11: TButton
Left = 95
Top = 296
Width = 90
Height = 33
Caption = #30830' '#23450
Enabled = False
TabOrder = 2
OnClick = Button11Click
end
object Button12: TButton
Left = 184
Top = 296
Width = 90
Height = 33
Caption = #21024' '#38500
TabOrder = 3
OnClick = Button12Click
end
object Button13: TButton
Left = 273
Top = 296
Width = 90
Height = 33
Caption = #25764' '#28040
TabOrder = 4
OnClick = Button13Click
end
end
object TabSheet3: TTabSheet
Caption = #36830#25509
ImageIndex = 2
object Label1: TLabel
Left = 8
Top = 29
Width = 96
Height = 12
Caption = #32534#21495#26412#36830#25509#36335#24452#65306
end
object Edit1: TEdit
Left = 8
Top = 48
Width = 353
Height = 20
TabOrder = 0
end
object Button14: TButton
Left = 338
Top = 50
Width = 20
Height = 17
Hint = #32534#21495#26412#36830#25509#36335#24452
Caption = '...'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Button14Click
end
object Button15: TButton
Left = 264
Top = 88
Width = 89
Height = 25
Caption = #20445#23384#35774#32622
TabOrder = 2
OnClick = Button15Click
end
end
end
object Panel1: TPanel
Left = 0
Top = 376
Width = 378
Height = 39
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
end
object Button9: TButton
Left = 249
Top = 382
Width = 113
Height = 28
Caption = #36820' '#22238
TabOrder = 2
OnClick = Button9Click
end
object ADOQuery1: TADOQuery
Connection = DM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select gymc from gx')
Left = 104
Top = 18
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 76
Top = 18
end
object ADOQuery2: TADOQuery
Connection = DM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT GYY FROM GYY')
Left = 36
Top = 298
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 68
Top = 298
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 324
Top = 218
end
object ADOQuery3: TADOQuery
Connection = DM.ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT distinct SBXH,SBMC,GJFMC,BCDE FROM JC ')
Left = 300
Top = 178
end
object OpenDialog1: TOpenDialog
Title = #36873#25321#25991#20214
Left = 36
Top = 106
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -