ufrmbookmanage.dfm

delphi的一个图书管理系统..结合数据库的.不错

object frmBookManage: TfrmBookManage
  Left = 192
  Top = 171
  Width = 696
  Height = 480
  BorderIcons = [biSystemMenu, biHelp]
  Caption = #20070#31821#30331#35760#27880#38144#31649#29702
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 405
    Width = 688
    Height = 41
    Align = alBottom
    TabOrder = 0
    object btnAppend: TButton
      Left = 32
      Top = 8
      Width = 97
      Height = 25
      Caption = #26032#20070#20837#24211
      TabOrder = 0
      OnClick = btnAppendClick
    end
    object btnEdit: TButton
      Left = 224
      Top = 8
      Width = 97
      Height = 25
      Caption = #20462#25913#20070#31821#20449#24687
      TabOrder = 1
      OnClick = btnEditClick
    end
    object btnDelete: TButton
      Left = 416
      Top = 8
      Width = 75
      Height = 25
      Caption = #21024#38500#20070#31821
      TabOrder = 2
      OnClick = btnDeleteClick
    end
    object Button1: TButton
      Left = 576
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 405
    Align = alClient
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 384
      Height = 403
      Align = alLeft
      BevelOuter = bvLowered
      TabOrder = 0
      object Panel5: TPanel
        Left = 1
        Top = 1
        Width = 382
        Height = 41
        Align = alTop
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 56
          Height = 14
          Caption = #20070#31821#20449#24687
        end
      end
      object DBGrid1: TDBGrid
        Left = 1
        Top = 42
        Width = 382
        Height = 360
        Align = alClient
        DataSource = dsBook
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'BookCode'
            Title.Caption = #20070#21495
            Width = 69
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BookName'
            Title.Caption = #20070#21517
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Author'
            Title.Caption = #20316#32773
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Press'
            Title.Caption = #20986#29256#31038
            Width = 106
            Visible = True
          end>
      end
    end
    object Panel4: TPanel
      Left = 385
      Top = 1
      Width = 302
      Height = 403
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object Label2: TLabel
        Left = 40
        Top = 56
        Width = 28
        Height = 14
        Caption = #20070#21495
      end
      object Label3: TLabel
        Left = 40
        Top = 136
        Width = 28
        Height = 14
        Caption = #20316#32773
      end
      object Label4: TLabel
        Left = 40
        Top = 96
        Width = 28
        Height = 14
        Caption = #20070#21517
      end
      object edBookCode: TDBEdit
        Left = 80
        Top = 48
        Width = 121
        Height = 22
        DataField = 'BookCode'
        DataSource = dsBook
        TabOrder = 0
      end
      object edBookName: TDBEdit
        Left = 80
        Top = 88
        Width = 121
        Height = 22
        DataField = 'BookName'
        DataSource = dsBook
        TabOrder = 1
      end
      object edAuthor: TDBEdit
        Left = 80
        Top = 128
        Width = 121
        Height = 22
        DataField = 'Author'
        DataSource = dsBook
        TabOrder = 2
      end
      object edPress: TDBEdit
        Left = 80
        Top = 168
        Width = 121
        Height = 22
        DataField = 'Press'
        DataSource = dsBook
        TabOrder = 3
      end
      object edPrice: TDBEdit
        Left = 80
        Top = 208
        Width = 121
        Height = 22
        DataField = 'Price'
        DataSource = dsBook
        TabOrder = 4
      end
      object memoRemark: TDBMemo
        Left = 80
        Top = 248
        Width = 169
        Height = 105
        DataField = 'Remark'
        DataSource = dsBook
        TabOrder = 5
      end
      object btnOK: TButton
        Left = 40
        Top = 368
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 6
        OnClick = btnOKClick
      end
      object btnCancel: TButton
        Left = 168
        Top = 368
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 7
        OnClick = btnCancelClick
      end
    end
  end
  object tblBook: TADOTable
    Connection = dmData.ADOConnection1
    CursorType = ctStatic
    TableName = 'Book'
    Left = 128
    Top = 104
  end
  object dsBook: TDataSource
    DataSet = tblBook
    Left = 200
    Top = 104
  end
end