mainform.dfm

本图书管理系统一sql server为数据库开发平台

            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
            TabOrder = 4
            Text = '0.0'
            OnKeyPress = Edit12KeyPress
            OnMouseMove = StaticText1MouseMove
          end
          object CheckBox1: TCheckBox
            Left = 184
            Top = 66
            Width = 97
            Height = 17
            Caption = #26377#26080#30772#25439
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
            TabOrder = 5
            OnClick = CheckBox1Click
            OnMouseMove = StaticText1MouseMove
          end
        end
        object GroupBox7: TGroupBox
          Left = 1
          Top = 147
          Width = 251
          Height = 199
          Align = alClient
          Caption = #36824#38405#39033
          TabOrder = 1
          object DBGrid3: TDBGrid
            Left = 2
            Top = 15
            Width = 247
            Height = 182
            Hint = #36824#38405#26126#32454#34920
            Align = alClient
            Color = 16632508
            Ctl3D = False
            DataSource = Data.backSource
            FixedColor = 16248814
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = DBGrid3CellClick
            OnMouseMove = StaticText1MouseMove
            Columns = <
              item
                Expanded = False
                FieldName = 'BookBarcode'
                Title.Caption = #26465#30721
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'BookName'
                Title.Caption = #20070#21517
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'LendCard'
                Title.Caption = #20511#38405#21345
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'LendDate'
                Title.Caption = #20511#38405#26085#26399
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'HasBreakage'
                Title.Caption = #26159#21542#30772#25439
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Latefee'
                Title.Caption = #28382#32435#37329
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Memo'
                Title.Caption = #27880#37322
                Visible = True
              end>
          end
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 369
        Height = 347
        Align = alClient
        Caption = 'Panel5'
        ParentColor = True
        TabOrder = 1
        object GroupBox5: TGroupBox
          Left = 1
          Top = 1
          Width = 367
          Height = 136
          Align = alTop
          Caption = #20511#38405
          TabOrder = 0
          object Label9: TLabel
            Left = 88
            Top = 113
            Width = 7
            Height = 13
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label13: TLabel
            Left = 5
            Top = 111
            Width = 80
            Height = 16
            Caption = #20511#38405#21333#21495#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            OnMouseMove = StaticText1MouseMove
          end
          object StaticText9: TStaticText
            Left = 183
            Top = 18
            Width = 76
            Height = 20
            BiDiMode = bdLeftToRight
            Caption = '&O'#26465'  '#30721':'
            FocusControl = Edit2
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentBiDiMode = False
            ParentFont = False
            TabOrder = 5
            OnMouseMove = StaticText1MouseMove
          end
          object Edit2: TEdit
            Left = 263
            Top = 17
            Width = 97
            Height = 21
            Hint = #20070#31821#26465#30721
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnKeyPress = Edit2KeyPress
            OnMouseMove = StaticText1MouseMove
          end
          object StaticText12: TStaticText
            Left = 7
            Top = 18
            Width = 76
            Height = 20
            Caption = '&R'#21345'  '#21495':'
            FocusControl = Edit8
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 10
            OnMouseMove = StaticText1MouseMove
          end
          object StaticText13: TStaticText
            Left = 176
            Top = 42
            Width = 84
            Height = 20
            Caption = ' '#20215'   '#26684': '
            FocusControl = Edit10
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 8
            OnMouseMove = StaticText1MouseMove
          end
          object StaticText14: TStaticText
            Left = 7
            Top = 41
            Width = 76
            Height = 20
            Caption = #20070'   '#21517': '
            FocusControl = Edit9
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 7
            OnMouseMove = StaticText1MouseMove
          end
          object Edit8: TEdit
            Left = 85
            Top = 17
            Width = 97
            Height = 21
            Hint = #20511#38405#21345#21495
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = Edit8KeyPress
            OnMouseMove = StaticText1MouseMove
          end
          object Edit9: TEdit
            Left = 85
            Top = 41
            Width = 97
            Height = 21
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
            OnMouseMove = StaticText1MouseMove
          end
          object Edit10: TEdit
            Left = 263
            Top = 42
            Width = 97
            Height = 21
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
            Text = '0.0'
            OnMouseMove = StaticText1MouseMove
          end
          object StaticText15: TStaticText
            Left = 279
            Top = 112
            Width = 82
            Height = 17
            BevelKind = bkSoft
            Caption = ' '#21462#28040#24403#21069#25805#20316' '
            TabOrder = 6
            OnClick = StaticText15Click
            OnMouseDown = StaticText10MouseDown
            OnMouseMove = StaticText1MouseMove
            OnMouseUp = StaticText10MouseUp
          end
          object StaticText16: TStaticText
            Left = 240
            Top = 112
            Width = 31
            Height = 17
            BevelKind = bkSoft
            Caption = ' '#30830#35748
            TabOrder = 9
            OnClick = StaticText16Click
            OnMouseDown = StaticText10MouseDown
            OnMouseMove = StaticText1MouseMove
            OnMouseUp = StaticText10MouseUp
          end
          object StaticText17: TStaticText
            Left = 256
            Top = 66
            Width = 4
            Height = 4
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 11
          end
          object StaticText18: TStaticText
            Left = 6
            Top = 66
            Width = 76
            Height = 20
            Caption = '&M'#22791'  '#27880':'
            FocusControl = Memo2
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 12
            OnMouseMove = StaticText1MouseMove
          end
          object Memo2: TMemo
            Left = 85
            Top = 65
            Width = 276
            Height = 36
            BevelKind = bkFlat
            BevelOuter = bvRaised
            BorderStyle = bsNone
            ScrollBars = ssVertical
            TabOrder = 4
            OnKeyPress = Memo2KeyPress
            OnMouseMove = StaticText1MouseMove
          end
        end
        object GroupBox6: TGroupBox
          Left = 1
          Top = 137
          Width = 367
          Height = 209
          Align = alClient
          Caption = #20511#38405#39033
          TabOrder = 1
          object DBGrid2: TDBGrid
            Left = 2
            Top = 15
            Width = 363
            Height = 192
            Hint = #20511#38405#26126#32454#34920
            Align = alClient
            Color = 16632508
            Ctl3D = False
            DataSource = Data.LendSource
            FixedColor = 16248814
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentCtl3D = False
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = DBGrid2CellClick
            OnMouseMove = StaticText1MouseMove
            Columns = <
              item
                Expanded = False
                FieldName = 'Barcode'
                Title.Caption = #26465#30721
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Bookname'
                Title.Caption = #20070#21517
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'LendCard'
                Title.Caption = #20511#38405#21345
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Memo'
                Title.Caption = #22791#27880
                Visible = True
              end>
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26597#35810
      ImageIndex = 2
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 185
        Height = 347
        Align = alLeft