editbook.~dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 262 行

object EditBookFrm: TEditBookFrm
  Left = 188
  Top = 116
  Width = 457
  Height = 281
  Caption = #20462#25913#22270#20070#35760#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 5
    Top = 9
    Width = 42
    Height = 13
    AutoSize = False
    Caption = #20070#21495
  end
  object Label2: TLabel
    Left = 5
    Top = 42
    Width = 42
    Height = 13
    AutoSize = False
    Caption = #20070#21517
  end
  object Label3: TLabel
    Left = 5
    Top = 76
    Width = 42
    Height = 13
    AutoSize = False
    Caption = #20316#32773
  end
  object Label4: TLabel
    Left = 155
    Top = 7
    Width = 54
    Height = 13
    AutoSize = False
    Caption = #20986#29256#31038
  end
  object Label5: TLabel
    Left = 155
    Top = 42
    Width = 66
    Height = 13
    AutoSize = False
    Caption = #36141#20080#26102#38388
  end
  object Label10: TLabel
    Left = 156
    Top = 75
    Width = 54
    Height = 13
    AutoSize = False
    Caption = #35760#24405#25968
  end
  object Label9: TLabel
    Left = 340
    Top = 41
    Width = 54
    Height = 13
    AutoSize = False
    Caption = #24050#39044#32422
  end
  object Label6: TLabel
    Left = 340
    Top = 7
    Width = 54
    Height = 13
    AutoSize = False
    Caption = #24050#20511#38405
  end
  object DBEdit1: TDBEdit
    Left = 44
    Top = 4
    Width = 100
    Height = 21
    DataField = 'BookNO'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 44
    Top = 38
    Width = 100
    Height = 21
    DataField = 'BookName'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 44
    Top = 72
    Width = 100
    Height = 21
    DataField = 'Author'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 215
    Top = 4
    Width = 120
    Height = 21
    DataField = 'Publishment'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit5: TDBEdit
    Left = 215
    Top = 38
    Width = 120
    Height = 21
    DataField = 'BuyTime'
    DataSource = DataSource1
    TabOrder = 4
  end
  object BitBtn1: TBitBtn
    Left = 344
    Top = 88
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 136
    Width = 441
    Height = 121
    DataSource = DataSource1
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BookNO'
        Title.Caption = #20070#21495
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BookName'
        Title.Caption = #20070#21517
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Author'
        Title.Caption = #20316#32773
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Publishment'
        Title.Caption = #20986#29256#31038
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BuyTime'
        Title.Caption = #36141#20080#26102#38388
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Borrowed'
        Title.Caption = #24050#20511#38405
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Ordered'
        Title.Caption = #24050#39044#32422
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 215
    Top = 72
    Width = 41
    Height = 21
    ReadOnly = True
    TabOrder = 7
  end
  object DBComboBox1: TDBComboBox
    Left = 389
    Top = 40
    Width = 60
    Height = 21
    DataField = 'Ordered'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'True'
      'False')
    TabOrder = 8
  end
  object DBComboBox2: TDBComboBox
    Left = 389
    Top = 5
    Width = 60
    Height = 21
    DataField = 'Borrowed'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      'True'
      'False')
    TabOrder = 9
  end
  object DBNavigator1: TDBNavigator
    Left = 32
    Top = 104
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 10
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'LibBook'
    TableName = 'Book'
    Left = 168
    Top = 192
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 128
    Top = 192
  end
  object Database1: TDatabase
    AliasName = 'Library'
    Connected = True
    DatabaseName = 'LibBook'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 208
    Top = 193
  end
end