querybook.dfm

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

    ZIndex = 0
    Confirmations.Delete = 'Are you sure you want to delete this record?'
    Confirmations.Post = 'Are you sure you want to update this record?'
    Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
    DataSource = dsBook
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Orientation = orHorizontal
  end
  object IWLabel4: TIWLabel
    Left = 164
    Top = 252
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20070#21495#65306
  end
  object IWLabel5: TIWLabel
    Left = 164
    Top = 276
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20070#21517#65306
  end
  object IWLabel6: TIWLabel
    Left = 164
    Top = 296
    Width = 70
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20986#29256#31038#65306
  end
  object IWLabel7: TIWLabel
    Left = 164
    Top = 320
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20316#32773#65306
  end
  object IWLabel8: TIWLabel
    Left = 164
    Top = 344
    Width = 52
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #23450#20215#65306
  end
  object IWImage1: TIWImage
    Left = 28
    Top = 224
    Width = 129
    Height = 181
    ZIndex = 0
    DoSubmitValidation = True
    ScriptEvents = <>
    UseBorder = False
    UseSize = True
    JpegOptions.CompressionQuality = 90
    JpegOptions.Performance = jpBestSpeed
    JpegOptions.ProgressiveEncoding = False
    JpegOptions.Smoothing = True
  end
  object IWDBLabel1: TIWDBLabel
    Left = 260
    Top = 252
    Width = 73
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    DataField = 'BookSerial'
    DataSource = dsBook
  end
  object IWDBLabel2: TIWDBLabel
    Left = 260
    Top = 272
    Width = 75
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    DataField = 'BookName'
    DataSource = dsBook
  end
  object IWDBLabel3: TIWDBLabel
    Left = 260
    Top = 296
    Width = 61
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    DataField = 'Publisher'
    DataSource = dsBook
  end
  object IWDBLabel4: TIWDBLabel
    Left = 260
    Top = 344
    Width = 59
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    DataField = 'SellPrice'
    DataSource = dsBook
  end
  object lbAuthor: TIWLabel
    Left = 260
    Top = 316
    Width = 3
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = 't'
  end
  object IWDBMemo1: TIWDBMemo
    Left = 24
    Top = 428
    Width = 389
    Height = 145
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 4
    WantReturns = False
    AutoEditable = False
    DataField = 'Abstract'
    DataSource = dsBook
  end
  object IWDBMemo2: TIWDBMemo
    Left = 24
    Top = 580
    Width = 389
    Height = 145
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 5
    WantReturns = False
    AutoEditable = False
    DataField = 'Content'
    DataSource = dsBook
  end
  object cbCompPrice: TIWComboBox
    Left = 120
    Top = 76
    Width = 97
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = #35831#36873#25321'...'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 6
    ItemIndex = -1
    Items.Strings = (
      #23567#20110
      #22823#20110)
    Sorted = False
  end
  object cbOrderField: TIWComboBox
    Left = 236
    Top = 108
    Width = 85
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = #35831#36873#25321'...'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 7
    ItemIndex = -1
    Items.Strings = (
      #25353#20986#29256#26085#26399#25490#24207
      #25353#20215#26684#25490#24207)
    Sorted = False
  end
  object IWLabel9: TIWLabel
    Left = 36
    Top = 192
    Width = 123
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #20849#26597#21040#35760#24405#25968#65306
  end
  object cbOrderStyle: TIWComboBox
    Left = 120
    Top = 108
    Width = 97
    Height = 21
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ItemsHaveValues = False
    NoSelectionText = #35831#36873#25321'...'
    RequireSelection = True
    ScriptEvents = <>
    UseSize = False
    DoSubmitValidation = True
    Editable = True
    TabOrder = 8
    ItemIndex = -1
    Items.Strings = (
      #21319#24207
      #38477#24207)
    Sorted = False
  end
  object IWLabel10: TIWLabel
    Left = 24
    Top = 108
    Width = 88
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #25490#24207#26041#24335#65306
  end
  object lbRecCount: TIWLabel
    Left = 172
    Top = 192
    Width = 0
    Height = 0
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
  end
  object btnAddToCarter: TIWButton
    Left = 164
    Top = 380
    Width = 125
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #21152#20837#36141#29289#36710
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 9
    OnClick = btnAddToCarterClick
  end
  object btnCheckCarter: TIWButton
    Left = 316
    Top = 380
    Width = 101
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #26597#30475#36141#29289#36710
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 10
    OnClick = btnCheckCarterClick
  end
  object dsBook: TDataSource
    DataSet = DataModule1.cdsBook
    OnDataChange = dsBookDataChange
    Left = 668
    Top = 8
  end
end