www.pudn.com > 701.rar > Unit5.dfm
object jieyueguanli: Tjieyueguanli
Left = 164
Top = 74
Width = 696
Height = 480
BorderIcons = [biMinimize, biMaximize]
Caption = #20511#38405#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 = TabSheet2
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #20511#20070
OnShow = TabSheet1Show
object Panel1: TPanel
Left = 0
Top = 0
Width = 393
Height = 377
TabOrder = 0
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 393
Height = 377
DataSource = DataSource1
ImeName = 'itABC 5.22 '
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 = 392
Top = 0
Width = 289
Height = 377
TabOrder = 1
object Label1: TLabel
Left = 32
Top = 48
Width = 57
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label2: TLabel
Left = 32
Top = 136
Width = 49
Height = 13
AutoSize = False
Caption = #23398#29983'ID'
end
object Label3: TLabel
Left = 32
Top = 224
Width = 49
Height = 13
AutoSize = False
Caption = #26085#26399
end
object edit1: TEdit
Left = 104
Top = 40
Width = 121
Height = 21
ImeName = 'itABC 5.22 '
TabOrder = 0
end
object edit2: TEdit
Left = 104
Top = 128
Width = 121
Height = 21
ImeName = 'itABC 5.22 '
TabOrder = 1
end
object edit3: TEdit
Left = 104
Top = 216
Width = 121
Height = 21
ImeName = 'itABC 5.22 '
TabOrder = 2
end
object BitBtn1: TBitBtn
Left = 24
Top = 296
Width = 75
Height = 25
TabOrder = 3
OnClick = BitBtn1Click
Kind = bkOK
end
object BitBtn2: TBitBtn
Left = 160
Top = 296
Width = 75
Height = 25
TabOrder = 4
OnClick = BitBtn2Click
Kind = bkCancel
end
end
object BitBtn5: 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 = BitBtn5Click
end
end
object TabSheet2: TTabSheet
Caption = #36824#20070
ImageIndex = 1
OnShow = TabSheet2Show
object Panel3: TPanel
Left = 392
Top = 0
Width = 289
Height = 377
TabOrder = 0
object Label5: TLabel
Left = 32
Top = 48
Width = 49
Height = 13
AutoSize = False
Caption = #22270#20070'ID'
end
object Label6: TLabel
Left = 32
Top = 136
Width = 57
Height = 13
AutoSize = False
Caption = #23398#29983'ID'
end
object Label7: TLabel
Left = 32
Top = 224
Width = 49
Height = 13
AutoSize = False
Caption = #26085#26399
end
object edit4: TEdit
Left = 104
Top = 40
Width = 121
Height = 21
ImeName = 'itABC 5.22 '
TabOrder = 0
end
object edit5: TEdit
Left = 104
Top = 128
Width = 121
Height = 21
ImeName = 'itABC 5.22 '
TabOrder = 1
end
object edit6: TEdit
Left = 104
Top = 216
Width = 121
Height = 21
ImeName = 'itABC 5.22 '
TabOrder = 2
end
object BitBtn3: TBitBtn
Left = 24
Top = 296
Width = 75
Height = 25
TabOrder = 3
OnClick = BitBtn3Click
Kind = bkOK
end
object BitBtn4: TBitBtn
Left = 168
Top = 296
Width = 75
Height = 25
TabOrder = 4
OnClick = BitBtn4Click
Kind = bkCancel
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 393
Height = 377
TabOrder = 1
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 393
Height = 377
DataSource = DataSource2
ImeName = 'itABC 5.22 '
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object BitBtn8: 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 = BitBtn8Click
end
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 12
Top = 32
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 = 'bore'
Left = 44
Top = 32
object ADOTable1ids: TAutoIncField
DisplayWidth = 12
FieldName = 'ids'
ReadOnly = True
end
object ADOTable1bookid: TWideStringField
DisplayWidth = 17
FieldName = 'bookid'
Size = 50
end
object ADOTable1studentid: TWideStringField
DisplayWidth = 13
FieldName = 'studentid'
Size = 50
end
object ADOTable1onceout: TBooleanField
DisplayWidth = 8
FieldName = 'onceout'
end
object ADOTable1outdata: TDateTimeField
DisplayWidth = 19
FieldName = 'outdata'
end
end
object ADOTable2: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
TableName = 'bore'
Left = 124
Top = 32
object ADOTable2ids: TAutoIncField
DisplayWidth = 10
FieldName = 'ids'
ReadOnly = True
end
object ADOTable2bookid: TWideStringField
DisplayWidth = 13
FieldName = 'bookid'
Size = 50
end
object ADOTable2studentid: TWideStringField
DisplayWidth = 15
FieldName = 'studentid'
Size = 50
end
object ADOTable2alreadyback: TBooleanField
DisplayWidth = 12
FieldName = 'alreadyback'
end
object ADOTable2backdata: TDateTimeField
DisplayWidth = 19
FieldName = 'backdata'
end
end
object DataSource2: TDataSource
DataSet = ADOTable2
Left = 84
Top = 32
end
object ADOTable3: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
TableName = 'books'
Left = 436
Top = 360
end
object ADOTable4: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tushuguan.mdb;Persi' +
'st Security Info=False'
TableName = 'students'
Left = 508
Top = 360
end
end