zfrm_reportdisku.dfm

专业的评标管理系统

    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 673
    Top = 542
    Width = 80
    Height = 25
    Cancel = True
    Caption = '取消'
    TabOrder = 2
    OnClick = Button2Click
  end
  object ImageList1: TImageList
    Left = 130
    Top = 14
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000010420000000000000000000000000000186310421042000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      1042000010420000000000000000000000001863000018631042FF7FFF7F0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001042000010420000
      186300000000000000001042000000000000186318630000FF7FFF7FFF7FFF7F
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010421863186310421042
      1042104210421042104200001042000000000000186318631863000000001863
      FF7F186300000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863186318631863
      18631863FF7F186310420000000000000000000000000000FF7FFF7FFF7FFF7F
      0000186300000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000104210421863186318631863
      000010421042FF7F104200001042104200000000000000000000000000001863
      0000E07FE07FE07FE07FE07FE07F186300000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000104200000000FF7F186318631863
      000010421042186310420000000000000000000000000000000000000000E07F
      E07FE07FE07F00000000E07FE07FE07F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000104218631863FF7F104200000000
      000000000000186310421863104200000000000000000000000000000000E07F
      E07FE07FE07FE07FE07F0000E07F186300000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000104200000000FF7F10421863FF7F
      000018631863186310420000000000000000000000000000E07FE07FE07F0000
      0000000000000000E07F0000E07FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863000010421863
      0000186318631863104200000000000000000000E07FE07F000018631863E07F
      E07FE07F00000000E07FE07F0000FF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001863FF7F00001042
      1042186318631863104200001042000000000000E07F1863E07FE07FE07FE07F
      E07FE07F1042E07F0000E07F0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000001042186318631863FF7F
      FF7FFF7F186310421042000000000000000000000000E07FE07FE07FE07FE07F
      E07F00000000E07FE07F10420000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000001042000000000000
      186300001042000000000000000000000000000000000000E07FE07FE07FE07F
      E07F1042E07F0000E07F00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      1863000010420000000000000000000000000000000000000000186318631863
      1042E07F00000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000001042
      104210421042000000000000000000000000000000000000000000000000E07F
      E07F000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFF8FFF00000000FE3F03FF00000000
      FC3F00FF00000000E027007F00000000C003001F00000000E007C00100000000
      8001F800000000000001F800000000000001E001000000000001C00000000000
      E007800000000000E003800300000000C007C00700000000E42FC00F00000000
      FC3FF01F00000000FC3FF87F0000000000000000000000000000000000000000
      000000000000}
  end
  object Query1: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      'SELECT TM_BIDUNITINFO.UI_NAME, TM_BIDUNITINFO.G_UI_ID'
      'FROM TM_BIDUNITINFO'
      'where TM_BIDUNITINFO.G_UI_ID=:CO'
      ''
      ''
      '')
    Left = 114
    Top = 330
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CO'
        ParamType = ptUnknown
      end>
  end
  object Query2: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      
        'Insert into TM_ASSESSDATA( G_AD_ID, G_UI_ID, G_AI_ID,AD_REPORTVA' +
        'LUE, X, AD_TYPE)'
      ''
      'Values(:PAID,:PUID,:PIID,:PVA,:PX,:PAD)')
    Left = 74
    Top = 330
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PAID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PUID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PIID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PVA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PX'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PAD'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      'SELECT TM_ASSESSITEM.G_AI_ID'
      'FROM TM_ASSESSITEM'
      'WHERE (((TM_ASSESSITEM.AI_NAME)=:PNAME))')
    Left = 162
    Top = 330
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PNAME'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      
        'insert into  TM_ASSESSDATALIST(G_AD_ID, AL_COUNT, AL_TYPENAME, A' +
        'L_TYPEVALUE, AL_DATATYPE)'
      'values ( :PID,:PCO,:PNAME,:PTV,:PDT)')
    Left = 194
    Top = 330
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PCO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PNAME'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PTV'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PDT'
        ParamType = ptUnknown
      end>
  end
  object Query5: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      
        'UPDATE TM_ASSESSDATA SET TM_ASSESSDATA.AD_REPORTVALUE = :RData, ' +
        'TM_ASSESSDATA.X = :CData'
      'WHERE (((TM_ASSESSDATA.G_AD_ID)=:PID))')
    Left = 234
    Top = 330
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RData'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CData'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end>
  end
  object Query6: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      '  SELECT TM_ASSESSDATA.X, TM_ASSESSDATA.AD_TYPE'
      
        'FROM TM_ASSESSITEM RIGHT JOIN TM_ASSESSDATA ON TM_ASSESSITEM.G_A' +
        'I_ID = TM_ASSESSDATA.G_AI_ID'
      
        'WHERE (((TM_ASSESSITEM.AI_NAME)=:ANAME) AND ((TM_ASSESSDATA.G_UI' +
        '_ID)=1))')
    Left = 282
    Top = 330
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ANAME'
        ParamType = ptUnknown
      end>
  end
end