unit5.~dfm

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

object Form5: TForm5
  Left = 155
  Top = 114
  Width = 544
  Height = 375
  Caption = #25968#25454#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 341
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    TabWidth = 150
    object TabSheet1: TTabSheet
      Caption = #22270#20070#20449#24687#26597#35810
      OnShow = TabSheet1Show
      object GroupBox2: TGroupBox
        Left = 8
        Top = 39
        Width = 505
        Height = 41
        Caption = #36755#20837
        TabOrder = 0
        object StaticText1: TStaticText
          Left = 8
          Top = 16
          Width = 124
          Height = 17
          Caption = #36755#20837#35201#26597#35810#30340#20851#38190#23383#65306
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 136
          Top = 14
          Width = 169
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
        end
        object BitBtn1: TBitBtn
          Left = 408
          Top = 11
          Width = 89
          Height = 25
          Caption = #26597'  '#35810
          TabOrder = 2
          OnClick = BitBtn1Click
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000000000000000000000000000000000000000000000000000000000
            00000000000000007B6F396739677B6F39675A6B186318631863186339673967
            3967D65A00000000BD77BD77BD77BD775A6B3967B5569452945218635A6B9C73
            BD77396700000000BD77BD779C733967D65A1042CE396B2D4A298C31EF3D3967
            9C73396700000000BD77BD777B6F18639452F75EB5563146EF3D4A294A291042
            1863396700000000BD779C73D65AF75EDE7B1042A514A5144A29EF3DAD354A29
            1042D65A000000009C735A6B3967FF7F31460000630C841042082925524A2925
            0821EF3D00000000EF3D10429C73FF7FA514C618000000004208630C1042A514
            84102925000000001863AD358410D65A4A299452AD35000021042104A514630C
            8410E71C000000003967D65A524AA51421048410841021040000420842084208
            630CC618000000005A6BF75ED65A18633146E71C2925A514420842084208630C
            8410C61800000000BD777B6F1863D65A1042CE394A29A5144208841084108410
            C618C618000000009C737B6F9C737B6FF75E9452EF3DAD354A29292584108410
            C6184A2900000000B556D65A39675A6B7B6FF75E524A8C312925E71CC618E71C
            E71CAD3500000000B556EF3D524A734EB556734EEF3DAD356B2D8C31AD35EF3D
            3146524A00000000000000000000000000000000000000000000000000000000
            000000000000}
        end
        object CheckBox1: TCheckBox
          Left = 320
          Top = 16
          Width = 73
          Height = 17
          Caption = #27169#31946#26597#35810
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 88
        Width = 505
        Height = 209
        DataSource = DM.DataSource6
        TabOrder = 1
        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 = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookname'
            Title.Caption = #20070#21517
            Width = 119
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookauthor'
            Title.Caption = #20316#32773
            Width = 45
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookman'
            Title.Caption = #20986#29256#31038
            Width = 129
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'typename'
            Title.Caption = #31867#21035
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookremark'
            Title.Caption = #27880#37322
            Width = 48
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 505
        Height = 38
        Caption = #22522#26412#20449#24687
        TabOrder = 2
        object RadioButton1: TRadioButton
          Left = 30
          Top = 16
          Width = 65
          Height = 17
          Caption = #25353#20070#21495
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton2: TRadioButton
          Left = 126
          Top = 16
          Width = 57
          Height = 17
          Caption = #25353#20070#21517
          TabOrder = 1
        end
        object RadioButton3: TRadioButton
          Left = 222
          Top = 16
          Width = 49
          Height = 17
          Caption = #20316#32773
          TabOrder = 2
        end
        object RadioButton4: TRadioButton
          Left = 302
          Top = 16
          Width = 57
          Height = 17
          Caption = #20986#29256#21830
          TabOrder = 3
        end
        object RadioButton5: TRadioButton
          Left = 390
          Top = 16
          Width = 57
          Height = 17
          Caption = #31867#21035
          TabOrder = 4
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35835#32773#20449#24687#26597#35810
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox3: TGroupBox
        Left = 8
        Top = 0
        Width = 505
        Height = 40
        Caption = #26597#35810#39033#30446
        TabOrder = 0
        object RadioButton6: TRadioButton
          Left = 40
          Top = 16
          Width = 65
          Height = 17
          Caption = #21345#21495
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object RadioButton7: TRadioButton
          Left = 144
          Top = 16
          Width = 57
          Height = 17
          Caption = #22995#21517
          TabOrder = 1
        end
        object RadioButton8: TRadioButton
          Left = 256
          Top = 16
          Width = 65
          Height = 17
          Caption = #36523#20221#35777
          TabOrder = 2
        end
        object RadioButton9: TRadioButton
          Left = 376
          Top = 16
          Width = 57
          Height = 17
          Caption = #24615#21035
          TabOrder = 3
        end
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 41
        Width = 505
        Height = 41
        Caption = #36755#20837
        TabOrder = 1
        object StaticText2: TStaticText
          Left = 8
          Top = 16
          Width = 124
          Height = 17
          Caption = #36755#20837#35201#26597#35810#30340#20851#38190#23383#65306
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 136
          Top = 14
          Width = 185
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
        end
        object BitBtn2: TBitBtn
          Left = 416
          Top = 11
          Width = 75
          Height = 25
          Caption = #26597'  '#35810
          TabOrder = 2
          OnClick = BitBtn2Click
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000000000000000000000000000000000000000000000000000000000
            00000000000000007B6F396739677B6F39675A6B186318631863186339673967
            3967D65A00000000BD77BD77BD77BD775A6B3967B5569452945218635A6B9C73
            BD77396700000000BD77BD779C733967D65A1042CE396B2D4A298C31EF3D3967
            9C73396700000000BD77BD777B6F18639452F75EB5563146EF3D4A294A291042
            1863396700000000BD779C73D65AF75EDE7B1042A514A5144A29EF3DAD354A29
            1042D65A000000009C735A6B3967FF7F31460000630C841042082925524A2925
            0821EF3D00000000EF3D10429C73FF7FA514C618000000004208630C1042A514
            84102925000000001863AD358410D65A4A299452AD35000021042104A514630C
            8410E71C000000003967D65A524AA51421048410841021040000420842084208
            630CC618000000005A6BF75ED65A18633146E71C2925A514420842084208630C
            8410C61800000000BD777B6F1863D65A1042CE394A29A5144208841084108410
            C618C618000000009C737B6F9C737B6FF75E9452EF3DAD354A29292584108410
            C6184A2900000000B556D65A39675A6B7B6FF75E524A8C312925E71CC618E71C
            E71CAD3500000000B556EF3D524A734EB556734EEF3DAD356B2D8C31AD35EF3D
            3146524A00000000000000000000000000000000000000000000000000000000
            000000000000}
        end
        object CheckBox2: TCheckBox
          Left = 328
          Top = 16
          Width = 73
          Height = 17
          Caption = #27169#31946#26597#35810
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 88
        Width = 505
        Height = 209
        DataSource = DM.DataSource6
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'readercardid'
            Title.Caption = #21345#21495
            Width = 76
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = #22995#21517
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'id'
            Title.Caption = #36523#20221#35777#21495
            Width = 127
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sextype'
            Title.Caption = #24615#21035
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'email'
            Title.Caption = 'Email'
            Width = 157
            Visible = True
          end>
      end
    end
  end
end