📄 unit1.~dfm
字号:
MinValue = 0
HasMaxValue = False
HasMinValue = False
end
object Button7: TButton
Left = 624
Top = 32
Width = 75
Height = 25
Caption = #30331#35760
TabOrder = 2
OnClick = Button7Click
end
object GroupBox4: TGroupBox
Left = 80
Top = 88
Width = 577
Height = 249
Caption = #20070#21517#36873#25321
Color = 16749462
ParentColor = False
TabOrder = 3
object ListBox2: TListBox
Left = 32
Top = 32
Width = 513
Height = 201
ItemHeight = 20
TabOrder = 0
OnKeyUp = ListBox2KeyUp
end
end
object Edit8: TEdit
Left = 240
Top = 368
Width = 353
Height = 28
TabOrder = 4
end
object Button2: TButton
Left = 600
Top = 368
Width = 89
Height = 25
Caption = #36873#23450#25991#20214
TabOrder = 5
OnClick = Button2Click
end
end
end
object TabSheet4: TTabSheet
Caption = #27983#35272#26597#35810
ImageIndex = 3
object Panel3: TPanel
Left = 0
Top = 0
Width = 769
Height = 481
Color = 8816383
TabOrder = 0
object Label23: TLabel
Left = 104
Top = 48
Width = 32
Height = 16
Caption = #25805#20316
end
object Label21: TLabel
Left = 104
Top = 80
Width = 32
Height = 16
Caption = #25805#20316
end
object Label22: TLabel
Left = 104
Top = 112
Width = 32
Height = 16
Caption = #25805#20316
end
object Label24: TLabel
Left = 240
Top = 48
Width = 32
Height = 16
Caption = #26465#20214
end
object Label20: TLabel
Left = 240
Top = 80
Width = 32
Height = 16
Caption = #26465#20214
end
object Label26: TLabel
Left = 240
Top = 104
Width = 32
Height = 16
Caption = #26465#20214
end
object Label27: TLabel
Left = 352
Top = 144
Width = 64
Height = 16
Caption = #25991#20214#21517#65306
end
object Edit11: TEdit
Left = 144
Top = 8
Width = 121
Height = 24
TabOrder = 0
end
object CheckBox1: TCheckBox
Left = 24
Top = 16
Width = 97
Height = 17
Caption = 'ISBN'#21495#30721#65306
TabOrder = 1
end
object CheckBox2: TCheckBox
Left = 24
Top = 48
Width = 65
Height = 17
Caption = #20070#21517#65306
TabOrder = 2
end
object CheckBox3: TCheckBox
Left = 24
Top = 80
Width = 65
Height = 17
Caption = #20316#32773#65306
TabOrder = 3
end
object CheckBox4: TCheckBox
Left = 24
Top = 112
Width = 73
Height = 17
Caption = #20986#29256#31038#65306
TabOrder = 4
end
object CheckBox5: TCheckBox
Left = 24
Top = 144
Width = 65
Height = 17
Caption = #21040#36135#65306
TabOrder = 5
end
object ComboBox1: TComboBox
Left = 144
Top = 40
Width = 89
Height = 24
ItemHeight = 16
TabOrder = 6
Items.Strings = (
#21253#21547
#19981#21253#21547
#31561#20110
#19981#31561#20110)
end
object ComboBox2: TComboBox
Left = 144
Top = 72
Width = 89
Height = 24
ItemHeight = 16
TabOrder = 7
Items.Strings = (
#21253#21547
#19981#21253#21547
#31561#20110
#19981#31561#20110)
end
object ComboBox3: TComboBox
Left = 144
Top = 104
Width = 89
Height = 24
ItemHeight = 16
TabOrder = 8
Items.Strings = (
#21253#21547
#19981#21253#21547
#31561#20110
#19981#31561#20110)
end
object ComboBox4: TComboBox
Left = 144
Top = 136
Width = 89
Height = 24
ItemHeight = 16
TabOrder = 9
Items.Strings = (
#26159
#21542)
end
object Edit12: TEdit
Left = 280
Top = 40
Width = 281
Height = 24
TabOrder = 10
end
object Edit9: TEdit
Left = 280
Top = 72
Width = 281
Height = 24
TabOrder = 11
end
object Edit10: TEdit
Left = 280
Top = 104
Width = 281
Height = 24
TabOrder = 12
end
object Edit14: TEdit
Left = 416
Top = 136
Width = 185
Height = 24
TabOrder = 13
end
object Button8: TButton
Left = 600
Top = 136
Width = 41
Height = 25
Caption = #26597#25214
TabOrder = 14
OnClick = Button8Click
end
object Button3: TButton
Left = 656
Top = 136
Width = 75
Height = 25
Caption = #25191#34892#26597#35810
TabOrder = 15
OnClick = Button3Click
end
object DBGrid3: TDBGrid
Left = 8
Top = 168
Width = 753
Height = 305
DataSource = DataSource7
TabOrder = 16
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ISBN'
Visible = True
end
item
Expanded = False
FieldName = #20070#21517
Width = 349
Visible = True
end
item
Expanded = False
FieldName = #20316#32773
Visible = True
end
item
Expanded = False
FieldName = #20986#29256#31038
Visible = True
end
item
Expanded = False
FieldName = #23450#20215
Visible = True
end
item
Expanded = False
FieldName = #22797#26412#25968
Visible = True
end
item
Expanded = False
FieldName = 'DAOHUO'
Title.Caption = #21040#36135
Visible = True
end
item
Expanded = False
FieldName = 'RIQI'
Title.Caption = #21040#36135#26085#26399
Visible = True
end>
end
end
end
object TabSheet5: TTabSheet
Caption = #32479#35745#25171#21360
ImageIndex = 4
object Panel4: TPanel
Left = 0
Top = 0
Width = 769
Height = 489
Color = 12545925
TabOrder = 0
object Label14: TLabel
Left = 240
Top = 136
Width = 64
Height = 16
Caption = #25991#20214#21517#65306
end
object Button11: TButton
Left = 336
Top = 232
Width = 153
Height = 25
Caption = #25171#21360#24635#35746#20070#28165#21333
TabOrder = 0
OnClick = Button11Click
end
object Button10: TButton
Left = 336
Top = 200
Width = 153
Height = 25
Caption = #25171#21360#26410#21040#20070#28165#21333
TabOrder = 1
OnClick = Button10Click
end
object Button9: TButton
Left = 336
Top = 168
Width = 153
Height = 25
Caption = #25171#21360#21040#20070#28165#21333
TabOrder = 2
OnClick = Button9Click
end
object Edit15: TEdit
Left = 304
Top = 128
Width = 185
Height = 24
TabOrder = 3
end
object Button15: TButton
Left = 488
Top = 128
Width = 41
Height = 25
Caption = #26597#25214
TabOrder = 4
OnClick = Button15Click
end
end
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 514
Width = 781
Height = 25
Panels = <
item
Bevel = pbRaised
Text = #26085#26399
Width = 30
end
item
Width = 100
end
item
Bevel = pbRaised
Text = #26102#38388
Width = 35
end
item
Width = 100
end
item
Width = 50
end
item
Width = 50
end>
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 328
Top = 368
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString = 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=test1'
LoginPrompt = False
Left = 256
Top = 368
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
AfterScroll = ADOQuery1AfterScroll
Parameters = <
item
Name = 'aaa'
DataType = ftString
Size = -1
Value = ''
end>
SQL.Strings = (
'select * from hxm where isbn=:aaa')
Left = 328
Top = 336
end
object OpenDialog1: TOpenDialog
Filter = #25968#25454#24211#25991#20214'|*.dbf'
Title = #36873#25321#35201#26597#37325#30340'DBF'#34920#26684#25991#20214#65281
Left = 220
Top = 372
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'hxm_new'
Left = 188
Top = 340
end
object DataSource2: TDataSource
DataSet = ADOTable1
Left = 188
Top = 372
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
Parameters = <
item
Name = 'cs2'
DataType = ftString
Size = -1
Value = ''
end
item
Name = 'cs3'
DataType = ftString
Size = -1
Value = ''
end>
SQL.Strings = (
'select * from '
'where isbn=:cs2 and '#20070#21517'=:cs3'
' '
' ')
Left = 372
Top = 332
end
object DataSource3: TDataSource
DataSet = ADOQuery2
Left = 372
Top = 364
end
object Dbf1: TDbf
IndexDefs = <>
TableLevel = 4
Left = 92
Top = 372
end
object DataSource4: TDataSource
DataSet = Dbf1
Left = 92
Top = 404
end
object ADOTable2: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'filename'
Left = 748
Top = 4
end
object DataSource5: TDataSource
DataSet = ADOTable2
Left = 748
Top = 36
end
object ADOQuery3: TADOQuery
Connection = ADOConnection1
Parameters = <
item
Name = 'cs1'
DataType = ftString
Size = -1
Value = ''
end>
SQL.Strings = (
'select * from '
'where isbn=:cs1')
Left = 28
Top = 404
end
object DataSource6: TDataSource
DataSet = ADOQuery3
Left = 28
Top = 372
end
object ADOQuery4: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 420
Top = 332
end
object DataSource7: TDataSource
DataSet = ADOQuery4
Left = 420
Top = 372
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 620
Top = 140
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -