import.dfm

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

inherited frmimport: Tfrmimport
  Left = 213
  Top = 235
  Width = 733
  Caption = #20135#21697#24341#20837
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 201
    Width = 725
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Splitter2: TSplitter [1]
    Left = 361
    Top = 204
    Height = 197
  end
  inherited ToolBar: TToolBar
    Width = 725
    inherited tbtNew: TToolButton
      Visible = False
    end
    inherited tbtModify: TToolButton
      Visible = False
    end
    inherited tbtDelete: TToolButton
      Visible = False
    end
    inherited tbtFirst: TToolButton
      Action = nil
    end
    inherited tbtPrior: TToolButton
      Action = nil
    end
    inherited tbtNext: TToolButton
      Action = nil
    end
    inherited tbtLast: TToolButton
      Action = nil
    end
    inherited tbtSave: TToolButton
      Visible = False
    end
    inherited tbtCancel: TToolButton
      Visible = False
    end
    inherited ToolButton3: TToolButton
      Visible = False
    end
    inherited tbtFind: TToolButton
      Visible = False
    end
    inherited tbtFilter: TToolButton
      Visible = False
    end
    inherited tbtPrint: TToolButton
      Visible = False
    end
    inherited tbtExport: TToolButton
      Action = nil
      OnClick = nil
    end
    inherited tbtExit: TToolButton
      Action = nil
    end
  end
  object wwDGDetail: TDBGridEh [3]
    Left = 0
    Top = 204
    Width = 361
    Height = 197
    Align = alLeft
    AllowedOperations = []
    DataSource = DSCC
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DBGridEh1: TDBGridEh [4]
    Left = 0
    Top = 38
    Width = 725
    Height = 163
    Align = alTop
    AllowedOperations = []
    DataSource = dsBaseInfo
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    STFilter.Local = True
    STFilter.Visible = True
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Xh'
        Footers = <>
        Title.Caption = #22411#21495
      end
      item
        EditButtons = <>
        FieldName = 'Sizes'
        Footers = <>
        Title.Caption = #35268#26684
      end
      item
        EditButtons = <>
        FieldName = 'Plate'
        Footers = <>
        Title.Caption = #30005#38208#33394
      end
      item
        EditButtons = <>
        FieldName = 'TechnicsPic'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'GrainCount'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Material'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Area_plate'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Price_plate'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Price_material'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Price_spray'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'StandOneSortNo'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'StandOneSortName'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Photo'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Auditer'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Time_Audit'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sign_Audit'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sign_Artdept'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'sign_Design'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Number'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Artdepter'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Time_Artdept'
        Footers = <>
      end>
  end
  object DBGridEh2: TDBGridEh [5]
    Left = 364
    Top = 204
    Width = 361
    Height = 197
    Align = alClient
    AllowedOperations = []
    DataSource = DSGY
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  inherited ALToolbar: TActionList
    Left = 430
    object Action1: TAction
      Caption = #30830#23450
      ImageIndex = 7
    end
  end
  inherited QBaseInfo: TADOQuery
    CursorType = ctStatic
    Filtered = True
    SQL.Strings = (
      'select * from CcModel_Remark')
    object QBaseInfoId: TBCDField
      FieldName = 'Id'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object QBaseInfoXh: TStringField
      FieldName = 'Xh'
      Size = 50
    end
    object QBaseInfoRemark: TStringField
      FieldName = 'Remark'
      Size = 800
    end
    object QBaseInfoInputer: TStringField
      FieldName = 'Inputer'
      Size = 30
    end
    object QBaseInfoTime_Input: TDateTimeField
      FieldName = 'Time_Input'
    end
    object QBaseInfoPerfecter: TStringField
      FieldName = 'Perfecter'
      Size = 30
    end
    object QBaseInfoTime_Perfect: TDateTimeField
      FieldName = 'Time_Perfect'
    end
    object QBaseInfoSave_Time: TDateTimeField
      FieldName = 'Save_Time'
    end
    object QBaseInfoSizes: TStringField
      FieldName = 'Sizes'
      Size = 30
    end
    object QBaseInfoPlate: TStringField
      FieldName = 'Plate'
      Size = 30
    end
    object QBaseInfoTechnicsPic: TBlobField
      FieldName = 'TechnicsPic'
    end
    object QBaseInfoGrainCount: TBCDField
      FieldName = 'GrainCount'
      Precision = 18
      Size = 2
    end
    object QBaseInfoMaterial: TStringField
      FieldName = 'Material'
      Size = 50
    end
    object QBaseInfoArea_plate: TBCDField
      FieldName = 'Area_plate'
      Precision = 18
      Size = 6
    end
    object QBaseInfoPrice_plate: TBCDField
      FieldName = 'Price_plate'
      Precision = 18
      Size = 2
    end
    object QBaseInfoPrice_material: TBCDField
      FieldName = 'Price_material'
      Precision = 18
      Size = 6
    end
    object QBaseInfoPrice_spray: TBCDField
      FieldName = 'Price_spray'
      Precision = 18
      Size = 2
    end
    object QBaseInfoStandOneSortNo: TStringField
      FieldName = 'StandOneSortNo'
      Size = 30
    end
    object QBaseInfoStandOneSortName: TStringField
      FieldName = 'StandOneSortName'
      Size = 30
    end
    object QBaseInfoPhoto: TBlobField
      FieldName = 'Photo'
    end
    object QBaseInfoAuditer: TStringField
      FieldName = 'Auditer'
      Size = 30
    end
    object QBaseInfoTime_Audit: TDateTimeField
      FieldName = 'Time_Audit'
    end
    object QBaseInfosign_Audit: TBooleanField
      FieldName = 'sign_Audit'
    end
    object QBaseInfosign_Artdept: TBooleanField
      FieldName = 'sign_Artdept'
    end
    object QBaseInfosign_Design: TBooleanField
      FieldName = 'sign_Design'
    end
    object QBaseInfoNumber: TStringField
      FieldName = 'Number'
      Size = 30
    end
    object QBaseInfoArtdepter: TStringField
      FieldName = 'Artdepter'
      Size = 30
    end
    object QBaseInfoTime_Artdept: TDateTimeField
      FieldName = 'Time_Artdept'
    end
  end
  inherited QIsUnique: TADOQuery
    Left = 376
  end
  inherited SaveDialog1: TSaveDialog
    Left = 248
  end
  object QCC: TADOQuery
    Connection = dmClient.adocnequip_manage
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Size = 19
        Value = Null
      end>
    SQL.Strings = (
      'select * from dbo.CcInput where fID=:id')
    Left = 224
    Top = 248
  end
  object QGY: TADOQuery
    Connection = dmClient.adocnequip_manage
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Size = 19
        Value = Null
      end>
    SQL.Strings = (
      'select * from dbo.CcPlantArt where fID=:id '
      '')
    Left = 456
    Top = 256
  end
  object DSCC: TDataSource
    AutoEdit = False
    DataSet = QCC
    Left = 208
    Top = 288
  end
  object DSGY: TDataSource
    AutoEdit = False
    DataSet = QGY
    Left = 504
    Top = 288
  end
end