umachine.dfm

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

inherited fmmachine: Tfmmachine
  Left = 206
  Top = 107
  Width = 700
  Height = 536
  Caption = #35774#22791#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    Width = 692
    Height = 469
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Left = 196
        Height = 437
      end
      object Splitter1: TSplitter [1]
        Left = 193
        Top = 0
        Height = 437
      end
      inherited Panel1: TPanel
        Left = 196
        Width = 488
        Height = 437
        inherited DBGrid1: TdxDBGrid
          Width = 486
          Height = 298
          Filter.Criteria = {00000000}
          object DBGrid1MachineID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MachineID'
          end
          object DBGrid1MachineName: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'MachineName'
          end
          object DBGrid1CategoryName: TdxDBGridLookupColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CategoryName'
          end
          object DBGrid1Enabled: TdxDBGridCheckColumn
            Width = 62
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Enabled'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1Model: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Model'
          end
          object DBGrid1FactoryID: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'FactoryID'
          end
          object DBGrid1EntryDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'EntryDate'
          end
          object DBGrid1Agent: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Agent'
          end
          object DBGrid1InitValue: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'InitValue'
          end
          object DBGrid1DepreciateYear: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'DepreciateYear'
          end
          object DBGrid1CostName: TdxDBGridLookupColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CostName'
          end
          object DBGrid1CostRate: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CostRate'
          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
            Width = 94
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Updater'
          end
          object DBGrid1UpdateDate: TdxDBGridDateColumn
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'UpdateDate'
          end
        end
        inherited Panel3: TPanel
          Top = 299
          Width = 486
          Height = 137
          Visible = True
          object Label1: TLabel
            Left = 8
            Top = 3
            Width = 24
            Height = 12
            Caption = #32534#21495
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 146
            Top = 3
            Width = 48
            Height = 12
            Caption = #35774#22791#21517#31216
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 284
            Top = 3
            Width = 24
            Height = 12
            Caption = #31867#21035
            FocusControl = DBLookupComboBox1
          end
          object Label4: TLabel
            Left = 8
            Top = 48
            Width = 24
            Height = 12
            Caption = #22411#21495
            FocusControl = DBEdit3
          end
          object Label5: TLabel
            Left = 146
            Top = 48
            Width = 48
            Height = 12
            Caption = #20986#21378#32534#21495
            FocusControl = DBEdit4
          end
          object Label6: TLabel
            Left = 422
            Top = 3
            Width = 48
            Height = 12
            Caption = #25104#26412#31867#22411
            FocusControl = DBLookupComboBox2
          end
          object Label7: TLabel
            Left = 560
            Top = 3
            Width = 48
            Height = 12
            Caption = #25104#26412#21333#20215
            FocusControl = DBEdit5
          end
          object Label8: TLabel
            Left = 146
            Top = 96
            Width = 24
            Height = 12
            Caption = #22791#27880
            FocusControl = DBEdit6
          end
          object Label9: TLabel
            Left = 560
            Top = 48
            Width = 48
            Height = 12
            Caption = #36164#20135#21407#20540
            FocusControl = DBEdit7
          end
          object Label10: TLabel
            Left = 422
            Top = 48
            Width = 48
            Height = 12
            Caption = #21551#29992#26102#38388
          end
          object Label11: TLabel
            Left = 284
            Top = 48
            Width = 24
            Height = 12
            Caption = #20195#29702
            FocusControl = DBEdit8
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 16
            Width = 105
            Height = 20
            CharCase = ecUpperCase
            DataField = 'MachineID'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 146
            Top = 16
            Width = 105
            Height = 20
            DataField = 'MachineName'
            DataSource = DSMain
            TabOrder = 1
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 284
            Top = 16
            Width = 105
            Height = 20
            DataField = 'CategoryName'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBEdit3: TDBEdit
            Left = 8
            Top = 64
            Width = 105
            Height = 20
            DataField = 'Model'
            DataSource = DSMain
            TabOrder = 5
          end
          object DBEdit4: TDBEdit
            Left = 146
            Top = 64
            Width = 105
            Height = 20
            CharCase = ecUpperCase
            DataField = 'FactoryID'
            DataSource = DSMain
            TabOrder = 6
          end
          object DBLookupComboBox2: TDBLookupComboBox
            Left = 422
            Top = 16
            Width = 105
            Height = 20
            DataField = 'CostName'
            DataSource = DSMain
            DropDownRows = 20
            TabOrder = 3
          end
          object DBEdit5: TDBEdit
            Left = 560
            Top = 16
            Width = 105
            Height = 20
            DataField = 'CostRate'
            DataSource = DSMain
            TabOrder = 4
          end
          object DBEdit6: TDBEdit
            Left = 188
            Top = 92
            Width = 477
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 11
          end
          object DBEdit7: TDBEdit
            Left = 560
            Top = 64
            Width = 105
            Height = 20
            DataField = 'InitValue'
            DataSource = DSMain
            TabOrder = 9
          end
          object wwDBDateTimePicker1: TwwDBDateTimePicker
            Left = 422
            Top = 64
            Width = 105
            Height = 20
            CalendarAttributes.Font.Charset = DEFAULT_CHARSET
            CalendarAttributes.Font.Color = clWindowText
            CalendarAttributes.Font.Height = -11
            CalendarAttributes.Font.Name = 'MS Sans Serif'
            CalendarAttributes.Font.Style = []
            Epoch = 1950
            ShowButton = True
            TabOrder = 8
          end
          object DBEdit8: TDBEdit
            Left = 284
            Top = 64
            Width = 105
            Height = 20
            DataField = 'Agent'
            DataSource = DSMain
            TabOrder = 7
          end
          object DBCheckBox1: TDBCheckBox
            Left = 8
            Top = 96
            Width = 57
            Height = 17
            Caption = #21551#29992'?'
            DataField = 'Enabled'
            DataSource = DSMain
            TabOrder = 10
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
        end
      end
      object dxDBTreeView1: TdxDBTreeView
        Left = 0
        Top = 0
        Width = 193
        Height = 437
        ShowNodeHint = True
        DataSource = DataSource1
        DisplayField = 'CategoryID;CategoryName'
        KeyField = 'CategoryID'
        ListField = 'CategoryName'
        ParentField = 'ParentID'
        SeparatedSt = ' '
        RaiseOnError = True
        ReadOnly = True
        Indent = 19
        OnChange = dxDBTreeView1Change
        Align = alLeft
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 1
        ParentFont = False
        Images = DM.ImageTree
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 692
  end
  inherited DSMain: TDataSource
    DataSet = DMWIP.CMachine
  end
  object DataSource1: TDataSource
    DataSet = DMBase.CMCategory1
    Left = 304
    Top = 40
  end
end