zfrm_unitdisku.dfm

专业的评标管理系统

object zfrm_UnitDisk: Tzfrm_UnitDisk
  Left = 313
  Top = 108
  BorderStyle = bsDialog
  Caption = '制作上报软盘'
  ClientHeight = 134
  ClientWidth = 406
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 85
    Top = 50
    Width = 78
    Height = 12
    Caption = '选择投标单位:'
  end
  object Image1: TImage
    Left = 13
    Top = 10
    Width = 58
    Height = 114
    Picture.Data = {
      07544269746D617076040000424D760400000000000076000000280000002000
      000020000000010008000000000000040000120B0000120B0000100000001000
      0000000000000000800000800000008080008000000080008000808000008080
      8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00080700000000000000000000000000000000000000000000000000000000
      0708080008080808080808080808080808080808080808080808080808080808
      0008080008080808080808080808080808080808080808080808080808080808
      0008080008070707070707070707070707070707070707070707070707070708
      0008080008080808080808080808080808080808080808080808080808080808
      0008080008080808080808080808080808080808080808080808080808080808
      000808000F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F
      0008080808040404040404040505010303020406060707070707040404040408
      080808080804040404080808080D0D090B0A0C0E0D0D0D080808080404040408
      080808080804040404080808080D0D090B0A0C0E0D0D0D080808080404040408
      08080808080404080808080808080D0D090A0C0E0D0D0F0F0F0F0F0808040408
      08080808080408080F0F080808080800000000000008080F0F0F0F0F0F080408
      08080808080408080F0F080808080800000000000008080F0F0F0F0F0F080408
      080808000804080F0F0F0F0F0F0800000F0F0F0F0000080808080F0F0F080408
      000800070804080F0F0F0F0F080F080000000000000D08080808080808080408
      0700000F08040408080F0F080F0F0F0F0D0E0C0A090D0D0D0808080808040408
      0700000F08040408080F0F080F0F0F0F0D0E0C0A090D0D0D0808080808040408
      0700000F00040404040808080F0F0F0D0D0E0C0A0B090D0D0D08080404040400
      0800000F0004040404040404070705050E0E0406030301050404040404040400
      0800000F0004040404040404070705050E0E0406030301050404040404040400
      0800000F00040404040404040404040404040404040404040404040404040400
      0800000F00070807080708070807080708070807080708070807080708070800
      0800000F00080708070807080708070807080708070807080708070807080700
      0800000F00080708070807080708070807080708070807080708070807080700
      0800000F00000000000000000000000000000000000000000000000000000000
      0800000F07070707070707070707070707070707070707070707070707070708
      0F00000F08080808080808080808080808080808080808080808080808080808
      0F00000F08080808080808080808080808080808080808080808080808080808
      0F00000F050D0D05080808080808080808080808080808080808080808080808
      0F0000080F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F
      080000080F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F
      0800080000000000000000000000000000000000000000000000000000000000
      0008}
    Stretch = True
  end
  object Label2: TLabel
    Left = 0
    Top = 0
    Width = 406
    Height = 44
    Align = alTop
    Alignment = taCenter
    AutoSize = False
    Caption = '工程名称'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    Layout = tlCenter
  end
  object ComboBox1: TComboBox
    Left = 188
    Top = 45
    Width = 206
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 0
  end
  object Button1: TButton
    Left = 184
    Top = 94
    Width = 80
    Height = 25
    Caption = '确定'
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 278
    Top = 94
    Width = 80
    Height = 25
    Cancel = True
    Caption = '取消'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Query1: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      
        'SELECT TM_BIDUNITINFO.G_UI_ID, TM_BIDUNITINFO.UI_NAME, TM_BIDUNI' +
        'TINFO.PI_CODE'
      'FROM TM_BIDUNITINFO'
      'WHERE TM_BIDUNITINFO.PI_CODE=:PCODE')
    Left = 112
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PCODE'
        ParamType = ptUnknown
      end>
  end
  object Query2: TQuery
    DatabaseName = 'TenderMSdb'
    Left = 128
    Top = 88
  end
end