productinfo.dfm

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

      Size = 50
    end
    object QBaseInfoPlate: TStringField
      FieldName = 'Plate'
      Size = 50
    end
    object QBaseInfosplate_no: TStringField
      FieldKind = fkLookup
      FieldName = 'splate_no'
      LookupDataSet = Qplate
      LookupKeyFields = 'plate_no;plate_name'
      LookupResultField = 'plate_no'
      KeyFields = 'Plate_no;plate'
      Size = 50
      Lookup = True
    end
    object QBaseInfoModel_No: TStringField
      FieldName = 'Model_No'
      Size = 50
    end
    object QBaseInfoEmpolder_No: TStringField
      FieldName = 'Empolder_No'
      Size = 50
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 628
    Top = 306
  end
  inherited QIsUnique: TADOQuery
    Left = 556
    Top = 5
  end
  inherited wwLookupDlg: TwwLookupDialog
    Left = 565
    Top = 22
  end
  inherited dsQTemp: TDataSource
    Left = 670
    Top = 10
  end
  inherited QTemp: TADOQuery
    Left = 705
    Top = 2
  end
  inherited SaveDialog1: TSaveDialog
    Left = 641
    Top = 11
  end
  object QCc: TADOQuery
    Active = True
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    AfterScroll = QCcAfterScroll
    OnNewRecord = QCcNewRecord
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Value = 390000c
      end>
    SQL.Strings = (
      'select * from dbo.CcInput where fID=:id '
      ''
      'order by sort')
    Left = 223
    Top = 347
    object QCcplant: TStringField
      FieldName = 'plant'
      Size = 30
    end
    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 QCcNames: TStringField
      FieldName = 'Names'
      Size = 30
    end
    object QCcDatas: TBCDField
      FieldName = 'Datas'
      Precision = 18
    end
    object QCcInputer: TStringField
      FieldName = 'Inputer'
      Size = 30
    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 QCcTime_Input: TDateTimeField
      FieldName = 'Time_Input'
    end
    object QCcPlate_no: TStringField
      FieldName = 'Plate_no'
      Size = 50
    end
    object QCcPlate: TStringField
      FieldName = 'Plate'
      Size = 50
    end
  end
  object DsCc: TDataSource
    DataSet = QCc
    Left = 256
    Top = 363
  end
  object QGy: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    BeforePost = QGyBeforePost
    AfterScroll = QGyAfterScroll
    OnNewRecord = QGyNewRecord
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Value = 390000c
      end>
    SQL.Strings = (
      'select * from dbo.CcPlantArt where fID=:id '
      ''
      'order by sort')
    Left = 367
    Top = 451
    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 QGyplant: TStringField
      FieldName = 'plant'
      Size = 30
    end
    object QGyart: TStringField
      FieldName = 'art'
      Size = 800
    end
    object QGysort: TIntegerField
      FieldName = 'sort'
    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 QGytechnics: TStringField
      FieldName = 'technics'
      Size = 30
    end
    object QGyPlate_no: TStringField
      FieldName = 'Plate_no'
      Size = 50
    end
    object QGyplate: TStringField
      FieldName = 'plate'
      Size = 50
    end
  end
  object DsGy: TDataSource
    DataSet = QGy
    OnDataChange = DsGyDataChange
    Left = 472
    Top = 469
  end
  object PopupMenu1: TPopupMenu
    Left = 352
    Top = 383
    object N3: TMenuItem
      Caption = #21024#38500
      Enabled = False
      OnClick = N3Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 424
    Top = 463
    object MenuItem3: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem3Click
    end
  end
  object QPublic: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    Left = 298
    Top = 342
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    DataSet = QBaseInfo
    Left = 496
    Top = 331
  end
  object frxDBDataset2: TfrxDBDataset
    UserName = 'frxDBDataset2'
    DataSet = QCc
    Left = 464
    Top = 403
  end
  object frxDBDataset3: TfrxDBDataset
    UserName = 'frxDBDataset3'
    DataSet = QGy
    Left = 552
    Top = 339
  end
  object frxDBDataset4: TfrxDBDataset
    UserName = 'frxDBDataset4'
    DataSet = QLSDA
    Left = 688
    Top = 299
  end
  object frxReport2: TfrxReport
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    ReportOptions.CreateDate = 39339.653759756900000000
    ReportOptions.LastChange = 39350.476286886600000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
      ''
      'procedure Page1OnAfterPrint(Sender: TfrxComponent);'
      'begin'
      ''
      'end;'
      ''
      'procedure Memo25OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      '//  memo25.text:=<a>;'
      'end;'
      ''
      'begin'
      ''
      'end.')
    OnGetValue = frxReport2GetValue
    Left = 536
    Top = 291
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end
      item
        DataSet = frxDBDataset2
        DataSetName = 'frxDBDataset2'
      end
      item
        DataSet = frxDBDataset3
        DataSetName = 'frxDBDataset3'
      end
      item
        DataSet = frxDBDataset4
        DataSetName = 'frxDBDataset4'
      end
      item
        DataSet = frxDBDataset5
        DataSetName = 'frxDBDataset5'
      end>
    Variables = <
      item
        Name = ' New Category1'
        Value = Null
      end
      item
        Name = 'a'
        Value = Null
      end>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      OnAfterPrint = 'Page1OnAfterPrint'
      object MasterData1: TfrxMasterData
        Height = 254.826744800000000000
        Top = 41.574830000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo3: TfrxMemoView
          Left = 228.431432940000000000
          Top = 36.204699999999990000
          Width = 32.086580000000000000
          Height = 17.677180000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Memo.Strings = (
            #35268#26684#65306)
          ParentFont = False
          Style = 'Header'
        end
        object Memo4: TfrxMemoView
          Left = 3.140419640000000000
          Top = 100.157480310000000000
          Width = 20.188560590000000000
          Height = 67.677180000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Memo.Strings = (
            #20135
            #21697
            #29031
            #29255)
          ParentFont = False
        end
        object Memo5: TfrxMemoView
          Left = 358.844173570000000000
          Top = 37.204699999999990000
          Width = 46.743524820000000000
          Height = 15.677180000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Memo.Strings = (
            #39068#33394#65306)
          ParentFont = False
          Style = 'Header'
        end
        object Line1: TfrxLineView
          Left = 22.677165350000000000
          Top = 59.425170000000000000
          Height = 195.401574800000000000
          Frame.Typ = [ftLeft]
        end
        object Line2: TfrxLineView
          Left = 221.433210000000000000
          Top = 32.425170000000000000
          Height = 27.133890000000000000
          Frame.Typ = [ftLeft]
        end
        object Line3: TfrxLineView
          Left = 355.275590551181000000
          Top = 32.503937009999990000
          Height = 222.236220470000000000
          Frame.Typ = [ftLeft]
        end
        object Line4: TfrxLineView
          Top = 32.425170000000000000
          Width = 710.551181102362000000
          Frame.Typ = [ftTop]
        end
        object Memo6: TfrxMemoView
          Left = 7.779530000000000000
          Top = 36.204699999999990000
          Width = 44.099169700000000000
          Height = 15.677180000000000000
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Memo.Strings = (
            #22411#21495#65306)
          ParentFont = False
          Style = 'Header'
        end
        object Line5: TfrxLineView
          Left = 278.126160000000000000
          Top = 32.425170000000000000