managdata.dfm

一个电力企业的后台管理程序

object ManagDM: TManagDM
  OldCreateOrder = False
  Left = 166
  Top = 31
  Height = 505
  Width = 673
  object anyqry: TQuery
    DatabaseName = 'DBEcsc'
    Left = 112
    Top = 16
  end
  object ranqry: TQuery
    DatabaseName = 'DBEcsc'
    Left = 160
    Top = 16
  end
  object optqry: TQuery
    DatabaseName = 'DBEcsc'
    Left = 208
    Top = 16
  end
  object DS_ElecOutDepart: TDataSource
    DataSet = Tbl_ElecOutDepart
    Left = 353
    Top = 78
  end
  object Tbl_ElecOutDepart: TTable
    CachedUpdates = True
    AfterInsert = Tbl_ElecOutDepartAfterEdit
    AfterEdit = Tbl_ElecOutDepartAfterEdit
    AfterPost = Tbl_ElecOutDepartAfterPost
    AfterScroll = Tbl_ElecOutDepartAfterScroll
    OnDeleteError = Tbl_ElecOutDepartDeleteError
    OnNewRecord = Tbl_ElecOutDepartNewRecord
    OnPostError = Tbl_ElecOutDepartPostError
    DatabaseName = 'DBECSC'
    TableName = 'ELECOUT_DEALDEPT'
    Left = 256
    Top = 78
  end
  object Tbl_counseling: TTable
    AfterOpen = Tbl_counselingAfterOpen
    AfterInsert = Tbl_counselingAfterInsert
    AfterEdit = Tbl_counselingAfterInsert
    BeforePost = Tbl_counselingBeforePost
    AfterPost = Tbl_counselingAfterOpen
    AfterCancel = Tbl_counselingAfterOpen
    AfterDelete = Tbl_counselingAfterOpen
    DatabaseName = 'DBEcsc'
    TableName = 'counselinginfo'
    Left = 104
    Top = 136
    object Tbl_counselingclassno: TStringField
      FieldName = 'classno'
      Required = True
      FixedChar = True
    end
    object Tbl_counselingonelevelno: TIntegerField
      FieldName = 'onelevelno'
    end
    object Tbl_counselingtwolevelno: TIntegerField
      FieldName = 'twolevelno'
    end
    object Tbl_counselingthreelevelno: TIntegerField
      FieldName = 'threelevelno'
    end
    object Tbl_counselingclassname: TStringField
      FieldName = 'classname'
      Required = True
      FixedChar = True
      Size = 200
    end
    object Tbl_counselinginfotype: TIntegerField
      FieldName = 'infotype'
      OnGetText = Tbl_counselinginfotypeGetText
      OnSetText = Tbl_counselinginfotypeSetText
    end
    object Tbl_counselinginfohost: TStringField
      FieldName = 'infohost'
      FixedChar = True
      Size = 50
    end
    object Tbl_counselinginfovirtualdev: TStringField
      FieldName = 'infovirtualdev'
      FixedChar = True
      Size = 200
    end
    object Tbl_counselinginfofile: TStringField
      FieldName = 'infofile'
      FixedChar = True
      Size = 200
    end
    object Tbl_counselingvoicehost: TStringField
      FieldName = 'voicehost'
      FixedChar = True
      Size = 50
    end
    object Tbl_counselingvoicevirtualdev: TStringField
      FieldName = 'voicevirtualdev'
      FixedChar = True
      Size = 200
    end
    object Tbl_counselingvoicefile: TStringField
      FieldName = 'voicefile'
      FixedChar = True
      Size = 200
    end
  end
  object DataSource2: TDataSource
    DataSet = Tbl_counseling
    Left = 24
    Top = 136
  end
  object DataSource6: TDataSource
    DataSet = Qry_hostconfig
    Left = 32
    Top = 232
  end
  object Qry_hostconfig: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'select * from hostconfig')
    Left = 104
    Top = 224
  end
  object Tbl_hostconfig: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'select distinct hostname from hostconfig')
    Left = 104
    Top = 312
  end
  object DataSource5: TDataSource
    DataSet = Tbl_hostconfig
    Left = 24
    Top = 312
  end
  object Tbl_CompDepart: TTable
    CachedUpdates = True
    AfterInsert = Tbl_ElecOutDepartAfterEdit
    AfterEdit = Tbl_ElecOutDepartAfterEdit
    AfterPost = Tbl_ElecOutDepartAfterPost
    AfterScroll = Tbl_CompDepartAfterScroll
    OnDeleteError = Tbl_ElecOutDepartDeleteError
    OnNewRecord = Tbl_CompDepartNewRecord
    OnPostError = Tbl_ElecOutDepartPostError
    DatabaseName = 'DBECSC'
    TableName = 'COMP_DEALDEPT'
    Left = 256
    Top = 145
  end
  object DS_CompDepart: TDataSource
    DataSet = Tbl_CompDepart
    Left = 353
    Top = 145
  end
  object DS_CompType: TDataSource
    DataSet = Tbl_CompType
    Left = 353
    Top = 213
  end
  object Tbl_CompType: TTable
    CachedUpdates = True
    AfterInsert = Tbl_ElecOutDepartAfterEdit
    AfterEdit = Tbl_ElecOutDepartAfterEdit
    AfterPost = Tbl_ElecOutDepartAfterPost
    AfterScroll = Tbl_CompTypeAfterScroll
    OnDeleteError = Tbl_ElecOutDepartDeleteError
    OnNewRecord = Tbl_CompTypeNewRecord
    OnPostError = Tbl_ElecOutDepartPostError
    DatabaseName = 'DBECSC'
    TableName = 'COMP_TYPE'
    Left = 256
    Top = 214
  end
  object Tbl_AskDepart: TTable
    CachedUpdates = True
    AfterInsert = Tbl_ElecOutDepartAfterEdit
    AfterEdit = Tbl_ElecOutDepartAfterEdit
    AfterPost = Tbl_ElecOutDepartAfterPost
    AfterScroll = Tbl_AskDepartAfterScroll
    OnDeleteError = Tbl_ElecOutDepartDeleteError
    OnNewRecord = Tbl_AskDepartNewRecord
    OnPostError = Tbl_ElecOutDepartPostError
    DatabaseName = 'DBECSC'
    TableName = 'ASK_DEALDEPT'
    Left = 256
    Top = 288
  end
  object DS_AskDepart: TDataSource
    DataSet = Tbl_AskDepart
    Left = 353
    Top = 288
  end
  object DS_AskElecDepart: TDataSource
    DataSet = Tbl_AskElecDepart
    Left = 353
    Top = 351
  end
  object Tbl_AskElecDepart: TTable
    CachedUpdates = True
    AfterInsert = Tbl_ElecOutDepartAfterEdit
    AfterEdit = Tbl_ElecOutDepartAfterEdit
    AfterPost = Tbl_ElecOutDepartAfterPost
    AfterScroll = Tbl_AskElecDepartAfterScroll
    OnDeleteError = Tbl_ElecOutDepartDeleteError
    OnNewRecord = Tbl_AskElecDepartNewRecord
    OnPostError = Tbl_ElecOutDepartPostError
    DatabaseName = 'DBECSC'
    TableName = 'ASKELEC_DEALDEPT'
    Left = 256
    Top = 351
  end
  object Tbl_depart: TTable
    DatabaseName = 'DBEcsc'
    TableName = 'Department_info'
    Left = 112
    Top = 88
  end
  object DS_Depart: TDataSource
    DataSet = Tbl_depart
    Left = 64
    Top = 72
  end
  object DS_WorkName: TDataSource
    DataSet = Tbl_WorkName
    Left = 368
    Top = 24
  end
  object Tbl_WorkName: TTable
    CachedUpdates = True
    AfterInsert = Tbl_ElecOutDepartAfterEdit
    AfterEdit = Tbl_ElecOutDepartAfterEdit
    AfterPost = Tbl_ElecOutDepartAfterPost
    OnDeleteError = Tbl_ElecOutDepartDeleteError
    OnPostError = Tbl_ElecOutDepartPostError
    DatabaseName = 'DBECSC'
    TableName = 'GZBX_Role'
    Left = 288
    Top = 32
  end
end