ucompany.dfm

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

inherited fmcompany: Tfmcompany
  Left = 219
  Top = 112
  Width = 663
  Height = 591
  Caption = #20844#21496#20449#24687
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl: TPageControl
    Width = 655
    Height = 524
    inherited Tabbrowse: TTabSheet
      inherited Splitter: TSplitter
        Height = 492
      end
      inherited Panel1: TPanel
        Width = 647
        Height = 492
        inherited DBGrid1: TdxDBGrid
          Width = 645
          Height = 227
          Filter.Criteria = {00000000}
          object DBGrid1CompanyID: TdxDBGridMaskColumn
            Width = 40
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CompanyID'
          end
          object DBGrid1CompanyNameC: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CompanyNameC'
          end
          object DBGrid1CompanyNameE: TdxDBGridMaskColumn
            Width = 78
            BandIndex = 0
            RowIndex = 0
            FieldName = 'CompanyNameE'
          end
          object DBGrid1Nonce: TdxDBGridCheckColumn
            Width = 43
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Nonce'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBGrid1Address: TdxDBGridMaskColumn
            Width = 124
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Address'
          end
          object DBGrid1PostalCode: TdxDBGridMaskColumn
            Width = 40
            BandIndex = 0
            RowIndex = 0
            FieldName = 'PostalCode'
          end
          object DBGrid1Telephone: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Telephone'
          end
          object DBGrid1Fax: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Fax'
          end
          object DBGrid1Web: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Web'
          end
          object DBGrid1Email: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Email'
          end
          object DBGrid1LinkMan: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'LinkMan'
          end
          object DBGrid1Logo: TdxDBGridBlobColumn
            Width = 100
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Logo'
          end
          object DBGrid1Remark: TdxDBGridMaskColumn
            BandIndex = 0
            RowIndex = 0
            FieldName = 'Remark'
          end
        end
        inherited Panel3: TPanel
          Top = 228
          Width = 645
          Height = 263
          Visible = True
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 24
            Height = 12
            Caption = #32534#21495
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 8
            Top = 48
            Width = 72
            Height = 12
            Caption = #20844#21496#21517'('#20013#25991')'
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 8
            Top = 89
            Width = 72
            Height = 12
            Caption = #20844#21496#21517'('#33521#25991')'
            FocusControl = DBEdit3
          end
          object Label4: TLabel
            Left = 8
            Top = 129
            Width = 24
            Height = 12
            Caption = #22320#22336
            FocusControl = DBEdit4
          end
          object Label5: TLabel
            Left = 8
            Top = 169
            Width = 24
            Height = 12
            Caption = #37038#32534
            FocusControl = DBEdit5
          end
          object Label6: TLabel
            Left = 281
            Top = 8
            Width = 149
            Height = 12
            Caption = #32852#31995#30005#35805
            FocusControl = DBEdit6
          end
          object Label7: TLabel
            Left = 281
            Top = 48
            Width = 125
            Height = 12
            Caption = #20256#30495
            FocusControl = DBEdit7
          end
          object Label8: TLabel
            Left = 281
            Top = 89
            Width = 125
            Height = 12
            Caption = #32593#31449
            FocusControl = DBEdit8
          end
          object Label9: TLabel
            Left = 281
            Top = 129
            Width = 131
            Height = 12
            Caption = 'Email'
            FocusControl = DBEdit9
          end
          object Label10: TLabel
            Left = 281
            Top = 169
            Width = 137
            Height = 12
            Caption = #32852#31995#20154
            FocusControl = DBEdit10
          end
          object Label11: TLabel
            Left = 538
            Top = 8
            Width = 48
            Height = 12
            Caption = 'Logo'#26631#24535
            FocusControl = Photo
          end
          object Label12: TLabel
            Left = 8
            Top = 209
            Width = 24
            Height = 12
            Caption = #22791#27880
            FocusControl = DBEdit11
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 24
            Width = 76
            Height = 20
            DataField = 'CompanyID'
            DataSource = DSMain
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 8
            Top = 64
            Width = 241
            Height = 20
            DataField = 'CompanyNameC'
            DataSource = DSMain
            TabOrder = 1
          end
          object DBEdit3: TDBEdit
            Left = 8
            Top = 105
            Width = 241
            Height = 20
            DataField = 'CompanyNameE'
            DataSource = DSMain
            TabOrder = 2
          end
          object DBCheckBox1: TDBCheckBox
            Left = 96
            Top = 24
            Width = 97
            Height = 17
            Caption = #40664#35748
            DataField = 'Nonce'
            DataSource = DSMain
            TabOrder = 3
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object DBEdit4: TDBEdit
            Left = 8
            Top = 145
            Width = 241
            Height = 20
            DataField = 'Address'
            DataSource = DSMain
            TabOrder = 4
          end
          object DBEdit5: TDBEdit
            Left = 8
            Top = 185
            Width = 76
            Height = 20
            DataField = 'PostalCode'
            DataSource = DSMain
            TabOrder = 5
          end
          object DBEdit6: TDBEdit
            Left = 281
            Top = 24
            Width = 225
            Height = 20
            DataField = 'Telephone'
            DataSource = DSMain
            TabOrder = 6
          end
          object DBEdit7: TDBEdit
            Left = 281
            Top = 64
            Width = 225
            Height = 20
            DataField = 'Fax'
            DataSource = DSMain
            TabOrder = 7
          end
          object DBEdit8: TDBEdit
            Left = 281
            Top = 105
            Width = 225
            Height = 20
            DataField = 'Web'
            DataSource = DSMain
            TabOrder = 8
          end
          object DBEdit9: TDBEdit
            Left = 281
            Top = 145
            Width = 225
            Height = 20
            DataField = 'Email'
            DataSource = DSMain
            TabOrder = 9
          end
          object DBEdit10: TDBEdit
            Left = 281
            Top = 185
            Width = 225
            Height = 20
            DataField = 'LinkMan'
            DataSource = DSMain
            TabOrder = 10
          end
          object Photo: TDBImage
            Left = 538
            Top = 22
            Width = 114
            Height = 112
            DataField = 'Logo'
            DataSource = DSMain
            PopupMenu = PopupMenu1
            Stretch = True
            TabOrder = 11
          end
          object DBEdit11: TDBEdit
            Left = 8
            Top = 225
            Width = 498
            Height = 20
            DataField = 'Remark'
            DataSource = DSMain
            TabOrder = 12
          end
        end
      end
    end
    inherited TabEdit: TTabSheet
      inherited GroupBox1: TGroupBox
        Height = 473
      end
      inherited Panel2: TPanel
        Width = 358
        Height = 473
      end
    end
  end
  inherited ToolBar: TToolBar
    Width = 655
  end
  inherited DSMain: TDataSource
    DataSet = DMBase.CCompany
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    BiDiMode = bdLeftToRight
    ParentBiDiMode = False
    Left = 528
    Top = 344
    object miLoad: TMenuItem
      Caption = #27983#35272#22270#29255
      OnClick = miLoadClick
    end
    object miClear: TMenuItem
      Caption = #28165#38500#22270#29255
      OnClick = miClearClick
    end
    object miSaveAs: TMenuItem
      Caption = #21478#23384#20026'...'
    end
  end
end