book.dfm

一个还不错的Delphi编程源码,是一个图书管理系统,比较简单,通俗易懂

object bookform: Tbookform
  Left = 221
  Top = 139
  Width = 544
  Height = 375
  Caption = #22270#20070#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #26032#20070#20837#24211
      OnShow = TabSheet1Show
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 528
        Height = 281
        Align = alTop
        TabOrder = 0
        object StaticText1: TStaticText
          Left = 40
          Top = 16
          Width = 28
          Height = 17
          Caption = #20070#21495
          TabOrder = 0
        end
        object codeedit: TEdit
          Left = 96
          Top = 16
          Width = 121
          Height = 21
          MaxLength = 10
          TabOrder = 1
        end
        object TGroupBox
          Left = 8
          Top = 40
          Width = 513
          Height = 7
          TabOrder = 2
        end
        object StaticText2: TStaticText
          Left = 40
          Top = 56
          Width = 28
          Height = 17
          Caption = #20070#21517
          TabOrder = 3
        end
        object NameEdit: TEdit
          Left = 96
          Top = 56
          Width = 385
          Height = 21
          TabOrder = 4
        end
        object StaticText3: TStaticText
          Left = 40
          Top = 88
          Width = 28
          Height = 17
          Caption = #20316#32773
          TabOrder = 5
        end
        object StaticText4: TStaticText
          Left = 40
          Top = 112
          Width = 40
          Height = 17
          Caption = #20986#29256#31038
          TabOrder = 6
        end
        object StaticText5: TStaticText
          Left = 40
          Top = 136
          Width = 52
          Height = 17
          Caption = #20986#29256#26085#26399
          TabOrder = 7
        end
        object StaticText6: TStaticText
          Left = 40
          Top = 160
          Width = 28
          Height = 17
          Caption = #20215#26684
          TabOrder = 8
        end
        object StaticText7: TStaticText
          Left = 40
          Top = 184
          Width = 28
          Height = 17
          Caption = #22791#27880
          TabOrder = 9
        end
        object StaticText8: TStaticText
          Left = 224
          Top = 136
          Width = 106
          Height = 17
          Caption = #65339#26684#24335#65306'2005-1-1'#65341
          TabOrder = 10
        end
        object AuthorEdit: TEdit
          Left = 96
          Top = 88
          Width = 121
          Height = 21
          TabOrder = 11
        end
        object PressEdit: TEdit
          Left = 96
          Top = 112
          Width = 385
          Height = 21
          TabOrder = 12
        end
        object OuttimeEdit: TEdit
          Left = 96
          Top = 136
          Width = 121
          Height = 21
          TabOrder = 13
        end
        object CostEdit: TEdit
          Left = 96
          Top = 160
          Width = 121
          Height = 21
          TabOrder = 14
        end
        object Memo1: TMemo
          Left = 96
          Top = 184
          Width = 385
          Height = 89
          TabOrder = 15
        end
      end
      object Button1: TButton
        Left = 360
        Top = 288
        Width = 57
        Height = 25
        Caption = #20837#24211
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 416
        Top = 288
        Width = 57
        Height = 25
        Caption = #20851#38381
        TabOrder = 2
        OnClick = Button2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22270#20070#31649#29702
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 528
        Height = 281
        Align = alTop
        TabOrder = 0
        object StaticText9: TStaticText
          Left = 40
          Top = 16
          Width = 28
          Height = 17
          Caption = #20070#21495
          TabOrder = 0
        end
        object TGroupBox
          Left = 8
          Top = 40
          Width = 513
          Height = 7
          TabOrder = 1
        end
        object StaticText10: TStaticText
          Left = 40
          Top = 56
          Width = 28
          Height = 17
          Caption = #20070#21517
          TabOrder = 2
        end
        object StaticText11: TStaticText
          Left = 40
          Top = 88
          Width = 28
          Height = 17
          Caption = #20316#32773
          TabOrder = 3
        end
        object StaticText12: TStaticText
          Left = 40
          Top = 112
          Width = 40
          Height = 17
          Caption = #20986#29256#31038
          TabOrder = 4
        end
        object StaticText13: TStaticText
          Left = 40
          Top = 136
          Width = 52
          Height = 17
          Caption = #20986#29256#26085#26399
          TabOrder = 5
        end
        object StaticText14: TStaticText
          Left = 40
          Top = 160
          Width = 28
          Height = 17
          Caption = #20215#26684
          TabOrder = 6
        end
        object StaticText15: TStaticText
          Left = 40
          Top = 184
          Width = 28
          Height = 17
          Caption = #22791#27880
          TabOrder = 7
        end
        object StaticText16: TStaticText
          Left = 224
          Top = 136
          Width = 106
          Height = 17
          Caption = #65339#26684#24335#65306'2005-1-1'#65341
          TabOrder = 8
        end
        object ComboBox1: TComboBox
          Left = 96
          Top = 16
          Width = 145
          Height = 21
          ItemHeight = 13
          TabOrder = 9
          OnChange = ComboBox1Change
          OnKeyDown = ComboBox1KeyDown
        end
        object DBName: TDBEdit
          Left = 96
          Top = 56
          Width = 121
          Height = 21
          DataSource = DataSource1
          TabOrder = 10
        end
        object DBAuthor: TDBEdit
          Left = 96
          Top = 88
          Width = 121
          Height = 21
          DataSource = DataSource1
          TabOrder = 11
        end
        object DBPress: TDBEdit
          Left = 96
          Top = 112
          Width = 385
          Height = 21
          DataSource = DataSource1
          TabOrder = 12
        end
        object DBOutDate: TDBEdit
          Left = 96
          Top = 136
          Width = 121
          Height = 21
          DataSource = DataSource1
          TabOrder = 13
        end
        object DBCost: TDBEdit
          Left = 96
          Top = 160
          Width = 121
          Height = 21
          DataSource = DataSource1
          TabOrder = 14
        end
        object DBMemo: TDBMemo
          Left = 96
          Top = 184
          Width = 385
          Height = 89
          DataSource = DataSource1
          TabOrder = 15
        end
      end
      object Button4: TButton
        Left = 416
        Top = 288
        Width = 57
        Height = 25
        Caption = #20851#38381
        TabOrder = 1
        OnClick = Button2Click
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DataModuleADO.ADOTable1
    Left = 216
    Top = 8
  end
end