📄 unit4.~dfm
字号:
object Formjccx: TFormjccx
Left = 192
Top = 114
Width = 835
Height = 626
Caption = #20511#20986#22270#20070#26597#35810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 112
Top = 8
Width = 625
Height = 57
Caption = #20511' '#20986' '#22270' '#20070' '#19968' '#35272' '#34920
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #24188#22278
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object DBGridjccx: TDBGrid
Left = 0
Top = 80
Width = 825
Height = 313
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'sh'
Title.Caption = #22270#20070#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'jcbz'
Title.Caption = #20511#20986#26631#24535
Visible = True
end
item
Expanded = False
FieldName = 'jszh'
Title.Caption = #20511#20070#35777#21495
Visible = True
end
item
Expanded = False
FieldName = 'jcrq'
Title.Caption = #20511#20070#26085#26399
Visible = True
end>
end
object GroupBoxgjz: TGroupBox
Left = 0
Top = 408
Width = 825
Height = 121
Caption = #26597#35810#25805#20316
TabOrder = 2
object Label1: TLabel
Left = 24
Top = 24
Width = 113
Height = 25
AutoSize = False
Caption = #26597#35810#20851#38190#23383#36873#25321
end
object Label2: TLabel
Left = 440
Top = 24
Width = 121
Height = 33
AutoSize = False
Caption = #26597#35810#20851#38190#23383#35774#32622
end
object ComboBoxgjz: TComboBox
Left = 152
Top = 16
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 0
Items.Strings = (
#22270#20070#32534#21495
#22270#20070#21517#31216
#20511#20070#35777#21495
#35835#32773#22995#21517)
end
object Editgjz: TEdit
Left = 576
Top = 16
Width = 153
Height = 21
TabOrder = 1
end
object Button1: TButton
Left = 312
Top = 72
Width = 121
Height = 33
Caption = #26597#35810
TabOrder = 2
OnClick = Button1Click
end
end
object Button2: TButton
Left = 312
Top = 544
Width = 121
Height = 33
Caption = #36820#22238
TabOrder = 3
OnClick = Button2Click
end
object DataSource1: TDataSource
DataSet = ADOQueryjccx
Left = 8
Top = 544
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=.\boo' +
'k.mdb;Mode=Share Deny None;Extended Properties="";Persist Securi' +
'ty Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Pa' +
'th="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet' +
' OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops' +
'=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database P' +
'assword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encr' +
'ypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fal' +
'se'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 64
Top = 544
end
object ADOQueryjccx: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from tsjy')
Left = 120
Top = 544
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -