findbookinf.dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

object frmFindBook: TfrmFindBook
  Left = 192
  Top = 127
  BorderStyle = bsDialog
  Caption = #22270#20070#20449#24687#26597#35810
  ClientHeight = 489
  ClientWidth = 817
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 696
    Top = 320
    Width = 113
    Height = 161
    TabOrder = 7
  end
  object DBGrid1: TDBGrid
    Left = 4
    Top = 0
    Width = 685
    Height = 313
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'book_id'
        Title.Alignment = taCenter
        Title.Caption = #22270#20070#32534#21495
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_name'
        Title.Alignment = taCenter
        Title.Caption = #20070#21517
        Width = 187
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_type'
        Title.Alignment = taCenter
        Title.Caption = #31867#21035
        Width = 69
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'author'
        Title.Alignment = taCenter
        Title.Caption = #20316#32773
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'publisher'
        Title.Alignment = taCenter
        Title.Caption = #20986#29256#31038
        Width = 148
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pub_date'
        Title.Alignment = taCenter
        Title.Caption = #20986#29256#26085#26399
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_num'
        Title.Alignment = taCenter
        Title.Caption = #39302#34255#25968
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'borrow_num'
        Title.Alignment = taCenter
        Title.Caption = #20511#20986#25968
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'booking_num'
        Title.Alignment = taCenter
        Title.Caption = #39044#32422#25968
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Alignment = taCenter
        Title.Caption = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'locality'
        Title.Alignment = taCenter
        Title.Caption = #23384#25918#20301#32622
        Width = 111
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mem'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 278
        Visible = True
      end>
  end
  object btnExit: TButton
    Left = 704
    Top = 435
    Width = 97
    Height = 25
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = btnExitClick
  end
  object GroupBox1: TGroupBox
    Left = 696
    Top = 8
    Width = 113
    Height = 169
    TabOrder = 2
    object Edit1: TEdit
      Left = 8
      Top = 92
      Width = 97
      Height = 24
      TabOrder = 0
      Visible = False
    end
    object ComboBox2: TComboBox
      Left = 8
      Top = 20
      Width = 97
      Height = 24
      ItemHeight = 16
      TabOrder = 1
      Text = #25152#26377#30340
      OnChange = ComboBox2Change
      Items.Strings = (
        #25152#26377#30340
        #22270#20070#32534#21495
        #20070#21517
        #31867#21035
        #20316#32773
        #20986#29256#31038
        #20986#29256#26085#26399
        #20511#20986#25968
        #39044#35746#25968
        #34255#20070#25968#37327
        #20215#26684
        #23384#25918#20301#32622
        #22791#27880)
    end
    object ComboBox1: TComboBox
      Left = 11
      Top = 60
      Width = 94
      Height = 24
      ItemHeight = 16
      TabOrder = 2
      Text = '='
      Visible = False
      Items.Strings = (
        '='
        '<>'
        '<'
        '>'
        '<='
        '>='
        ' like ')
    end
    object btnSeek: TButton
      Left = 8
      Top = 132
      Width = 97
      Height = 25
      Caption = #26597'    '#35810
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnSeekClick
    end
  end
  object btnBoroow: TButton
    Left = 704
    Top = 282
    Width = 97
    Height = 25
    Caption = #28155#21152#21040#39044#32422
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btnBoroowClick
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 320
    Width = 681
    Height = 161
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NO'
        Title.Alignment = taCenter
        Title.Caption = #35760#24405#21495
        Width = 94
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_id'
        Title.Alignment = taCenter
        Title.Caption = #22270#20070#32534#21495
        Width = 127
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'book_name'
        Title.Alignment = taCenter
        Title.Caption = #20070#21517
        Width = 159
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'borrow_date'
        Title.Alignment = taCenter
        Title.Caption = #20511#20070#26085#26399
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'return_date'
        Title.Alignment = taCenter
        Title.Caption = #36824#20070#26085#26399
        Width = 68
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'conBorrow_date'
        Title.Alignment = taCenter
        Title.Caption = #32493#20511#26085#26399
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'status'
        Title.Alignment = taCenter
        Title.Caption = #20511#38405#25163#32493
        Visible = True
      end>
  end
  object ComboBox3: TComboBox
    Left = 704
    Top = 344
    Width = 97
    Height = 24
    ItemHeight = 16
    TabOrder = 5
    Text = #26174#31034#25152#26377#35760#24405
    OnChange = ComboBox3Change
    Items.Strings = (
      #26174#31034#25152#26377#35760#24405
      #26174#31034#39044#32422#35760#24405
      #26174#31034#20511#20070#35760#24405
      #26174#31034#36824#20070#35760#24405)
  end
  object Button1: TButton
    Left = 704
    Top = 392
    Width = 97
    Height = 25
    Caption = #21024#38500#35760#24405
    TabOrder = 6
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 744
    Top = 184
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = frmService.DCOMConnection1
    Left = 704
    Top = 184
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    RemoteServer = frmService.DCOMConnection1
    Left = 704
    Top = 216
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet2
    Left = 744
    Top = 216
  end
end