usubcontract.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

inherited fmSubContract: TfmSubContract
  Left = 216
  Top = 126
  Caption = #22806#21457#21152#24037#39033#30446#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    inherited Tabbrowse: TTabSheet
      inherited Panel1: TPanel
        inherited DBGrid1: TdxDBGrid
          Height = 138
          Filter.Criteria = {00000000}
          object DBGrid1ProjectID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ProjectID'
          end
          object DBGrid1ProjectName: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'ProjectName'
          end
          object DBGrid1Enabled: TdxDBGridCheckColumn
            Width = 51
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Enabled'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1CostTypeName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CostTypeName'
          end
          object DBGrid1UnitName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UnitName'
          end
          object DBGrid1CurrencyName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CurrencyName'
          end
          object DBGrid1Price: TdxDBGridMaskColumn
            Width = 118
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Price'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
          object DBGrid1Creater: TdxDBGridMaskColumn
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Creater'
          end
          object DBGrid1CreateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CreateDate'
          end
          object DBGrid1Updater: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1UpdateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UpdateDate'
          end
        end
        inherited Panel3: TPanel
          Top = 139
          Height = 124
          Visible = True
          object Label1: TLabel
            Left = 16
            Top = 8
            Width = 24
            Height = 12
            Caption = #32534#21495
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 160
            Top = 8
            Width = 36
            Height = 12
            Caption = #39033#30446#21517
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 432
            Top = 8
            Width = 48
            Height = 12
            Caption = #25104#26412#31867#22411
          end
          object Label4: TLabel
            Left = 16
            Top = 56
            Width = 48
            Height = 12
            Caption = #35745#37327#21333#20301
            FocusControl = DBLookupComboBox1
          end
          object Label5: TLabel
            Left = 432
            Top = 56
            Width = 24
            Height = 12
            Caption = #22791#27880
            FocusControl = DBEdit4
          end
          object Label6: TLabel
            Left = 160
            Top = 56
            Width = 48
            Height = 12
            Caption = #21333#20215#24065#31181
            FocusControl = DBLookupComboBox2
          end
          object Label7: TLabel
            Left = 296
            Top = 56
            Width = 48
            Height = 12
            Caption = #21442#32771#20215#26684
            FocusControl = DBEdit5
          end
          object DBEdit1: TDBEdit
            Left = 16
            Top = 24
            Width = 81
            Height = 20
            CharCase = ecUpperCase
            DataField = 'ProjectID'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 160
            Top = 24
            Width = 244
            Height = 20
            DataField = 'ProjectName'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 16
            Top = 72
            Width = 134
            Height = 20
            DataField = 'UnitName'
            DataSource = DSMain
            TabOrder = 4
          end
          object DBEdit4: TDBEdit
            Left = 432
            Top = 72
            Width = 244
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 7
          end
          object DBLookupComboBox2: TDBLookupComboBox
            Left = 160
            Top = 72
            Width = 134
            Height = 20
            DataField = 'CurrencyName'
            DataSource = DSMain
            TabOrder = 5
          end
          object DBEdit5: TDBEdit
            Left = 296
            Top = 72
            Width = 105
            Height = 20
            DataField = 'Price'
            DataSource = DSMain
            TabOrder = 6
          end
          object DBLookupComboBox3: TDBLookupComboBox
            Left = 432
            Top = 24
            Width = 245
            Height = 20
            DataField = 'CostTypeName'
            DataSource = DSMain
            TabOrder = 3
          end
          object DBCheckBox1: TDBCheckBox
            Left = 102
            Top = 26
            Width = 53
            Height = 17
            Caption = #21551#29992'?'
            DataField = 'Enabled'
            DataSource = DSMain
            TabOrder = 1
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
    end
  end
  inherited DSMain: TDataSource
    DataSet = DMWIP.CSubContract
  end
end