www.pudn.com > 701.rar > Unit6.dfm
object chacunbaobiao: Tchacunbaobiao
Left = 161
Top = 73
Width = 696
Height = 480
BorderIcons = [biMinimize, biMaximize]
Caption = #26597#35810#25253#34920
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 PageControl1: TPageControl
Left = 0
Top = 0
Width = 688
Height = 453
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #22270#20070#20449#24687#26597#35810
object Panel5: TPanel
Left = 0
Top = 0
Width = 433
Height = 377
TabOrder = 0
object DBGrid1: TDBGrid
Left = 16
Top = 8
Width = 409
Height = 185
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Panel8: TPanel
Left = 0
Top = 192
Width = 433
Height = 185
TabOrder = 1
object RadioButton1: TRadioButton
Left = 16
Top = 16
Width = 73
Height = 17
Caption = #22270#20070'ID'
TabOrder = 0
end
object Edit13: TEdit
Left = 168
Top = 16
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 1
end
object RadioButton2: TRadioButton
Left = 16
Top = 64
Width = 113
Height = 17
Caption = #22270#20070#21517#23383
TabOrder = 2
end
object Edit14: TEdit
Left = 168
Top = 56
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 3
end
object RadioButton3: TRadioButton
Left = 16
Top = 104
Width = 113
Height = 17
Caption = #20316#32773
TabOrder = 4
end
object Edit1: TEdit
Left = 168
Top = 104
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 5
end
object BitBtn1: TBitBtn
Left = 120
Top = 136
Width = 75
Height = 25
Caption = #26597#25214
TabOrder = 6
OnClick = BitBtn1Click
Kind = bkOK
end
end
end
object Panel6: TPanel
Left = 432
Top = 0
Width = 249
Height = 377
TabOrder = 1
object Label5: TLabel
Left = 9
Top = 49
Width = 48
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label6: TLabel
Left = 9
Top = 121
Width = 64
Height = 13
AutoSize = False
Caption = #22270#20070#21517#31216
end
object Label7: TLabel
Left = 9
Top = 193
Width = 64
Height = 13
AutoSize = False
Caption = #22270#20070' '#20316#32773
end
object Label8: TLabel
Left = 9
Top = 273
Width = 64
Height = 13
AutoSize = False
Caption = #22312#39302#29366#24577
end
object DBEdit1: TDBEdit
Left = 96
Top = 48
Width = 121
Height = 21
DataField = 'bookid'
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 96
Top = 120
Width = 121
Height = 21
DataField = 'bookname'
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 96
Top = 192
Width = 121
Height = 21
DataField = 'author'
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 96
Top = 272
Width = 121
Height = 21
DataField = 'in'
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 3
end
end
object BitBtn8: TBitBtn
Left = 240
Top = 384
Width = 185
Height = 35
Caption = #36820' '#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BitBtn8Click
end
end
object TabSheet2: TTabSheet
Caption = #20511'/'#36824#35760#24405#26597#35810
ImageIndex = 1
object Panel3: TPanel
Left = 0
Top = 0
Width = 329
Height = 377
Caption = 'Panel1'
TabOrder = 0
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 329
Height = 169
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Panel7: TPanel
Left = 0
Top = 168
Width = 329
Height = 209
Caption = 'Panel7'
TabOrder = 1
object Label1: TLabel
Left = 136
Top = 112
Width = 12
Height = 13
Caption = #33267
end
object RadioButton4: TRadioButton
Left = 16
Top = 24
Width = 57
Height = 17
Caption = #22270#20070'ID'
TabOrder = 0
end
object RadioButton5: TRadioButton
Left = 16
Top = 56
Width = 81
Height = 17
Caption = #23398#29983'ID'
TabOrder = 1
end
object RadioButton6: TRadioButton
Left = 16
Top = 88
Width = 49
Height = 17
Caption = #26085#26399
TabOrder = 2
end
object Edit2: TEdit
Left = 104
Top = 24
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 3
end
object Edit3: TEdit
Left = 104
Top = 56
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 4
end
object Edit4: TEdit
Left = 104
Top = 88
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 5
end
object Edit5: TEdit
Left = 104
Top = 128
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 6
end
object BitBtn4: TBitBtn
Left = 152
Top = 168
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 8
OnClick = BitBtn4Click
end
object BitBtn2: TBitBtn
Left = 40
Top = 168
Width = 75
Height = 25
Caption = #30830#35748
TabOrder = 7
OnClick = BitBtn2Click
end
end
end
object Panel4: TPanel
Left = 344
Top = 0
Width = 329
Height = 377
Caption = 'Panel2'
TabOrder = 1
object DBGrid3: TDBGrid
Left = 0
Top = 0
Width = 321
Height = 169
DataSource = DataSource3
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Panel9: TPanel
Left = 0
Top = 168
Width = 321
Height = 209
Caption = 'Panel9'
TabOrder = 1
object Label2: TLabel
Left = 120
Top = 112
Width = 12
Height = 13
Caption = #33267
end
object RadioButton7: TRadioButton
Left = 16
Top = 24
Width = 65
Height = 17
Caption = #22270#20070'ID'
TabOrder = 2
end
object RadioButton8: TRadioButton
Left = 16
Top = 56
Width = 65
Height = 17
Caption = #23398#29983'ID'
TabOrder = 3
end
object RadioButton9: TRadioButton
Left = 16
Top = 88
Width = 57
Height = 17
Caption = #26085#26399
TabOrder = 4
end
object Edit6: TEdit
Left = 96
Top = 24
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 5
end
object Edit7: TEdit
Left = 96
Top = 56
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 6
end
object Edit8: TEdit
Left = 96
Top = 88
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 7
end
object BitBtn5: TBitBtn
Left = 32
Top = 168
Width = 75
Height = 25
Caption = #30830#35748
TabOrder = 0
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Left = 168
Top = 168
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 1
OnClick = BitBtn6Click
end
object Edit15: TEdit
Left = 96
Top = 128
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 8
end
end
end
object BitBtn9: TBitBtn
Left = 240
Top = 383
Width = 185
Height = 35
Caption = #36820' '#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BitBtn9Click
end
end
object TabSheet3: TTabSheet
Caption = #26410#36824#22270#20070#26597#35810
ImageIndex = 2
object Panel1: TPanel
Left = 0
Top = 0
Width = 433
Height = 377
Caption = 'Panel1'
TabOrder = 0
object DBGrid4: TDBGrid
Left = 0
Top = 8
Width = 433
Height = 361
DataSource = DataSource4
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Panel2: TPanel
Left = 432
Top = 0
Width = 249
Height = 377
Caption = 'Panel2'
TabOrder = 1
object Panel10: TPanel
Left = 0
Top = 0
Width = 249
Height = 305
TabOrder = 0
object RadioButton10: TRadioButton
Left = 16
Top = 32
Width = 73
Height = 17
Caption = #22270#20070'ID'
TabOrder = 0
end
object RadioButton11: TRadioButton
Left = 16
Top = 96
Width = 57
Height = 17
Caption = #23398#29983'ID'
TabOrder = 1
end
object RadioButton12: TRadioButton
Left = 16
Top = 160
Width = 65
Height = 17
Caption = #29677#32423
TabOrder = 2
end
object RadioButton13: TRadioButton
Left = 16
Top = 224
Width = 65
Height = 17
Caption = #38498#31995
TabOrder = 3
end
object Edit16: TEdit
Left = 104
Top = 32
Width = 89
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 4
end
object Edit17: TEdit
Left = 104
Top = 96
Width = 89
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 5
end
object Edit18: TEdit
Left = 104
Top = 160
Width = 89
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 6
end
object Edit19: TEdit
Left = 104
Top = 224
Width = 89
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 7
end
end
object BitBtn3: TBitBtn
Left = 8
Top = 320
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 1
OnClick = BitBtn3Click
Kind = bkOK
end
object BitBtn7: TBitBtn
Left = 136
Top = 320
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 2
Kind = bkCancel
end
end
object BitBtn10: TBitBtn
Left = 240
Top = 383
Width = 185
Height = 35
Caption = #36820' '#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BitBtn10Click
end
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 44
Top = 72
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 156
Top = 72
end
object ADOQuery2: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from bore where onceout=true')
Left = 124
Top = 72
object ADOQuery2ids: TAutoIncField
FieldName = 'ids'
ReadOnly = True
end
object ADOQuery2bookid: TWideStringField
FieldName = 'bookid'
Size = 50
end
object ADOQuery2studentid: TWideStringField
FieldName = 'studentid'
Size = 50
end
object ADOQuery2onceout: TBooleanField
FieldName = 'onceout'
end
object ADOQuery2outdata: TDateTimeField
FieldName = 'outdata'
end
object ADOQuery2alreadyback: TBooleanField
FieldName = 'alreadyback'
end
object ADOQuery2backdata: TDateTimeField
FieldName = 'backdata'
end
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from books')
Left = 20
Top = 72
object ADOQuery1bookid: TWideStringField
FieldName = 'bookid'
Size = 50
end
object ADOQuery1bookname: TWideStringField
FieldName = 'bookname'
Size = 50
end
object ADOQuery1author: TWideStringField
FieldName = 'author'
Size = 50
end
object ADOQuery1in: TBooleanField
FieldName = 'in'
end
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 452
Top = 24
end
object ADOQuery3: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
Parameters = <
item
Name = 'alreadyback'
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select * from bore where alreadyback=true')
Left = 484
Top = 24
object ADOQuery3ids: TAutoIncField
FieldName = 'ids'
ReadOnly = True
end
object ADOQuery3bookid: TWideStringField
FieldName = 'bookid'
Size = 50
end
object ADOQuery3studentid: TWideStringField
FieldName = 'studentid'
Size = 50
end
object ADOQuery3onceout: TBooleanField
FieldName = 'onceout'
end
object ADOQuery3outdata: TDateTimeField
FieldName = 'outdata'
end
object ADOQuery3alreadyback: TBooleanField
FieldName = 'alreadyback'
end
object ADOQuery3backdata: TDateTimeField
FieldName = 'backdata'
end
end
object ADOQuery4: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from bore where onceout=true and alreadyback=false')
Left = 260
Top = 168
object ADOQuery4ids: TAutoIncField
FieldName = 'ids'
ReadOnly = True
end
object ADOQuery4bookid: TWideStringField
FieldName = 'bookid'
Size = 50
end
object ADOQuery4studentid: TWideStringField
FieldName = 'studentid'
Size = 50
end
object ADOQuery4onceout: TBooleanField
FieldName = 'onceout'
end
object ADOQuery4outdata: TDateTimeField
FieldName = 'outdata'
end
object ADOQuery4alreadyback: TBooleanField
FieldName = 'alreadyback'
end
object ADOQuery4backdata: TDateTimeField
FieldName = 'backdata'
end
end
object DataSource4: TDataSource
DataSet = ADOQuery4
Left = 292
Top = 168
end
end