infoimport.dfm

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

        Width = 80
      end
      object cxGrid3DBTableView1plant: TcxGridDBColumn
        Caption = #36710#38388
        DataBinding.FieldName = 'plant'
        Width = 80
      end
      object cxGrid3DBTableView1art: TcxGridDBColumn
        Caption = #24037#33402#22791#27880
        DataBinding.FieldName = 'art'
        Width = 80
      end
      object cxGrid3DBTableView1notice: TcxGridDBColumn
        Caption = #27880#24847#20107#39033
        DataBinding.FieldName = 'notice'
        Width = 80
      end
      object cxGrid3DBTableView1technics: TcxGridDBColumn
        Caption = #24037#24207
        DataBinding.FieldName = 'technics'
        Width = 80
      end
    end
    object cxGrid3Level1: TcxGridLevel
      GridView = cxGrid3DBTableView1
    end
  end
  object dsBaseInfo: TDataSource
    AutoEdit = False
    DataSet = QBaseInfo
    Left = 189
    Top = 122
  end
  object QBaseInfo: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    LockType = ltBatchOptimistic
    AfterOpen = QBaseInfoAfterOpen
    Parameters = <>
    SQL.Strings = (
      
        'select id,xh,sizes,plate,plate_no,GrainCount,Material,Area_plate' +
        ',Price_material,Price_plate,Price_spray,remark from CcModel_Rema' +
        'rk where sizes<>'#39'***'#39)
    Left = 158
    Top = 121
    object QBaseInfoid: TBCDField
      FieldName = 'id'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object QBaseInfoxh: TStringField
      FieldName = 'xh'
      Size = 50
    end
    object QBaseInfosizes: TStringField
      FieldName = 'sizes'
      Size = 30
    end
    object QBaseInfoplate: TStringField
      FieldName = 'plate'
      Size = 30
    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_material: TBCDField
      FieldName = 'Price_material'
      Precision = 18
      Size = 6
    end
    object QBaseInfoPrice_plate: TBCDField
      FieldName = 'Price_plate'
      Precision = 18
      Size = 2
    end
    object QBaseInfoPrice_spray: TBCDField
      FieldName = 'Price_spray'
      Precision = 18
      Size = 2
    end
    object QBaseInforemark: TStringField
      FieldName = 'remark'
      Size = 800
    end
    object QBaseInfoplate_no: TStringField
      FieldName = 'plate_no'
      Size = 10
    end
  end
  object DSCC: TDataSource
    AutoEdit = False
    DataSet = QCC
    Left = 208
    Top = 288
  end
  object QCC: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Value = 180000c
      end>
    SQL.Strings = (
      'select * from dbo.CcInput where fID=:id')
    Left = 224
    Top = 248
    object QCCCc_ID: TBCDField
      FieldName = 'Cc_ID'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object QCCfID: TBCDField
      FieldName = 'fID'
      Precision = 18
      Size = 0
    end
    object QCCXh: TStringField
      FieldName = 'Xh'
      Size = 50
    end
    object QCCSizes: TStringField
      FieldName = 'Sizes'
      Size = 30
    end
    object QCCPlate: TStringField
      FieldName = 'Plate'
      Size = 30
    end
    object QCCNames: TStringField
      FieldName = 'Names'
      Size = 30
    end
    object QCCDatas: TBCDField
      FieldName = 'Datas'
      Precision = 18
    end
    object QCCInputer: TStringField
      FieldName = 'Inputer'
      Size = 30
    end
    object QCCTime_Input: TDateTimeField
      FieldName = 'Time_Input'
    end
    object QCCPerfecter: TStringField
      FieldName = 'Perfecter'
      Size = 10
    end
    object QCCTime_Perfect: TDateTimeField
      FieldName = 'Time_Perfect'
    end
    object QCCSave_Time: TDateTimeField
      FieldName = 'Save_Time'
    end
    object QCCSort: TIntegerField
      FieldName = 'Sort'
    end
    object QCCRemark: TStringField
      FieldName = 'Remark'
      Size = 800
    end
    object QCCMaterial: TStringField
      FieldName = 'Material'
      Size = 50
    end
    object QCCColor: TStringField
      FieldName = 'Color'
      Size = 30
    end
    object QCCUpperLimit: TBCDField
      FieldName = 'UpperLimit'
      Precision = 18
    end
    object QCCLowerLimit: TBCDField
      FieldName = 'LowerLimit'
      Precision = 18
    end
    object QCCplant: TStringField
      FieldName = 'plant'
      Size = 30
    end
    object QCCPlate_no: TStringField
      FieldName = 'Plate_no'
      Size = 50
    end
  end
  object QGY: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Value = 180000c
      end>
    SQL.Strings = (
      'select * from dbo.CcPlantArt where fID=:id '
      '')
    Left = 448
    Top = 312
    object QGYGy_ID: TBCDField
      FieldName = 'Gy_ID'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object QGYfid: TBCDField
      FieldName = 'fid'
      Precision = 18
      Size = 0
    end
    object QGYxh: TStringField
      FieldName = 'xh'
      Size = 50
    end
    object QGYsizes: TStringField
      FieldName = 'sizes'
      Size = 30
    end
    object QGYplate: TStringField
      FieldName = 'plate'
      Size = 30
    end
    object QGYplant: TStringField
      FieldName = 'plant'
      Size = 30
    end
    object QGYart: TStringField
      FieldName = 'art'
      Size = 800
    end
    object QGYnotice: TStringField
      FieldName = 'notice'
      Size = 800
    end
    object QGYsave_time: TDateTimeField
      FieldName = 'save_time'
    end
    object QGYinputer: TStringField
      FieldName = 'inputer'
      Size = 30
    end
    object QGYtime_input: TDateTimeField
      FieldName = 'time_input'
    end
    object QGYperfecter: TStringField
      FieldName = 'perfecter'
      Size = 30
    end
    object QGYtime_perfect: TDateTimeField
      FieldName = 'time_perfect'
    end
    object QGYsort: TIntegerField
      FieldName = 'sort'
    end
    object QGYtechnics: TStringField
      FieldName = 'technics'
      Size = 30
    end
    object QGYPlate_no: TStringField
      FieldName = 'Plate_no'
      Size = 50
    end
  end
  object DSGY: TDataSource
    AutoEdit = False
    DataSet = QGY
    Left = 504
    Top = 288
  end
end