unit5.dfm

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

object Form5: TForm5
  Left = 311
  Top = 260
  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 = 264
        Top = 103
        Width = 249
        Height = 210
        Caption = #36755#20837
        Color = clSkyBlue
        ParentColor = False
        TabOrder = 0
        object StaticText1: TStaticText
          Left = 24
          Top = 40
          Width = 124
          Height = 17
          Caption = #36755#20837#35201#26597#35810#30340#20851#38190#23383#65306
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 24
          Top = 78
          Width = 169
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
        end
        object BitBtn1: TBitBtn
          Left = 128
          Top = 123
          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 = 32
          Top = 128
          Width = 73
          Height = 17
          Caption = #27169#31946#26597#35810
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 8
        Width = 257
        Height = 297
        Color = clSkyBlue
        DataSource = DM.DataSource6
        FixedColor = clSkyBlue
        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 = 40
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'bookname'
            Title.Caption = #20070#21517
            Width = 59
            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 = 58
            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 = 264
        Top = 8
        Width = 249
        Height = 89
        Caption = #22522#26412#20449#24687
        Color = clSkyBlue
        ParentColor = False
        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 = 30
          Top = 32
          Width = 57
          Height = 17
          Caption = #25353#20070#21517
          TabOrder = 1
        end
        object RadioButton3: TRadioButton
          Left = 94
          Top = 16
          Width = 49
          Height = 17
          Caption = #20316#32773
          TabOrder = 2
        end
        object RadioButton4: TRadioButton
          Left = 30
          Top = 48
          Width = 57
          Height = 17
          Caption = #20986#29256#21830
          TabOrder = 3
        end
        object RadioButton5: TRadioButton
          Left = 94
          Top = 32
          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 = 288
        Top = 0
        Width = 225
        Height = 137
        Caption = #26597#35810#39033#30446
        Color = clSkyBlue
        ParentColor = False
        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 = 40
          Top = 48
          Width = 57
          Height = 17
          Caption = #22995#21517
          TabOrder = 1
        end
        object RadioButton8: TRadioButton
          Left = 40
          Top = 112
          Width = 65
          Height = 17
          Caption = #36523#20221#35777
          TabOrder = 2
        end
        object RadioButton9: TRadioButton
          Left = 40
          Top = 80
          Width = 57
          Height = 17
          Caption = #24615#21035
          TabOrder = 3
        end
      end
      object GroupBox4: TGroupBox
        Left = 288
        Top = 137
        Width = 225
        Height = 168
        Caption = #36755#20837
        Color = clSkyBlue
        ParentColor = False
        TabOrder = 1
        object StaticText2: TStaticText
          Left = 8
          Top = 40
          Width = 124
          Height = 17
          Caption = #36755#20837#35201#26597#35810#30340#20851#38190#23383#65306
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 8
          Top = 70
          Width = 185
          Height = 21
          BevelInner = bvLowered
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          TabOrder = 1
        end
        object BitBtn2: TBitBtn
          Left = 96
          Top = 107
          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 = 16
          Top = 112
          Width = 73
          Height = 17
          Caption = #27169#31946#26597#35810
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 0
        Width = 273
        Height = 305
        Color = clSkyBlue
        DataSource = DM.DataSource6
        FixedColor = clSkyBlue
        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 = 58
            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 = 71
            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