telsystemdm.dfm

来自「一套BCB６开发的电话管理系统」· DFM 代码 · 共 599 行

object DMTelSys: TDMTelSys
  OldCreateOrder = False
  Left = 192
  Top = 159
  Height = 417
  Width = 614
  object TelSysADOConnection: TADOConnection
    CommandTimeout = 0
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=edp;Persist Security Info=True;User' +
      ' ID=sa;Initial Catalog=GS_TELBILL;Data Source=GBSQL;Use Procedur' +
      'e for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation' +
      ' ID=USA;Use Encryption for Data=False;Tag with column collation ' +
      'when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 64
    Top = 8
  end
  object GSNameQuery: TADOQuery
    Connection = TelSysADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GS_Name')
    Left = 56
    Top = 64
  end
  object NowProc: TADOStoredProc
    Connection = TelSysADOConnection
    ProcedureName = 'Now;1'
    Parameters = <>
    Left = 160
    Top = 56
  end
  object V01BillProc: TADOStoredProc
    Connection = TelSysADOConnection
    ProcedureName = 'Tel_V01_Bill;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@telvar'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = Null
      end
      item
        Name = '@bmvar'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@gsvar'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@Sday'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@Eday'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@type0'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@type1'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@type2'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@type3'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@type4'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@type5'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Secvar'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@sqltj'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@dialnumber'
        Attributes = [paNullable]
        DataType = ftString
        Size = 30
        Value = Null
      end>
    Left = 240
    Top = 72
  end
  object DSPV01BillProc: TDataSetProvider
    DataSet = V01BillProc
    Constraints = True
    Left = 240
    Top = 24
  end
  object CDSV01BillProc: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DSPV01BillProc'
    Left = 312
    Top = 72
  end
  object FirmQuery: TADOQuery
    Connection = TelSysADOConnection
    Parameters = <>
    SQL.Strings = (
      'select gscode, gsname from Company')
    Left = 152
    Top = 120
  end
  object DeptQuery: TADOQuery
    Connection = TelSysADOConnection
    Parameters = <>
    SQL.Strings = (
      'select number, name from department')
    Left = 88
    Top = 120
  end
  object PhoneQuery: TADOQuery
    Connection = TelSysADOConnection
    Parameters = <>
    SQL.Strings = (
      'select telecode from station')
    Left = 24
    Top = 120
  end
  object A_TelType: TADOTable
    CacheSize = 1000
    Connection = TelSysADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'Type;Local_code'
    TableName = 'TelType'
    Left = 352
    Top = 126
    object A_TelTypeType: TStringField
      DisplayLabel = #39006#22411
      FieldName = 'Type'
    end
    object A_TelTypeLocal_code: TStringField
      DisplayLabel = #38651#35441#21312#34399
      FieldName = 'Local_code'
    end
    object A_TelTypeAREA: TWideStringField
      DisplayLabel = #22320#21312
      FieldName = 'AREA'
      Size = 16
    end
    object A_TelTypeLOCATION: TWideStringField
      DisplayLabel = #20301#32622
      FieldName = 'LOCATION'
      Size = 16
    end
    object A_TelTypeMEMO: TStringField
      DisplayLabel = #35441#21209#39006#22411
      FieldKind = fkCalculated
      FieldName = 'MEMO'
      Calculated = True
    end
    object A_TelTypePRICE: TFloatField
      FieldName = 'PRICE'
    end
    object A_TelTypeINTERVAL: TSmallintField
      FieldName = 'INTERVAL'
    end
    object A_TelTypeTypeCode: TStringField
      FieldKind = fkCalculated
      FieldName = 'TypeCode'
      Calculated = True
    end
  end
  object A_Company: TADOTable
    CacheSize = 1000
    Connection = TelSysADOConnection
    IndexFieldNames = 'GSCODE'
    TableName = 'Company'
    Left = 352
    Top = 176
    object A_CompanyGSCODE: TWideStringField
      DisplayLabel = #20844#21496#32232#34399
      FieldName = 'GSCODE'
      Size = 2
    end
    object A_CompanyGSNAME: TWideStringField
      DisplayLabel = #20844#21496#21517#31281
      FieldName = 'GSNAME'
      Size = 60
    end
  end
  object TF04H: TADOTable
    CacheSize = 1000
    Connection = TelSysADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    TableName = 'department'
    Left = 352
    Top = 224
  end
  object TF04: TADOTable
    CacheSize = 1000
    Connection = TelSysADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    IndexFieldNames = 'Telecode'
    MasterFields = 'Number'
    TableName = 'station'
    Left = 352
    Top = 272
    object TF04Telecode: TWideStringField
      DisplayLabel = #20998#27231#34399
      FieldName = 'Telecode'
      Size = 10
    end
    object TF04Department_number: TWideStringField
      DisplayLabel = #37096#38272#32232#34399
      FieldName = 'Department_number'
      Size = 6
    end
    object TF04Username: TWideStringField
      DisplayLabel = #20351#29992#32773
      FieldName = 'Username'
    end
    object TF04Type: TWideStringField
      FieldName = 'Type'
      Size = 6
    end
    object TF04Rent: TFloatField
      FieldName = 'Rent'
    end
    object TF04Sqcode: TWideStringField
      FieldName = 'Sqcode'
      Size = 15
    end
    object TF04Deposit: TFloatField
      FieldName = 'Deposit'
    end
    object TF04Bill_type: TWideStringField
      FieldName = 'Bill_type'
      Size = 2
    end
    object TF04Have_service: TWideStringField
      FieldName = 'Have_service'
      Size = 4
    end
    object TF04GsName: TStringField
      FieldName = 'GsName'
    end
    object TF04BM: TStringField
      FieldName = 'BM'
    end
    object TF04GsCode: TWideStringField
      FieldName = 'GsCode'
      Size = 2
    end
  end
  object A_GetLocal: TADOTable
    CacheSize = 1000
    Connection = TelSysADOConnection
    TableName = 'Get_Local'
    Left = 352
    Top = 325
  end
  object HKRate: TADOTable
    CacheSize = 1000
    Connection = TelSysADOConnection
    CursorType = ctStatic
    TableName = 'HKTelRate'
    Left = 424
    Top = 312
    object HKRateLocate: TWideStringField
      DisplayLabel = #21312#34399
      FieldName = 'Locate'
      Size = 18
    end
    object HKRateRate: TFloatField
      DisplayLabel = #21934#20729
      FieldName = 'Rate'
      DisplayFormat = '##0.00'
    end
    object HKRateSecond: TSmallintField
      DisplayLabel = #31186#25976
      FieldName = 'Second'
    end
    object HKRateCountry: TWideStringField
      DisplayLabel = #22283#23478#21517#31281
      FieldName = 'Country'
      Size = 18
    end
    object HKRateCreate_date: TDateTimeField
      DisplayLabel = #21109#24314#26085#26399
      FieldName = 'Create_date'
      DisplayFormat = 'dd/mm/yyyy'
    end
  end
  object G02BillProc: TADOStoredProc
    CacheSize = 1000
    Connection = TelSysADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnCalcFields = G02BillProcCalcFields
    ProcedureName = 'Tel_G02_Bill;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@a1'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = ''
      end
      item
        Name = '@a2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = ''
      end
      item
        Name = '@a3'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = ''
      end
      item
        Name = '@Sday'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Eday'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@sqltj'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end>
    Left = 416
    Top = 128
    object G02BillProcphone: TStringField
      DisplayLabel = #20998#27231
      FieldName = 'phone'
      Size = 10
    end
    object G02BillProcUsed_phone: TStringField
      DisplayLabel = #20351#29992#20998#27231
      FieldName = 'Used_phone'
      Size = 10
    end
    object G02BillProcDialnumber: TStringField
      DisplayLabel = #34987#21483#34399#30908
      FieldName = 'Dialnumber'
      Size = 30
    end
    object G02BillProcTrunk: TStringField
      FieldName = 'Trunk'
      Size = 6
    end
    object G02BillProcStartdate: TDateTimeField
      DisplayLabel = #36215#22987#26085#26399
      FieldName = 'Startdate'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object G02BillProcStarttime: TDateTimeField
      DisplayLabel = #36215#22987#26178#38291
      FieldName = 'Starttime'
      DisplayFormat = 'HH:MM:SS'
    end
    object G02BillProcDuration: TStringField
      DisplayLabel = #36890#35441#26178#38263
      FieldName = 'Duration'
      Size = 10
    end
    object G02BillProcRate: TBCDField
      DisplayLabel = #36027'  '#29575
      FieldName = 'Rate'
      DisplayFormat = #65509'##0.00'
      Precision = 10
    end
    object G02BillProcDhf: TBCDField
      DisplayLabel = #38651#35441#36027
      FieldName = 'Dhf'
      Precision = 10
    end
    object G02BillProcService: TBCDField
      DisplayLabel = #26381#21209#36027
      FieldName = 'Service'
      Precision = 10
    end
    object G02BillProcCharge: TBCDField
      DisplayLabel = #32317#37329#38989
      FieldName = 'Charge'
      Precision = 10
    end
    object G02BillProcLocal_code: TStringField
      FieldName = 'Local_code'
    end
    object G02BillProcType: TSmallintField
      FieldName = 'Type'
    end
    object G02BillProcGNO: TStringField
      DisplayLabel = #24037#21345#34399
      FieldName = 'GNO'
      Size = 7
    end
    object G02BillProcGRN: TStringField
      DisplayLabel = #23526#38555#29992#25142
      FieldName = 'GRN'
      Size = 16
    end
    object G02BillProcTel_use: TIntegerField
      FieldName = 'Tel_use'
    end
    object G02BillProcUname: TStringField
      DisplayLabel = #29992#25142#21517#31281
      FieldKind = fkLookup
      FieldName = 'Uname'
      LookupDataSet = TF04
      LookupKeyFields = 'Telecode'
      LookupResultField = 'Username'
      KeyFields = 'phone'
      LookupCache = True
      Lookup = True
    end
    object G02BillProcBm: TStringField
      DisplayLabel = #25152#23660#37096#38272
      FieldKind = fkLookup
      FieldName = 'Bm'
      LookupDataSet = TF04H
      LookupKeyFields = 'Number'
      LookupResultField = 'Name'
      KeyFields = 'Department_number'
      Lookup = True
    end
    object G02BillProcTypeCode: TWideStringField
      FieldName = 'TypeCode'
      Size = 21
    end
    object G02BillProcMemo: TStringField
      DisplayLabel = #35441#21209#35498#26126
      FieldKind = fkCalculated
      FieldName = 'Memo'
      Calculated = True
    end
    object G02BillProcGsCode: TWideStringField
      FieldName = 'GsCode'
      Size = 2
    end
    object G02BillProcDepartment_number: TWideStringField
      FieldName = 'Department_number'
      Size = 6
    end
    object G02BillProcUsername: TWideStringField
      FieldName = 'Username'
    end
    object G02BillProcGSBH: TStringField
      FieldKind = fkLookup
      FieldName = 'GSBH'
      LookupDataSet = TF04
      LookupKeyFields = 'Telecode'
      LookupResultField = 'GsCode'
      KeyFields = 'phone'
      Lookup = True
    end
    object G02BillProcBMBH: TStringField
      FieldKind = fkLookup
      FieldName = 'BMBH'
      LookupDataSet = TF04
      LookupKeyFields = 'Telecode'
      LookupResultField = 'Department_number'
      KeyFields = 'phone'
      Lookup = True
    end
  end
  object V_DataSet: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 192
    Top = 208
  end
  object CMDInserRight: TADOCommand
    CommandText = 'insert into UsrGrpRight'#13#10'select :GroupID, A.* from Priviledge A'
    Connection = TelSysADOConnection
    Parameters = <
      item
        Name = 'GroupID'
        Size = -1
        Value = Null
      end>
    Left = 160
    Top = 272
  end
  object CMDDeleteRight: TADOCommand
    CommandText = 'delete from UsrGrpRight'#13#10'where GroupID = :GroupID'
    Connection = TelSysADOConnection
    Parameters = <
      item
        Name = 'GroupID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 240
    Top = 272
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 'select '
    Parameters = <>
    Left = 72
    Top = 240
  end
  object UserRightQuery: TADOQuery
    Connection = TelSysADOConnection
    Parameters = <
      item
        Name = 'UserID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select * from UserRight'
      'where UsrID = :UserID')
    Left = 104
    Top = 328
  end
end