commondatadm.dfm

一个电力部门的催缴费用系统

object DM_CommonData: TDM_CommonData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 179
  Top = 173
  Height = 375
  Width = 544
  object Qr_CjUserList: TQuery
    CachedUpdates = True
    BeforeOpen = Qr_CjUserListBeforeOpen
    AfterClose = Qr_CjUserListAfterClose
    AfterScroll = Qr_CjUserListAfterScroll
    OnUpdateError = Qr_CjUserListUpdateError
    DatabaseName = 'DBECSC'
    RequestLive = True
    SQL.Strings = (
      
        'select CZH,PhoneCode,UserName,Carea,User_Type,Note from CjUserLi' +
        'st')
    UpdateObject = Up_CjUserList
    Left = 52
    Top = 14
    object Qr_CjUserListCZH: TStringField
      FieldName = 'CZH'
      FixedChar = True
      Size = 12
    end
    object Qr_CjUserListPhoneCode: TStringField
      FieldName = 'PhoneCode'
      FixedChar = True
      Size = 12
    end
    object Qr_CjUserListUserName: TStringField
      FieldName = 'UserName'
      FixedChar = True
      Size = 60
    end
    object Qr_CjUserListCarea: TStringField
      FieldName = 'Carea'
      OnGetText = Qr_CjUserListCareaGetText
      FixedChar = True
      Size = 2
    end
    object Qr_CjUserListUser_Type: TIntegerField
      FieldName = 'User_Type'
    end
    object Qr_CjUserListNote: TStringField
      FieldName = 'Note'
      FixedChar = True
      Size = 100
    end
  end
  object Ds_CjUserList: TDataSource
    DataSet = Qr_CjUserList
    Left = 160
    Top = 16
  end
  object Up_CjUserList: TUpdateSQL
    ModifySQL.Strings = (
      'update CjUserList'
      'set'
      '  PhoneCode = :PhoneCode'
      'where'
      '  PhoneCode = :OLD_PhoneCode')
    InsertSQL.Strings = (
      'insert into CjUserList'
      '  (PhoneCode)'
      'values'
      '  (:PhoneCode)')
    DeleteSQL.Strings = (
      'delete from CjUserList'
      'where'
      '  PhoneCode = :OLD_PhoneCode')
    Left = 249
    Top = 11
  end
  object Qr_CallOutTimeTable: TQuery
    DatabaseName = 'DBECSC'
    RequestLive = True
    SQL.Strings = (
      'select * from callOutTimeTable')
    UpdateObject = Up_CallOutTimeTable
    Left = 48
    Top = 80
  end
  object Up_CallOutTimeTable: TUpdateSQL
    ModifySQL.Strings = (
      'update callOutTimeTable'
      'set'
      '  ID = :ID,'
      '  ServiceID = :ServiceID,'
      '  TimesPerMonth = :TimesPerMonth,'
      '  MaxTimesPerDay = :MaxTimesPerDay,'
      '  StartTime_1 = :StartTime_1,'
      '  EndTime_1 = :EndTime_1,'
      '  StartTime_2 = :StartTime_2,'
      '  EndTime_2 = :EndTime_2,'
      '  StartTime_3 = :StartTime_3,'
      '  EndTime_3 = :EndTime_3,'
      '  WeekdayEnable = :WeekdayEnable,'
      '  MonthdayEnable = :MonthdayEnable,'
      '  Pointer = :Pointer,'
      '  Note = :Note'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into callOutTimeTable'
      
        '  (ID, ServiceID, TimesPerMonth, MaxTimesPerDay, StartTime_1, En' +
        'dTime_1, '
      
        '   StartTime_2, EndTime_2, StartTime_3, EndTime_3, WeekdayEnable' +
        ', '
      'MonthdayEnable, '
      '   Pointer, Note)'
      'values'
      
        '  (:ID, :ServiceID, :TimesPerMonth, :MaxTimesPerDay, :StartTime_' +
        '1, :EndTime_1, '
      
        '   :StartTime_2, :EndTime_2, :StartTime_3, :EndTime_3, :WeekdayE' +
        'nable, '
      '   :MonthdayEnable, :Pointer, :Note)')
    DeleteSQL.Strings = (
      'delete from callOutTimeTable'
      'where'
      '  ID = :OLD_ID')
    Left = 168
    Top = 80
  end
  object Qr_CjTable: TQuery
    DatabaseName = 'DbECSC'
    SQL.Strings = (
      'select Telephone,CZH,UserName,Qfee,(YCj_Num-Cj_Num) CJ_SucNum,'
      'Cj_FailNum,Today_Num from CJ_Table')
    Left = 48
    Top = 152
  end
  object Ds_CjTable: TDataSource
    DataSet = Qr_CjTable
    Left = 168
    Top = 152
  end
  object Qr_RptCjUserList: TQuery
    DatabaseName = 'DBECSC'
    SQL.Strings = (
      'select UserName,PhoneCode,CZH from CjUserList')
    Left = 48
    Top = 216
  end
  object Tbl_UserArea: TTable
    DatabaseName = 'DbECSC'
    TableName = 'ELECFEE_USERAREA'
    Left = 264
    Top = 80
  end
  object Ds_UserArea: TDataSource
    DataSet = Tbl_UserArea
    Left = 272
    Top = 152
  end
  object Tbl_UserType: TTable
    DatabaseName = 'DbECSC'
    TableName = 'CALLOUTTIMETABLE'
    Left = 160
    Top = 224
  end
  object Ds_UserType: TDataSource
    DataSet = Tbl_UserType
    Left = 232
    Top = 216
  end
end