www.pudn.com > 701.rar > Unit8.dfm
object tushuguanli: Ttushuguanli
Left = 161
Top = 71
Width = 696
Height = 480
BorderIcons = [biMinimize, biMaximize]
Caption = #22270#20070#31649#29702
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 = 446
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #26032#20070#20837#24211
OnShow = TabSheet1Show
object Panel1: TPanel
Left = 0
Top = 0
Width = 370
Height = 377
Caption = 'Panel1'
TabOrder = 0
object DBGrid1: TDBGrid
Left = 0
Top = 8
Width = 369
Height = 369
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
end
object Panel2: TPanel
Left = 368
Top = 0
Width = 313
Height = 377
Caption = 'Panel2'
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 40
Width = 57
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label2: TLabel
Left = 16
Top = 104
Width = 73
Height = 13
AutoSize = False
Caption = #22270#20070#21517#23383
end
object Label3: TLabel
Left = 16
Top = 176
Width = 65
Height = 13
AutoSize = False
Caption = #22270#20070#20316#32773
end
object Label4: TLabel
Left = 16
Top = 248
Width = 65
Height = 13
AutoSize = False
Caption = #22312#39302#29366#24577
end
object Edit1: TEdit
Left = 104
Top = 40
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
end
object Edit2: TEdit
Left = 104
Top = 104
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 1
end
object Edit3: TEdit
Left = 104
Top = 176
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
end
object Edit4: TEdit
Left = 104
Top = 240
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
end
object BitBtn1: TBitBtn
Left = 24
Top = 312
Width = 75
Height = 25
Caption = #25552#20132
TabOrder = 4
OnClick = BitBtn1Click
Kind = bkOK
end
object BitBtn2: TBitBtn
Left = 176
Top = 312
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 5
OnClick = BitBtn2Click
Kind = bkCancel
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 TabSheet2: TTabSheet
Caption = #26087#20070#21024#38500
ImageIndex = 1
OnShow = TabSheet2Show
object Panel3: TPanel
Left = 0
Top = -8
Width = 377
Height = 385
Caption = 'Panel3'
TabOrder = 0
object DBGrid2: TDBGrid
Left = 0
Top = 8
Width = 377
Height = 241
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnColEnter = DBGrid2ColEnter
end
object Panel7: TPanel
Left = 0
Top = 248
Width = 377
Height = 137
TabOrder = 1
object RadioButton1: TRadioButton
Left = 16
Top = 32
Width = 113
Height = 17
Caption = #22270#20070'ID'
TabOrder = 0
end
object RadioButton2: TRadioButton
Left = 16
Top = 80
Width = 113
Height = 17
Caption = #22270#20070#21517#23383
TabOrder = 1
end
object Edit13: TEdit
Left = 168
Top = 24
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
end
object Edit14: TEdit
Left = 168
Top = 72
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
end
object BitBtn7: TBitBtn
Left = 120
Top = 104
Width = 75
Height = 25
Caption = #26597#25214
TabOrder = 4
OnClick = BitBtn7Click
Kind = bkOK
end
end
end
object Panel4: TPanel
Left = 376
Top = 0
Width = 305
Height = 377
TabOrder = 1
object Label5: TLabel
Left = 16
Top = 48
Width = 65
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label6: TLabel
Left = 16
Top = 104
Width = 57
Height = 13
AutoSize = False
Caption = #22270#20070#21517#23383
end
object Label7: TLabel
Left = 16
Top = 176
Width = 57
Height = 13
AutoSize = False
Caption = #20316#32773
end
object Label8: TLabel
Left = 24
Top = 248
Width = 65
Height = 13
AutoSize = False
Caption = #22312#39302#29366#24577
end
object Edit5: TEdit
Left = 128
Top = 32
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
end
object Edit6: TEdit
Left = 128
Top = 96
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 1
end
object Edit7: TEdit
Left = 128
Top = 168
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
end
object Edit8: TEdit
Left = 128
Top = 240
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
end
object BitBtn3: TBitBtn
Left = 24
Top = 304
Width = 75
Height = 25
Caption = #25552#20132
TabOrder = 4
OnClick = BitBtn3Click
Kind = bkOK
end
object BitBtn4: TBitBtn
Left = 160
Top = 304
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 5
OnClick = BitBtn4Click
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
object TabSheet3: TTabSheet
Caption = #20449#24687#20462#25913
ImageIndex = 2
OnShow = TabSheet3Show
object Panel5: TPanel
Left = -8
Top = 0
Width = 385
Height = 377
Caption = 'Panel5'
TabOrder = 0
object DBGrid3: TDBGrid
Left = 8
Top = 0
Width = 377
Height = 241
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid3CellClick
end
object Panel8: TPanel
Left = 8
Top = 240
Width = 377
Height = 137
TabOrder = 1
object RadioButton3: TRadioButton
Left = 16
Top = 40
Width = 113
Height = 17
Caption = #22270#20070'ID'
TabOrder = 0
end
object RadioButton4: TRadioButton
Left = 16
Top = 80
Width = 113
Height = 17
Caption = #22270#20070#21517#23383
TabOrder = 1
end
object Edit15: TEdit
Left = 168
Top = 32
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
end
object Edit16: TEdit
Left = 168
Top = 80
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
end
object BitBtn8: TBitBtn
Left = 112
Top = 104
Width = 75
Height = 25
Caption = #26597#25214
TabOrder = 4
OnClick = BitBtn8Click
Kind = bkOK
end
end
end
object Panel6: TPanel
Left = 376
Top = 0
Width = 305
Height = 377
TabOrder = 1
object Label9: TLabel
Left = 32
Top = 40
Width = 73
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label10: TLabel
Left = 32
Top = 104
Width = 97
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label11: TLabel
Left = 32
Top = 168
Width = 65
Height = 13
AutoSize = False
Caption = #20316#32773
end
object Label12: TLabel
Left = 32
Top = 248
Width = 73
Height = 13
AutoSize = False
Caption = #22312#39302#29366#24577
end
object Edit9: TEdit
Left = 112
Top = 32
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
end
object Edit10: TEdit
Left = 112
Top = 96
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 1
end
object Edit11: TEdit
Left = 112
Top = 168
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
end
object Edit12: TEdit
Left = 112
Top = 240
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
end
object BitBtn5: TBitBtn
Left = 24
Top = 296
Width = 75
Height = 25
Caption = #25552#20132
TabOrder = 4
OnClick = BitBtn5Click
Kind = bkOK
end
object BitBtn6: TBitBtn
Left = 160
Top = 296
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 5
OnClick = BitBtn6Click
Kind = bkCancel
end
end
object BitBtn11: 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 = BitBtn11Click
end
end
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
TableName = 'books'
Left = 108
Top = 80
object ADOTable1bookid: TWideStringField
FieldName = 'bookid'
Size = 50
end
object ADOTable1bookname: TWideStringField
FieldName = 'bookname'
Size = 50
end
object ADOTable1author: TWideStringField
FieldName = 'author'
Size = 50
end
object ADOTable1in: TBooleanField
FieldName = 'in'
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 52
Top = 80
end
end