zfrm_projectnewu.dfm

专业的评标管理系统

object zfrm_ProjectNew: Tzfrm_ProjectNew
  Left = 187
  Top = 38
  ActiveControl = Edit1
  BorderStyle = bsDialog
  Caption = '新建工程'
  ClientHeight = 343
  ClientWidth = 532
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 11
    Top = 3
    Width = 510
    Height = 300
    ActivePage = TabSheet1
    TabOrder = 0
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = '工程详细信息'
      object GroupBox1: TGroupBox
        Left = 6
        Top = -1
        Width = 490
        Height = 270
        TabOrder = 0
        object Label1: TLabel
          Left = 44
          Top = 14
          Width = 72
          Height = 12
          Caption = '工程代码(&C):'
        end
        object Label2: TLabel
          Left = 44
          Top = 35
          Width = 72
          Height = 12
          Caption = '工程名称(&N):'
        end
        object Label3: TLabel
          Left = 44
          Top = 55
          Width = 72
          Height = 12
          Caption = '招标单位(&U):'
        end
        object Label4: TLabel
          Left = 44
          Top = 76
          Width = 72
          Height = 12
          Caption = '招标形式(&E):'
        end
        object Label5: TLabel
          Left = 252
          Top = 98
          Width = 72
          Height = 12
          Caption = '标底造价(&L):'
        end
        object Label6: TLabel
          Left = 44
          Top = 97
          Width = 72
          Height = 12
          Caption = '发包方式(&P):'
        end
        object Label7: TLabel
          Left = 252
          Top = 118
          Width = 72
          Height = 12
          Caption = '标底工期(&D):'
        end
        object Label8: TLabel
          Left = 44
          Top = 118
          Width = 72
          Height = 12
          Caption = '工程类型(&Y):'
        end
        object Label9: TLabel
          Left = 252
          Top = 78
          Width = 72
          Height = 12
          Caption = '工程质量(&Q):'
        end
        object Label10: TLabel
          Left = 44
          Top = 138
          Width = 72
          Height = 12
          Caption = '开标时间(&T):'
        end
        object Label11: TLabel
          Left = 44
          Top = 157
          Width = 72
          Height = 12
          Caption = '工程描述(&R):'
        end
        object Image1: TImage
          Left = 7
          Top = 13
          Width = 32
          Height = 32
          AutoSize = True
          Picture.Data = {
            055449636F6E0000010001002020100000000000E80200001600000028000000
            2000000040000000010004000000000080020000000000000000000000000000
            0000000000000000000080000080000000808000800000008000800080800000
            80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
            FFFFFF00000000000000000000000000000000000008FFF00000000000000000
            0000000000887777000000000000000000000000008800770F00000000000000
            00000000088088F70FFF0000000000000000000008808880FFFFF00000000000
            000000000888000FFF8FFFF0000000000000000007888800F8088FFF00000000
            000000000078888800F0088F8800000000000000000077700FFFF00888880000
            000000000000000FFFFFFFF088800000000000000000000000FFF8880008BBBB
            BB8800000000000000000800BBBBBBBBBBBBB80000000000000000BBBBBBBBBB
            BBBBBBB0000000000000BBBBBBBBB0000BBBBBB00000000000BB87000000000B
            B0BBBB800000000000008B8BBBBBBBBBB00BB80000000000BBBBBBBBBBBBBBBB
            BBB00000000000BBBBBB0000000000BBB0BB0F000000BBBBB0008888888870BB
            0B0B0FF0000BBBB00888BBBBBBB070BB0BB00FF0000BB0088BBBBBBBBBB070BB
            0B700000000B088BBBBBBBBBBB070BB0BB00000000008BBBBBBBBBBBBB070BB0
            BB00000000000BBBBBBBBBBBB070BB0BB7000000000008BBBBBBBBBBB070BB0B
            B00000000000008BBBBBBBBB070BB0BB0000000000000000BBBBBBB070BB0BB0
            0000000000000000088888070BB0B0000000000000000000000000BBBB000000
            00000000000000000000BBBB0000000000000000000000000000000000000000
            00000000E07FFFFFC01FFFFF8007FFFF8003FFFF0000FFFF00007FFF00001FFF
            000007FF800003FFC0000007F0000001FC000000FFC00000FFE00000FFC00000
            FF800000FE000001F8000000F0000000E0000000C0000000C0000009C000000F
            C000000FF000001FF000003FF800007FFC0000FFFF0001FFFF8007FFFFC03FFF
            FFF0FFFF}
        end
        object Label12: TLabel
          Left = 252
          Top = 138
          Width = 72
          Height = 12
          Caption = '建筑面积(&M):'
        end
        object Label13: TLabel
          Left = 431
          Top = 99
          Width = 24
          Height = 12
          Caption = '[￥]'
        end
        object Label14: TLabel
          Left = 431
          Top = 138
          Width = 24
          Height = 12
          Caption = '[㎡]'
        end
        object Label15: TLabel
          Left = 431
          Top = 118
          Width = 24
          Height = 12
          Caption = '[天]'
        end
        object BitBtn1: TBitBtn
          Left = 240
          Top = 12
          Width = 60
          Height = 17
          Caption = '复 位'
          TabOrder = 12
          OnClick = BitBtn1Click
          Style = bsNew
        end
        object ComboBox1: TComboBox
          Left = 119
          Top = 72
          Width = 127
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 3
        end
        object ComboBox2: TComboBox
          Left = 119
          Top = 93
          Width = 127
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 5
        end
        object Edit1: TEdit
          Left = 119
          Top = 10
          Width = 107
          Height = 20
          MaxLength = 8
          TabOrder = 0
          Text = '0'
          OnKeyPress = Edit1KeyPress
        end
        object Edit2: TEdit
          Left = 119
          Top = 31
          Width = 334
          Height = 20
          MaxLength = 50
          TabOrder = 1
          Text = 'Edit2'
          OnKeyPress = Edit1KeyPress
        end
        object Edit3: TEdit
          Left = 119
          Top = 52
          Width = 334
          Height = 20
          MaxLength = 50
          TabOrder = 2
          Text = 'Edit3'
          OnKeyPress = Edit1KeyPress
        end
        object Edit4: TEdit
          Left = 326
          Top = 94
          Width = 105
          Height = 20
          BiDiMode = bdLeftToRight
          ParentBiDiMode = False
          TabOrder = 6
          Text = 'Edit4'
          OnExit = Edit4Exit
          OnKeyPress = Edit7KeyPress
        end
        object Edit5: TEdit
          Left = 326
          Top = 114
          Width = 105
          Height = 20
          BiDiMode = bdLeftToRight
          ParentBiDiMode = False
          TabOrder = 8
          Text = 'Edit5'
          OnExit = Edit4Exit
          OnKeyPress = Edit7KeyPress
        end
        object Edit6: TEdit
          Left = 326
          Top = 74
          Width = 127
          Height = 20
          MaxLength = 30
          TabOrder = 4
          Text = 'Edit6'
        end
        object Memo1: TMemo
          Left = 44
          Top = 171
          Width = 410
          Height = 94
          Lines.Strings = (
            'Memo1')
          MaxLength = 255
          ScrollBars = ssVertical
          TabOrder = 11
          OnKeyPress = Edit1KeyPress
        end
        object Edit7: TEdit
          Left = 326
          Top = 134
          Width = 105
          Height = 20
          BiDiMode = bdLeftToRight
          ParentBiDiMode = False
          TabOrder = 10
          Text = 'Edit7'
          OnExit = Edit4Exit
          OnKeyPress = Edit7KeyPress
        end
        object DateTimePicker1: TDateTimePicker
          Left = 119
          Top = 134
          Width = 127
          Height = 20
          CalAlignment = dtaRight
          Date = 37050.7917825926
          Time = 37050.7917825926
          DateFormat = dfLong
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 9
        end
        object ComboBox3: TComboBox
          Left = 119
          Top = 114
          Width = 127
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          TabOrder = 7
        end
      end
    end
  end
  object Button2: TButton
    Left = 411
    Top = 310
    Width = 80
    Height = 25
    Cancel = True
    Caption = '取消'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 312
    Top = 309
    Width = 80
    Height = 25
    Caption = '确定'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Query2: TQuery
    DatabaseName = 'TenderMSdb'
    Left = 13
    Top = 145
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 200
    Top = 8
  end
  object Query3: TQuery
    DatabaseName = 'TenderMSdb'
    SQL.Strings = (
      'select * from TM_PROJECTINFO'
      'where  PI_CODE=:Code')
    Left = 37
    Top = 193
    ParamData = <
      item
        DataType = ftString
        Name = 'Code'
        ParamType = ptInput
      end>
  end
  object Query1: TQuery
    DatabaseName = 'TenderMSdb'
    Left = 29
    Top = 81
  end
end