📄 main.dfm
字号:
object ComboBox15: TComboBox
Left = 35
Top = 80
Width = 65
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 3
Text = #19981#21442#19982
OnChange = ComboBox15Change
Items.Strings = (
#19981#21442#19982
'AND'
'OR')
end
object ComboBox17: TComboBox
Left = 120
Top = 120
Width = 161
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 4
end
object Edit6: TEdit
Left = 344
Top = 120
Width = 169
Height = 21
TabOrder = 5
end
object ComboBox16: TComboBox
Left = 35
Top = 120
Width = 65
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 6
Text = #19981#21442#19982
OnChange = ComboBox16Change
Items.Strings = (
#19981#21442#19982
'AND'
'OR')
end
object ComboBox19: TComboBox
Left = 264
Top = 10
Width = 113
Height = 21
ItemHeight = 13
TabOrder = 7
OnChange = MarshFields
Items.Strings = (
'')
end
object Edit9: TEdit
Left = 344
Top = 160
Width = 169
Height = 21
TabOrder = 8
end
object ComboBox21: TComboBox
Left = 120
Top = 160
Width = 161
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 9
end
object ComboBox22: TComboBox
Left = 35
Top = 160
Width = 65
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 10
Text = #19981#21442#19982
OnChange = ComboBox22Change
Items.Strings = (
#19981#21442#19982
'AND'
'OR')
end
object ComboBox18: TComboBox
Left = 280
Top = 120
Width = 65
Height = 21
Enabled = False
ItemHeight = 13
ItemIndex = 0
TabOrder = 11
Text = '=['#25991#26412']'
Items.Strings = (
'=['#25991#26412']'
'like['#25991#26412']'
'<>['#25991#26412']'
'=['#25968#23383']'
'>['#25968#23383']'
'>=['#25968#23383']'
'<['#25968#23383']'
'<=['#25968#23383']'
'<>['#25968#23383']'
'=['#26085#26399']'
'>['#26085#26399']'
'>=['#26085#26399']'
'<['#26085#26399']'
'<=['#26085#26399']'
'<>['#26085#26399']')
end
object ComboBox20: TComboBox
Left = 280
Top = 160
Width = 65
Height = 21
Enabled = False
ItemHeight = 13
ItemIndex = 0
TabOrder = 12
Text = '=['#25991#26412']'
Items.Strings = (
'=['#25991#26412']'
'like['#25991#26412']'
'<>['#25991#26412']'
'=['#25968#23383']'
'>['#25968#23383']'
'>=['#25968#23383']'
'<['#25968#23383']'
'<=['#25968#23383']'
'<>['#25968#23383']'
'=['#26085#26399']'
'>['#26085#26399']'
'>=['#26085#26399']'
'<['#26085#26399']'
'<=['#26085#26399']'
'<>['#26085#26399']')
end
object ComboBox23: TComboBox
Left = 344
Top = 42
Width = 161
Height = 21
ItemHeight = 13
TabOrder = 13
end
object ComboBox24: TComboBox
Left = 344
Top = 81
Width = 161
Height = 21
Enabled = False
ItemHeight = 13
TabOrder = 14
end
object ComboBox25: TComboBox
Left = 392
Top = 10
Width = 113
Height = 21
ItemHeight = 13
TabOrder = 15
OnChange = MarshFields
Items.Strings = (
'')
end
end
object TabSheet3: TTabSheet
Caption = #39640#32423'SQL'#26597#35810
ImageIndex = 2
OnShow = TabSheet3Show
object Memo1: TMemo
Left = 24
Top = 16
Width = 553
Height = 161
Lines.Strings = (
#35831#22312#27492#36755#20837#26631#20934#30340'SQL'#26597#35810#35821#21477#12290)
ScrollBars = ssBoth
TabOrder = 0
end
end
object TabSheet4: TTabSheet
Caption = #20351#29992#24110#21161
ImageIndex = 3
OnShow = TabSheet4Show
object Memo2: TMemo
Left = 0
Top = 0
Width = 591
Height = 211
Align = alClient
Color = clScrollBar
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object Panel3: TPanel
Left = 600
Top = 1
Width = 217
Height = 239
Align = alRight
TabOrder = 1
object Panel4: TPanel
Left = 1
Top = 1
Width = 215
Height = 54
Align = alTop
BevelOuter = bvSpace
TabOrder = 0
object Label5: TLabel
Left = 36
Top = 5
Width = 33
Height = 13
Caption = #26631#31614' '
end
object Label6: TLabel
Left = 136
Top = 4
Width = 51
Height = 13
Caption = #23383#27573#21517' '
end
object Edit7: TEdit
Left = 16
Top = 21
Width = 89
Height = 21
TabOrder = 0
end
object Edit8: TEdit
Left = 120
Top = 21
Width = 89
Height = 21
TabOrder = 1
end
end
object CheckListBox2: TCheckListBox
Left = 120
Top = 55
Width = 96
Height = 113
Align = alRight
ItemHeight = 13
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9')
TabOrder = 1
Visible = False
end
object Panel5: TPanel
Left = 86
Top = 55
Width = 34
Height = 113
Align = alRight
TabOrder = 2
object UpDown1: TUpDown
Left = 4
Top = 40
Width = 25
Height = 49
Min = 0
Position = 0
TabOrder = 0
Wrap = False
OnChangingEx = UpDown1ChangingEx
end
object Button2: TButton
Left = 6
Top = 8
Width = 22
Height = 25
Caption = '<<'
TabOrder = 1
OnClick = Button2Click
end
end
object CheckListBox1: TCheckListBox
Left = 1
Top = 55
Width = 85
Height = 113
Align = alClient
BevelOuter = bvRaised
Columns = 2
ItemHeight = 13
TabOrder = 3
end
object RadioGroup1: TRadioGroup
Left = 1
Top = 168
Width = 215
Height = 70
Align = alBottom
ItemIndex = 0
Items.Strings = (
#36873#25321#23383#27573
#34920#20013#25152#26377#23383#27573
#34920#20013#25152#26377#23383#27573'+'#36861#21152#23383#27573)
TabOrder = 4
end
object ListBox1: TListBox
Left = 64
Top = 152
Width = 121
Height = 97
ItemHeight = 13
TabOrder = 5
Visible = False
end
end
end
object Query1: TQuery
DatabaseName = 'sqldb'
SQL.Strings = (
'Select BKISBN AS ISBN, bkName AS '#20070#21517', bkAuthor AS '#20316#32773', bkCla' +
'ss AS '#22270#20070#31867#30446', bkPublishNAME AS '#20986#29256#31038#21517
'From BOOKINF')
Left = 536
Top = 184
end
object DataSource1: TDataSource
DataSet = Query1
Left = 568
Top = 184
end
object SaveDialog1: TSaveDialog
Filter =
#25991#26412#25991#20214'(*.txt)|.txt|'#32593#39029#25991#20214'(*.htm)|.htm|'#30005#23376#34920#26684#25991#20214'(*.xsl)|.xls|'#36229#25991#26412#25991#20214'(*.xml' +
')|.xml'
Left = 648
Top = 256
end
object Database1: TDatabase
AliasName = 'bookshop'
DatabaseName = 'sqldb'
LoginPrompt = False
SessionName = 'Default'
Left = 544
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -