📄 psyrecord.~dfm
字号:
object Form13: TForm13
Left = 313
Top = 135
Width = 698
Height = 605
Caption = #24739#32773#29983#29702#21442#25968#35760#24405
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 DBGrid1: TDBGrid
Left = 0
Top = 29
Width = 690
Height = 542
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = #35760#24405'ID'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = #30149#25151#21495
Width = 62
Visible = True
end
item
Expanded = False
FieldName = #24202#21495
Visible = True
end
item
Expanded = False
FieldName = #26085#26399#26102#38388
Width = 120
Visible = True
end
item
Expanded = False
FieldName = #24322#24120#26631#35760
Width = 61
Visible = True
end
item
Expanded = False
FieldName = #20307#28201
Width = 59
Visible = True
end
item
Expanded = False
FieldName = #21628#21560
Width = 62
Visible = True
end
item
Expanded = False
FieldName = #33033#25615
Width = 61
Visible = True
end
item
Expanded = False
FieldName = #34880#21387
Width = 63
Visible = True
end>
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 690
Height = 29
Caption = 'ToolBar1'
TabOrder = 1
DesignSize = (
690
27)
object BitBtn1: TBitBtn
Left = 0
Top = 2
Width = 353
Height = 22
Anchors = [akLeft, akTop, akRight]
Caption = #26174#31034#24322#24120#65288#20134#21487#28857#20987#21015#21517#25490#24207#65289
TabOrder = 0
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 353
Top = 2
Width = 336
Height = 22
Caption = #23548#20986'Exel'#25253#34920
TabOrder = 1
OnClick = BitBtn2Click
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 168
Top = 40
end
object ADOQuery1: TADOQuery
Connection = Form1.ADOConnection2
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#24739#32773#29983#29702#21442#25968#34920' where '#30149#25151#21495'=1 and '#24202#21495'=1')
Left = 120
Top = 40
end
object SaveDialog1: TSaveDialog
FileName = '*.xls'
Filter = 'Excel'#34920#26684'(*.xls)|*.xls'
Left = 616
Top = 80
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -