importbase.dfm

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

inherited frmImportBase: TfrmImportBase
  Left = 95
  Top = 130
  Width = 602
  Caption = #21333#25454#24341#20837#31383#20307#30340#22522#31867
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 166
    Width = 594
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 594
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = 'ToolBar1'
    Flat = True
    Images = frmMain.ToolButtonImages
    ShowCaptions = True
    TabOrder = 0
    object tbtfirst: TToolButton
      Left = 0
      Top = 0
      Action = acFirst
    end
    object tbtprior: TToolButton
      Left = 33
      Top = 0
      Action = acPrior
    end
    object tbtNext: TToolButton
      Left = 66
      Top = 0
      Action = acNext
    end
    object tbtLast: TToolButton
      Left = 99
      Top = 0
      Action = acLast
    end
    object ToolButton2: TToolButton
      Left = 132
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsDivider
    end
    object tbtImport: TToolButton
      Left = 140
      Top = 0
      Action = acImport
    end
    object ToolButton1: TToolButton
      Left = 173
      Top = 0
      Width = 11
      Caption = 'ToolButton1'
      ImageIndex = 0
      Style = tbsDivider
    end
    object tbtExit: TToolButton
      Left = 184
      Top = 0
      Action = acExit
    end
  end
  object wwDGMaster: TwwDBGrid
    Left = 0
    Top = 38
    Width = 594
    Height = 128
    Selected.Strings = (
      'fNO'#9'17'#9#21512#21516#21495
      'sCustomerCode'#9'10'#9#23458#25143#32534#21495
      'sCustomerName'#9'20'#9#23458#25143#21517#31216
      'fDate'#9'12'#9#31614#23450#26085#26399
      'fDeliveryDate'#9'12'#9#20132#20184#26085#26399
      'fEarnest'#9'11'#9#23450#37329'(%)'
      'fBalanceMethod'#9'50'#9#32467#31639#26041#24335)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alTop
    DataSource = dsMaster
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 1
    TitleAlignment = taLeftJustify
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  object wwDGDetail: TwwDBGrid
    Left = 0
    Top = 169
    Width = 594
    Height = 179
    Selected.Strings = (
      'sCode'#9'19'#9#20135#21697#20195#30721
      'sName'#9'36'#9#21517#31216
      'fUnitPrice'#9'11'#9#21333#20215
      'fQty'#9'11'#9#25968#37327
      'rSumPrice'#9'10'#9#37329#39069)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = dsDetail
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 2
    TitleAlignment = taLeftJustify
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  object ALToolbar: TActionList
    Images = frmMain.ToolButtonImages
    Left = 224
    Top = 16
    object acImport: TAction
      Caption = #24341#20837
      ImageIndex = 23
    end
    object acFirst: TAction
      Caption = #39318#26465
      ImageIndex = 8
      OnExecute = acFirstExecute
    end
    object acPrior: TAction
      Caption = #19978#26465
      ImageIndex = 9
      OnExecute = acPriorExecute
    end
    object acNext: TAction
      Caption = #19979#26465
      ImageIndex = 10
      OnExecute = acNextExecute
    end
    object acLast: TAction
      Caption = #26410#26465
      ImageIndex = 11
      OnExecute = acLastExecute
    end
    object acExit: TAction
      Caption = #20851#38381
      ImageIndex = 20
      OnExecute = acExitExecute
    end
  end
  object QMaster: TADOQuery
    Connection = dmClient.adocnClothing
    LockType = ltReadOnly
    Parameters = <>
    Left = 408
    Top = 80
  end
  object QDetail: TADOQuery
    Connection = dmClient.adocnClothing
    LockType = ltReadOnly
    DataSource = dsMaster
    Parameters = <>
    Left = 408
    Top = 192
  end
  object dsMaster: TDataSource
    DataSet = QMaster
    OnDataChange = dsMasterDataChange
    Left = 424
    Top = 96
  end
  object dsDetail: TDataSource
    DataSet = QDetail
    Left = 424
    Top = 208
  end
  object QProducts: TADOQuery
    Connection = dmClient.adocnClothing
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select fID,fCode,fName,fSpec,fColor,fUnitsName From tProduct')
    Left = 88
    Top = 200
  end
end