booksettingform.dfm

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· DFM 代码 · 共 109 行

inherited BookSetting: TBookSetting
  Width = 725
  Caption = #22270#20070#31867#21035#35774#32622
  Enabled = True
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label3: TLabel
    Width = 60
    Caption = #31867#22411#32534#21495#65306
  end
  inherited Label4: TLabel
    Width = 60
    Caption = #31867#22411#21517#31216#65306
  end
  inherited Label5: TLabel
    Visible = False
  end
  inherited ToolBar1: TToolBar
    Width = 1009
  end
  inherited BitBtn1: TBitBtn
    OnClick = BitBtn1Click
  end
  inherited Edit3: TEdit
    Visible = False
  end
  inherited Panel1: TPanel
    Width = 1009
    Height = 609
    ParentCtl3D = False
    object Label6: TLabel [0]
      Left = 200
      Top = 488
      Width = 60
      Height = 13
      Caption = #31867#22411#32534#21495#65306
    end
    object Label7: TLabel [1]
      Left = 472
      Top = 488
      Width = 60
      Height = 13
      Caption = #21487#20511#22825#25968#65306
    end
    object Label8: TLabel [2]
      Left = 200
      Top = 536
      Width = 60
      Height = 13
      Caption = #31867#22411#21517#31216#65306
    end
    inherited DBGrid1: TDBGrid
      Width = 985
      Height = 449
      TabOrder = 3
    end
    object DBEdit1: TDBEdit
      Left = 280
      Top = 480
      Width = 121
      Height = 21
      DataField = 'BookType_TypeNo'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 552
      Top = 480
      Width = 121
      Height = 21
      DataField = 'BookType_LendDays'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 280
      Top = 528
      Width = 401
      Height = 21
      DataField = 'BookType_TypeName'
      DataSource = DataSource1
      TabOrder = 2
    end
  end
  inherited DataSource1: TDataSource
    Left = 496
  end
  inherited ADOTable1: TADOTable
    Active = True
    CursorType = ctStatic
    TableName = 'BookType'
    Left = 544
  end
  inherited ImageList1: TImageList
    Left = 680
    Top = 0
  end
  inherited ADOQuery1: TADOQuery
    Left = 576
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule3.ADOConnection1
    Parameters = <>
    Left = 616
    Top = 8
  end
end