unit4.dfm

一个简单的图书管理系统

object Form4: TForm4
  Left = 234
  Top = 202
  Width = 637
  Height = 422
  Caption = #26032#20070#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 4
    Top = 4
    Width = 618
    Height = 349
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '  '#26032#20070#20837#24211'  '
      OnExit = TabSheet1Exit
      object Label1: TLabel
        Left = 28
        Top = 24
        Width = 70
        Height = 13
        Caption = #26032#20070#31867#21035#65306
      end
      object Label2: TLabel
        Left = 28
        Top = 68
        Width = 70
        Height = 13
        Caption = #22270#20070#32534#21495#65306
      end
      object Label3: TLabel
        Left = 379
        Top = 68
        Width = 102
        Height = 13
        AutoSize = False
        Caption = '('#31995#32479#33258#21160#29983#25104')'
      end
      object Label4: TLabel
        Left = 28
        Top = 113
        Width = 42
        Height = 13
        Caption = #20070#21517#65306
      end
      object Label5: TLabel
        Left = 28
        Top = 158
        Width = 42
        Height = 13
        Caption = #20215#26684#65306
      end
      object Label7: TLabel
        Left = 28
        Top = 203
        Width = 70
        Height = 13
        Caption = #20837#24211#26085#26399#65306
      end
      object Label8: TLabel
        Left = 28
        Top = 248
        Width = 70
        Height = 13
        Caption = #36141#36827#37096#38376#65306
      end
      object Label9: TLabel
        Left = 312
        Top = 24
        Width = 84
        Height = 13
        Caption = #23567#31867#21035#36873#25321#65306
      end
      object ComboBox1: TComboBox
        Left = 112
        Top = 21
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Text = #35831#36873#25321
        OnClick = ComboBox1Click
        OnEnter = ComboBox1Enter
      end
      object Edit1: TEdit
        Left = 112
        Top = 64
        Width = 257
        Height = 21
        Color = clActiveBorder
        ReadOnly = True
        TabOrder = 9
        OnChange = Edit1Change
      end
      object Edit2: TEdit
        Left = 112
        Top = 108
        Width = 257
        Height = 21
        TabOrder = 2
      end
      object Edit3: TEdit
        Left = 112
        Top = 152
        Width = 257
        Height = 21
        TabOrder = 3
      end
      object DateTimePicker1: TDateTimePicker
        Left = 112
        Top = 196
        Width = 113
        Height = 21
        Date = 38372.000000000000000000
        Time = 38372.000000000000000000
        TabOrder = 4
      end
      object Button2: TButton
        Left = 400
        Top = 280
        Width = 81
        Height = 25
        Caption = #20889#20837#25968#25454#24211
        Enabled = False
        TabOrder = 5
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 500
        Top = 280
        Width = 75
        Height = 25
        Caption = #28165#38500
        Enabled = False
        TabOrder = 6
        OnClick = Button3Click
      end
      object ComboBox2: TComboBox
        Left = 400
        Top = 20
        Width = 89
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        Text = #35831#36873#25321
        OnChange = ComboBox2Change
        OnClick = ComboBox2Click
        OnEnter = ComboBox2Enter
      end
      object Button4: TButton
        Left = 216
        Top = 19
        Width = 57
        Height = 23
        Caption = #26032#31867#21035
        ModalResult = 1
        TabOrder = 7
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 504
        Top = 19
        Width = 57
        Height = 23
        Caption = #26032#31867#21035
        ModalResult = 1
        TabOrder = 8
        OnClick = Button5Click
      end
      object ComboBox3: TComboBox
        Left = 110
        Top = 240
        Width = 117
        Height = 21
        ItemHeight = 13
        TabOrder = 10
        Text = #35831#36873#25321
        Items.Strings = (
          #24635#32463#29702#23460
          #20154#20107#34892#25919#37096
          #36816#33829#26381#21153#37096
          #20010#20154#19994#21153#37096
          #38134#34892#20445#38505#37096
          #22242#38505#37096
          #36130#21153#37096
          #25945#32946#22521#35757#37096
          #20225#21010#37096)
      end
    end
    object TabSheet2: TTabSheet
      Caption = ' '#22270#20070#26597#35810'  '
      ImageIndex = 1
      OnExit = TabSheet2Exit
      object Label11: TLabel
        Left = 8
        Top = 56
        Width = 70
        Height = 13
        Caption = #26597#35810#32467#26524#65306
      end
      object Edit6: TEdit
        Left = 116
        Top = 20
        Width = 101
        Height = 21
        MaxLength = 14
        TabOrder = 0
        OnChange = Edit6Change
      end
      object Button6: TButton
        Left = 496
        Top = 14
        Width = 65
        Height = 25
        Caption = #26597#35810
        Enabled = False
        TabOrder = 1
        OnClick = Button6Click
      end
      object Edit7: TEdit
        Left = 340
        Top = 18
        Width = 121
        Height = 21
        Enabled = False
        TabOrder = 2
        OnChange = Edit7Change
      end
      object RadioButton1: TRadioButton
        Left = 12
        Top = 22
        Width = 85
        Height = 17
        Caption = #22270#20070#32534#21495#65306
        Checked = True
        TabOrder = 3
        TabStop = True
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 250
        Top = 22
        Width = 89
        Height = 17
        Caption = #22270#20070#21517#31216#65306
        TabOrder = 4
        OnClick = RadioButton2Click
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 80
        Width = 593
        Height = 225
        DataSource = DataSource1
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet3: TTabSheet
      Caption = '  '#36164#26009#20462#25913'  '
      ImageIndex = 2
      OnExit = TabSheet3Exit
      object Label6: TLabel
        Left = 16
        Top = 24
        Width = 70
        Height = 13
        Caption = #22270#20070#32534#21495#65306
      end
      object Label10: TLabel
        Left = 16
        Top = 80
        Width = 70
        Height = 13
        Caption = #22270#20070#21517#31216#65306
      end
      object Label12: TLabel
        Left = 16
        Top = 192
        Width = 42
        Height = 13
        Caption = #29366#24577#65306
      end
      object Label13: TLabel
        Left = 230
        Top = 78
        Width = 42
        Height = 13
        Caption = #20215#26684#65306
        Visible = False
      end
      object Label14: TLabel
        Left = 16
        Top = 136
        Width = 70
        Height = 13
        Caption = #36141#36827#37096#38376#65306
      end
      object Label15: TLabel
        Left = 230
        Top = 188
        Width = 56
        Height = 13
        Caption = #20511#20070#20154#65306
      end
      object Label16: TLabel
        Left = 16
        Top = 248
        Width = 70
        Height = 13
        Caption = #20511#20986#26085#26399#65306
      end
      object Label17: TLabel
        Left = 230
        Top = 248
        Width = 70
        Height = 13
        Caption = #24212#36824#26085#26399#65306
      end
      object Label18: TLabel
        Left = 230
        Top = 129
        Width = 70
        Height = 13
        Caption = #36141#36827#26085#26399#65306
        Visible = False
      end
      object Edit4: TEdit
        Left = 88
        Top = 16
        Width = 121
        Height = 21
        Color = clBtnHighlight
        MaxLength = 15
        TabOrder = 0
        OnChange = Edit4Change
      end
      object Button7: TButton
        Left = 238
        Top = 11
        Width = 75
        Height = 25
        Caption = #26597#35810
        Enabled = False
        TabOrder = 1
        OnClick = Button7Click
      end
      object Edit8: TEdit
        Left = 88
        Top = 72
        Width = 121
        Height = 21
        Color = clWhite
        TabOrder = 2
      end
      object Edit9: TEdit
        Left = 88
        Top = 184
        Width = 121
        Height = 21
        Color = clActiveBorder
        ReadOnly = True
        TabOrder = 3
      end
      object Edit10: TEdit
        Left = 294
        Top = 70
        Width = 121
        Height = 21
        TabOrder = 4
      end
      object Edit11: TEdit
        Left = 88
        Top = 128
        Width = 121
        Height = 21
        TabOrder = 5
      end
      object Edit12: TEdit
        Left = 296
        Top = 181
        Width = 121
        Height = 21
        Color = clActiveBorder
        TabOrder = 6
      end
      object Edit13: TEdit
        Left = 88
        Top = 240
        Width = 121
        Height = 21
        Color = clActiveBorder
        TabOrder = 7
      end
      object Edit14: TEdit
        Left = 296
        Top = 240
        Width = 121
        Height = 21
        Color = clActiveBorder
        TabOrder = 8
      end
      object Button8: TButton
        Left = 400
        Top = 280
        Width = 75
        Height = 25
        Caption = #20462#25913
        TabOrder = 9
        Visible = False
        OnClick = Button8Click
      end
      object Button9: TButton
        Left = 496
        Top = 280
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 10
        Visible = False
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 338
        Top = 10
        Width = 75
        Height = 25
        Caption = #28165#38500
        Enabled = False
        TabOrder = 11
        OnClick = Button10Click
      end
      object Edit15: TEdit
        Left = 296
        Top = 128
        Width = 121
        Height = 21
        TabOrder = 12
      end
    end
  end
  object Button1: TButton
    Left = 507
    Top = 358
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button1Click
  end
  object ADODataSet1: TADODataSet
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 352
    Top = 308
  end
  object ADODataSet2: TADODataSet
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 312
    Top = 308
  end
  object ADODataSet3: TADODataSet
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 272
    Top = 308
  end
  object ADOCommand1: TADOCommand
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 224
    Top = 308
  end
  object ADODataSet4: TADODataSet
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 176
    Top = 308
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet4
    Left = 136
    Top = 308
  end
  object ADODataSet5: TADODataSet
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 96
    Top = 308
  end
  object ADOCommand2: TADOCommand
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 56
    Top = 308
  end
end