unit4.dfm

delphi 源码上传学校图书馆管理系统

          Top = 168
          Width = 121
          Height = 21
          DataField = 'studentclass'
          DataSource = DataSource1
          ImeName = 'itABC 5.22 '
          TabOrder = 4
        end
        object DBEdit13: TDBEdit
          Left = 96
          Top = 208
          Width = 121
          Height = 21
          DataField = 'studentage'
          DataSource = DataSource1
          ImeName = 'itABC 5.22 '
          TabOrder = 5
        end
        object DBEdit14: TDBEdit
          Left = 96
          Top = 248
          Width = 121
          Height = 21
          DataField = 'studentsex'
          DataSource = DataSource1
          ImeName = 'itABC 5.22 '
          TabOrder = 6
        end
        object BitBtn3: TBitBtn
          Left = 16
          Top = 312
          Width = 75
          Height = 25
          TabOrder = 7
          OnClick = BitBtn3Click
          Kind = bkOK
        end
        object BitBtn4: TBitBtn
          Left = 152
          Top = 312
          Width = 75
          Height = 25
          TabOrder = 8
          OnClick = BitBtn4Click
          Kind = bkCancel
        end
      end
      object BitBtn7: TBitBtn
        Left = 240
        Top = 378
        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 = BitBtn7Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20449#24687#20462#25913
      ImageIndex = 2
      OnShow = TabSheet3Show
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 417
        Height = 369
        Caption = 'Panel1'
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 1
          Top = 1
          Width = 416
          Height = 216
          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 = []
          OnCellClick = DBGrid1CellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'studentid'
              Width = 58
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'studentname'
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'studentnum'
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'studentcollage'
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'studentclass'
              Width = 57
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'studentage'
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'studentsex'
              Width = 40
              Visible = True
            end>
        end
        object Panel8: TPanel
          Left = 0
          Top = 216
          Width = 417
          Height = 153
          TabOrder = 1
          object RadioButton1: TRadioButton
            Left = 16
            Top = 24
            Width = 73
            Height = 17
            Caption = #23398#29983'ID'
            TabOrder = 0
          end
          object Edit13: TEdit
            Left = 160
            Top = 24
            Width = 121
            Height = 21
            TabOrder = 1
          end
          object Button1: TButton
            Left = 152
            Top = 120
            Width = 75
            Height = 25
            Caption = #26597#25214
            TabOrder = 2
            OnClick = Button1Click
          end
          object RadioButton2: TRadioButton
            Left = 16
            Top = 80
            Width = 113
            Height = 17
            Caption = #23398#29983#22995#21517
            TabOrder = 3
          end
          object Edit14: TEdit
            Left = 160
            Top = 80
            Width = 121
            Height = 21
            TabOrder = 4
          end
        end
      end
      object Panel2: TPanel
        Left = 416
        Top = 0
        Width = 265
        Height = 369
        Caption = 'Panel2'
        TabOrder = 1
        object Label1: TLabel
          Left = 16
          Top = 24
          Width = 49
          Height = 13
          AutoSize = False
          Caption = #23398#29983'ID'
        end
        object Label2: TLabel
          Left = 16
          Top = 56
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #23398#29983#22995#21517
        end
        object Label3: TLabel
          Left = 16
          Top = 96
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #23398#29983#23398#21495
        end
        object Label4: TLabel
          Left = 16
          Top = 136
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #25152#22312#38498#31995
        end
        object Label5: TLabel
          Left = 16
          Top = 176
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #25152#22312#29677#32423
        end
        object Label6: TLabel
          Left = 16
          Top = 216
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #23398#29983#24180#40836
        end
        object Label7: TLabel
          Left = 16
          Top = 256
          Width = 57
          Height = 13
          AutoSize = False
          Caption = #23398#29983#24615#21035
        end
        object Edit1: TEdit
          Left = 88
          Top = 16
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 88
          Top = 56
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 88
          Top = 96
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 2
        end
        object Edit4: TEdit
          Left = 88
          Top = 136
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 3
        end
        object Edit5: TEdit
          Left = 88
          Top = 176
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 4
        end
        object Edit6: TEdit
          Left = 88
          Top = 208
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 5
        end
        object Edit7: TEdit
          Left = 88
          Top = 256
          Width = 121
          Height = 21
          ImeName = 'itABC 5.22 '
          TabOrder = 6
        end
        object BitBtn5: TBitBtn
          Left = 16
          Top = 312
          Width = 75
          Height = 25
          TabOrder = 7
          OnClick = BitBtn5Click
          Kind = bkOK
        end
        object BitBtn6: TBitBtn
          Left = 152
          Top = 312
          Width = 75
          Height = 25
          TabOrder = 8
          OnClick = BitBtn6Click
          Kind = bkCancel
        end
      end
      object BitBtn8: TBitBtn
        Left = 240
        Top = 378
        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 = 60
    Top = 72
  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 = 'students'
    Left = 148
    Top = 72
    object ADOTable1studentid: TWideStringField
      DisplayLabel = #23398#29983'ID'
      DisplayWidth = 12
      FieldName = 'studentid'
      Size = 50
    end
    object ADOTable1studentname: TWideStringField
      DisplayLabel = #23398#29983#22995#21517
      DisplayWidth = 12
      FieldName = 'studentname'
    end
    object ADOTable1studentnum: TWideStringField
      DisplayLabel = #23398#29983#32534#21495
      DisplayWidth = 14
      FieldName = 'studentnum'
      Size = 50
    end
    object ADOTable1studentcollage: TWideStringField
      DisplayLabel = #25152#22312#23398#38498
      DisplayWidth = 12
      FieldName = 'studentcollage'
      Size = 50
    end
    object ADOTable1studentclass: TWideStringField
      DisplayLabel = #25152#22312#29677#32423
      DisplayWidth = 13
      FieldName = 'studentclass'
      Size = 50
    end
    object ADOTable1studentage: TWideStringField
      DisplayLabel = #23398#29983#24180#40836
      DisplayWidth = 14
      FieldName = 'studentage'
      Size = 50
    end
    object ADOTable1studentsex: TWideStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 5
      FieldName = 'studentsex'
      Size = 50
    end
  end
end