edtdeptunit.~dfm

来自「工商收费系统,主要是管理非税收收入的费用的管理」· ~DFM 代码 · 共 114 行

inherited DepartEdtFrm: TDepartEdtFrm
  Left = 350
  Top = 158
  Caption = #37096#38376
  ClientWidth = 429
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblMemo: TLabel
    Left = 101
  end
  inherited CoolBar1: TCoolBar
    Width = 429
  end
  inherited ChBxNoCon: TdxCheckEdit
    Left = 289
    Top = 355
  end
  inherited pnl1: TPanel
    Height = 307
    inherited lblCode: TLabel
      Left = 72
      Top = 36
      Width = 36
      Caption = #32534#30721#65306
    end
    object lbl2: TLabel [1]
      Left = 70
      Top = 72
      Width = 60
      Height = 13
      Caption = #37096#38376#21517#31216#65306
    end
    object lbl3: TLabel [2]
      Left = 70
      Top = 113
      Width = 72
      Height = 13
      Caption = #37096#38376#36127#36131#20154#65306
    end
    object lbl4: TLabel [3]
      Left = 70
      Top = 154
      Width = 60
      Height = 13
      Caption = #32852#31995#30005#35805#65306
    end
    object lbl5: TLabel [4]
      Left = 70
      Top = 195
      Width = 36
      Height = 13
      Caption = #22791#27880#65306
    end
    inherited dbedtID: TDBEdit
      Left = 155
      Top = 29
      DataField = #32534#30721
      DataSource = DSObject
    end
    object dbedtName: TDBEdit
      Left = 155
      Top = 69
      Width = 121
      Height = 21
      DataField = #37096#38376#21517#31216
      DataSource = DSObject
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object dbedtManager: TDBEdit
      Left = 155
      Top = 108
      Width = 121
      Height = 21
      DataField = #37096#38376#36127#36131#20154
      DataSource = DSObject
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      TabOrder = 2
    end
    object dbedtPhone: TDBEdit
      Left = 155
      Top = 151
      Width = 121
      Height = 21
      DataField = #32852#31995#30005#35805
      DataSource = DSObject
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      TabOrder = 3
    end
    object dbedtMemo: TDBEdit
      Left = 155
      Top = 192
      Width = 250
      Height = 21
      DataField = #22791#27880
      DataSource = DSObject
      ImeName = #20013#25991' ('#31616#20307') - '#35895#27468#25340#38899#36755#20837#27861
      TabOrder = 4
    end
  end
  inherited AQeyObject: TADOQuery
    SQL.Strings = (
      'select * from department')
  end
  inherited adoConnMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=zaixiang;Persist Security Info=True' +
      ';User ID=sa;Initial Catalog=Cahac_Charge;Data Source=sunzaixiang'
    Provider = 'SQLOLEDB.1'
  end
end