infobase.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmInfoBase: TfrmInfoBase
  Left = 225
  Top = 223
  Width = 688
  Height = 428
  Caption = #36164#26009#32500#25252#30340#22522#31867
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 680
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = 'ToolBar'
    Flat = True
    Images = frmMain.ilToolButtonImages1
    ShowCaptions = True
    TabOrder = 0
    object tbtNew: TToolButton
      Left = 0
      Top = 0
      Action = acNew
    end
    object tbtModify: TToolButton
      Left = 33
      Top = 0
      Action = acModify
    end
    object tbtDelete: TToolButton
      Left = 66
      Top = 0
      Action = acDelete
    end
    object tbtDivider1: TToolButton
      Left = 99
      Top = 0
      Width = 9
      Caption = 'tbtDivider1'
      ImageIndex = 3
      Style = tbsDivider
    end
    object tbtFirst: TToolButton
      Left = 108
      Top = 0
      Action = acFirst
    end
    object tbtPrior: TToolButton
      Left = 141
      Top = 0
      Action = acPrior
    end
    object tbtNext: TToolButton
      Left = 174
      Top = 0
      Action = acNext
    end
    object tbtLast: TToolButton
      Left = 207
      Top = 0
      Action = acLast
    end
    object tbtDivider: TToolButton
      Left = 240
      Top = 0
      Width = 8
      Caption = 'tbtDivider'
      ImageIndex = 8
      Style = tbsDivider
    end
    object tbtSave: TToolButton
      Left = 248
      Top = 0
      Action = acSave
    end
    object tbtCancel: TToolButton
      Left = 281
      Top = 0
      Action = acCancel
    end
    object ToolButton3: TToolButton
      Left = 314
      Top = 0
      Action = acRefresh
    end
    object ToolButton1: TToolButton
      Left = 347
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object tbtFind: TToolButton
      Left = 355
      Top = 0
      Action = acFind
    end
    object tbtFilter: TToolButton
      Left = 388
      Top = 0
      Action = acFilter
    end
    object tbtPrint: TToolButton
      Left = 421
      Top = 0
      Action = acPrint
    end
    object tbtExport: TToolButton
      Left = 454
      Top = 0
      Action = acExport
    end
    object tbtDivider3: TToolButton
      Left = 487
      Top = 0
      Width = 8
      Caption = 'tbtDivider3'
      ImageIndex = 12
      Style = tbsDivider
    end
    object tbtExit: TToolButton
      Left = 495
      Top = 0
      Action = acExit
    end
  end
  object ALToolbar: TActionList
    Images = frmMain.ilToolButtonImages1
    Left = 382
    Top = 82
    object acNew: TAction
      Caption = #26032#22686
      Hint = #26032#22686
      ImageIndex = 17
      ShortCut = 16429
      OnExecute = acNewExecute
    end
    object acModify: TAction
      Caption = #32534#36753
      Hint = #32534#36753
      ImageIndex = 15
      ShortCut = 16453
      OnExecute = acModifyExecute
    end
    object acDelete: TAction
      Caption = #21024#38500
      Hint = #21024#38500
      ImageIndex = 16
      ShortCut = 16430
      OnExecute = acDeleteExecute
    end
    object acFirst: TAction
      Caption = #39318#26465
      Hint = #39318#26465
      ImageIndex = 8
      ShortCut = 113
      OnExecute = acFirstExecute
    end
    object acPrior: TAction
      Caption = #19978#26465
      Hint = #19978#26465
      ImageIndex = 9
      ShortCut = 114
      OnExecute = acPriorExecute
    end
    object acNext: TAction
      Caption = #19979#26465
      Hint = #19979#26465
      ImageIndex = 10
      ShortCut = 115
      OnExecute = acNextExecute
    end
    object acLast: TAction
      Caption = #26411#26465
      Hint = #26411#26465
      ImageIndex = 11
      ShortCut = 116
      OnExecute = acLastExecute
    end
    object acSave: TAction
      Caption = #20445#23384
      Hint = #20445#23384
      ImageIndex = 4
      ShortCut = 16467
      OnExecute = acSaveExecute
    end
    object acCancel: TAction
      Caption = #21462#28040
      Hint = #21462#28040
      ImageIndex = 5
      ShortCut = 16392
      OnExecute = acCancelExecute
    end
    object acFind: TAction
      Caption = #26597#25214
      Hint = #26597#25214
      ImageIndex = 14
      ShortCut = 16454
      OnExecute = acFindExecute
    end
    object acFilter: TAction
      Caption = #36807#28388
      Hint = #36807#28388
      ImageIndex = 24
      OnExecute = acFilterExecute
    end
    object acPrint: TAction
      Caption = #25171#21360
      Hint = #25171#21360
      ImageIndex = 3
      ShortCut = 16464
      OnExecute = acPrintExecute
    end
    object acExport: TAction
      Caption = #23548#20986
      ImageIndex = 26
      OnExecute = acExportExecute
    end
    object acExit: TAction
      Caption = #20851#38381
      Hint = #20851#38381
      ImageIndex = 20
      ShortCut = 16465
      OnExecute = acExitExecute
    end
    object acRefresh: TAction
      Caption = #21047#26032
      Hint = #21047#26032
      ImageIndex = 27
    end
  end
  object QBaseInfo: TADOQuery
    Connection = dmClient.adocnequip_manage
    LockType = ltBatchOptimistic
    BeforePost = QBaseInfoBeforePost
    AfterPost = QBaseInfoAfterPost
    BeforeDelete = QBaseInfoBeforeDelete
    AfterDelete = QBaseInfoAfterPost
    OnDeleteError = QBaseInfoDeleteError
    OnPostError = QBaseInfoPostError
    Parameters = <>
    SQL.Strings = (
      'select * from tUser')
    Left = 158
    Top = 121
  end
  object dsBaseInfo: TDataSource
    AutoEdit = False
    DataSet = QBaseInfo
    OnStateChange = dsBaseInfoStateChange
    OnDataChange = dsBaseInfoDataChange
    Left = 189
    Top = 122
  end
  object QIsUnique: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    Left = 352
    Top = 81
  end
  object wwLookupDlg: TwwLookupDialog
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = QTemp
    Caption = #26597#25214
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 320
    Top = 80
  end
  object dsQTemp: TDataSource
    DataSet = QTemp
    Left = 192
    Top = 86
  end
  object QTemp: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 161
    Top = 84
  end
  object SaveDialog1: TSaveDialog
    Left = 288
    Top = 81
  end
end