unit3.~dfm

2个用Delphi做的图书管理系统

object Form3: TForm3
  Left = 299
  Top = 131
  Width = 465
  Height = 484
  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
  OnHide = FormHide
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 457
    Height = 450
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    TabWidth = 150
    object TabSheet1: TTabSheet
      Caption = #22270#20070#20837#24211
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowFrame
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 40
        Top = 16
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20070#12288#21517#65306
      end
      object Label2: TLabel
        Left = 40
        Top = 48
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20070#12288#21495#65306
      end
      object Label3: TLabel
        Left = 40
        Top = 80
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20316#12288#32773#65306
      end
      object Label4: TLabel
        Left = 40
        Top = 144
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20986#29256#31038#65306
      end
      object Label5: TLabel
        Left = 232
        Top = 16
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #22791#12288#27880#65306
      end
      object Label6: TLabel
        Left = 40
        Top = 192
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20215'    '#26684#65306
      end
      object Label7: TLabel
        Left = 280
        Top = 192
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #20837#24211#25968#37327#65306#65306
      end
      object Label8: TLabel
        Left = 40
        Top = 112
        Width = 60
        Height = 13
        AutoSize = False
        Caption = #31867#12288#21035#65306
      end
      object Label9: TLabel
        Left = 216
        Top = 192
        Width = 12
        Height = 13
        AutoSize = False
        Caption = #20803
      end
      object booknameED: TEdit
        Left = 88
        Top = 14
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object bookIDED: TEdit
        Left = 88
        Top = 46
        Width = 121
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object AuthorED: TEdit
        Left = 88
        Top = 78
        Width = 121
        Height = 21
        TabOrder = 2
      end
      object PubED: TEdit
        Left = 88
        Top = 142
        Width = 121
        Height = 21
        TabOrder = 3
      end
      object PriceED: TEdit
        Left = 88
        Top = 190
        Width = 121
        Height = 21
        TabOrder = 4
      end
      object CountED: TEdit
        Left = 352
        Top = 190
        Width = 121
        Height = 21
        TabOrder = 5
      end
      object infMo: TMemo
        Left = 224
        Top = 46
        Width = 249
        Height = 115
        TabOrder = 6
      end
      object TypeCB: TComboBox
        Left = 88
        Top = 110
        Width = 121
        Height = 21
        Style = csDropDownList
        ImeMode = imChinese
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = False
        TabOrder = 7
      end
      object BitBtn1: TBitBtn
        Left = 168
        Top = 244
        Width = 75
        Height = 25
        Caption = #30830#23450
        Default = True
        ModalResult = 1
        TabOrder = 8
        OnClick = BitBtn1Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 264
        Top = 244
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 9
        OnClick = BitBtn2Click
        Kind = bkCancel
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22270#20070#25972#29702
      ImageIndex = 1
      OnShow = TabSheet2Show
      object Label10: TLabel
        Left = 24
        Top = 232
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #20070#21495#65306
      end
      object Label11: TLabel
        Left = 24
        Top = 264
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #20070#21517#65306
      end
      object Label12: TLabel
        Left = 200
        Top = 232
        Width = 65
        Height = 13
        AutoSize = False
        Caption = #23384#24211#25968#30446#65306
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 489
        Height = 217
        DataSource = DM.DataSource3
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'bookid'
            Title.Caption = #20070#21495
            Width = 95
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookname'
            Title.Caption = #20070#21517
            Width = 309
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'booklast'
            Title.Caption = #22312#23384#25968#30446
            Visible = True
          end>
      end
      object DBEdit1: TDBEdit
        Left = 64
        Top = 230
        Width = 121
        Height = 21
        DataField = 'bookid'
        DataSource = DM.DataSource3
        TabOrder = 1
      end
      object DBEdit2: TDBEdit
        Left = 64
        Top = 262
        Width = 249
        Height = 21
        DataField = 'bookname'
        DataSource = DM.DataSource3
        TabOrder = 2
      end
      object DBEdit3: TDBEdit
        Left = 264
        Top = 230
        Width = 121
        Height = 21
        DataField = 'booklast'
        DataSource = DM.DataSource3
        TabOrder = 3
      end
      object BitBtn3: TBitBtn
        Left = 328
        Top = 264
        Width = 81
        Height = 25
        Caption = #21024#38500
        TabOrder = 4
        OnClick = BitBtn3Click
        Kind = bkCancel
      end
    end
    object TabSheet3: TTabSheet
      Caption = #31867#21035#25972#29702
      ImageIndex = 2
      OnShow = TabSheet3Show
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 449
        Height = 161
        DataSource = DM.DataSource4
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnMouseUp = DBGrid2MouseUp
        Columns = <
          item
            Expanded = False
            FieldName = 'BookTypeID'
            Title.Caption = #31867#21035#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TypeName'
            Title.Caption = #31867#21035#21517#31216
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 168
        Width = 449
        Height = 225
        Caption = ' '#32534#36753
        TabOrder = 1
        object RadioGroup1: TRadioGroup
          Left = 8
          Top = 16
          Width = 433
          Height = 49
          Caption = #32534#36753#26041#24335
          TabOrder = 0
        end
        object GroupBox2: TGroupBox
          Left = 8
          Top = 72
          Width = 433
          Height = 97
          Caption = #32534#36753#20869#23481
          TabOrder = 1
          object Label13: TLabel
            Left = 32
            Top = 24
            Width = 65
            Height = 13
            AutoSize = False
            Caption = #31867#21035#32534#21495#65306
          end
          object Label14: TLabel
            Left = 32
            Top = 64
            Width = 65
            Height = 13
            AutoSize = False
            Caption = #31867#21035#21517#31216#65306
          end
          object Edit1: TEdit
            Left = 112
            Top = 20
            Width = 241
            Height = 21
            TabOrder = 0
            Text = 'Edit1'
          end
          object Edit2: TEdit
            Left = 112
            Top = 60
            Width = 241
            Height = 29
            TabOrder = 1
            Text = 'Edit2'
          end
        end
        object BitBtn4: TBitBtn
          Left = 128
          Top = 184
          Width = 75
          Height = 25
          Caption = #30830#23450
          TabOrder = 2
          OnClick = BitBtn4Click
          Kind = bkOK
        end
        object BitBtn5: TBitBtn
          Left = 232
          Top = 184
          Width = 75
          Height = 25
          Caption = #21462#28040
          TabOrder = 3
          OnClick = BitBtn5Click
          Kind = bkCancel
        end
        object RadioButton3: TRadioButton
          Left = 328
          Top = 32
          Width = 73
          Height = 17
          Caption = #21024#38500
          TabOrder = 4
          OnClick = RadioButton3Click
        end
        object RadioButton2: TRadioButton
          Left = 200
          Top = 32
          Width = 73
          Height = 17
          Caption = #28155#21152
          TabOrder = 5
          OnClick = RadioButton1Click
        end
        object RadioButton1: TRadioButton
          Left = 80
          Top = 32
          Width = 57
          Height = 17
          Caption = #20462#25913
          TabOrder = 6
          OnClick = RadioButton1Click
        end
      end
    end
  end
end