addbookinfo.dfm

delphi制作的图书管理系统

object FrmAddBookInfo: TFrmAddBookInfo
  Left = 119
  Top = 216
  Width = 545
  Height = 418
  Caption = #28155#21152#22270#20070#20449#24687
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object GrpBoxPurchaseInfo: TGroupBox
    Left = 24
    Top = 4
    Width = 417
    Height = 157
    Caption = #22270#20070#20449#24687
    TabOrder = 5
    object LblID: TLabel
      Left = 24
      Top = 37
      Width = 48
      Height = 12
      Caption = #22270#20070#32534#21495
    end
    object LblName: TLabel
      Left = 24
      Top = 67
      Width = 48
      Height = 12
      Caption = #22270#20070#21517#31216
    end
    object Label1: TLabel
      Left = 228
      Top = 32
      Width = 24
      Height = 12
      Caption = #20316#32773
    end
    object Label2: TLabel
      Left = 48
      Top = 120
      Width = 24
      Height = 12
      Caption = #21333#20215
    end
    object Label3: TLabel
      Left = 36
      Top = 96
      Width = 36
      Height = 12
      Caption = #20986#29256#31038
    end
    object EdtID: TEdit
      Left = 79
      Top = 32
      Width = 100
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object EdtAuthor: TEdit
      Left = 257
      Top = 29
      Width = 86
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
    end
    object EdtName: TEdit
      Left = 78
      Top = 62
      Width = 175
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
    end
    object EdtPress: TEdit
      Left = 78
      Top = 93
      Width = 177
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
    end
    object EdtPrice: TEdit
      Left = 78
      Top = 117
      Width = 121
      Height = 18
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
    end
  end
  object DBGridPurInfo: TDBGrid
    Left = 16
    Top = 168
    Width = 513
    Height = 209
    Ctl3D = True
    DataSource = DM.BookInfoDSource
    ImeName = #26368#24378#20116#31508#36755#20837#27861
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BookID'
        Title.Caption = #22270#20070#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookName'
        Title.Caption = #22270#20070#21517
        Width = 129
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Author'
        Title.Caption = #20316#32773
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Press'
        Title.Caption = #20986#29256#31038
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Price'
        Title.Caption = #21333#20215
        Width = 48
        Visible = True
      end>
  end
  object BtnEdt: TButton
    Left = 451
    Top = 64
    Width = 75
    Height = 23
    Caption = #32534#36753
    TabOrder = 0
    OnClick = BtnEdtClick
  end
  object BtnEdit: TButton
    Left = 451
    Top = 31
    Width = 75
    Height = 25
    Caption = #26032#22686
    TabOrder = 2
    OnClick = BtnEditClick
  end
  object BtnDelete: TButton
    Left = 452
    Top = 94
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 3
    OnClick = BtnDeleteClick
  end
  object BtnExit: TButton
    Left = 452
    Top = 133
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = BtnExitClick
  end
end