dm.dfm

这是用DELPHI制作的一个简单的闭路电视收费

    DataSet = QueryService
    Left = 224
    Top = 128
  end
  object QueryAgent: TQuery
    DatabaseName = 'QhyxDatabase'
    DataSource = DSQueryUser
    RequestLive = True
    Left = 296
    Top = 48
  end
  object DSQueryAgent: TDataSource
    DataSet = QueryAgent
    Left = 296
    Top = 128
  end
  object QueryService1: TQuery
    AutoRefresh = True
    DatabaseName = 'QhyxDatabase'
    DataSource = DSQueryUser
    RequestLive = True
    Left = 64
    Top = 200
  end
  object TableService1: TTable
    DatabaseName = 'QhyxDatabase'
    TableName = 'Service.DB'
    Left = 160
    Top = 200
  end
  object TableAgent: TTable
    DatabaseName = 'QhyxDatabase'
    TableName = 'Agent.DB'
    Left = 360
    Top = 48
  end
  object DSAgentTable: TDataSource
    DataSet = TableAgent
    Left = 360
    Top = 128
  end
  object TableUpdate: TTable
    DatabaseName = 'QhyxDatabase'
    TableName = 'Userinfo.DB'
    Left = 424
    Top = 48
  end
  object DSUpdate: TDataSource
    DataSet = TableUpdate
    Left = 424
    Top = 128
  end
  object QueryUserLookup: TQuery
    OnCalcFields = QueryUserLookupCalcFields
    DatabaseName = 'QhyxDatabase'
    SQL.Strings = (
      
        'SELECT UserID, Name, IDCard, Phone, Address, CardNo, UserCardNo,' +
        ' AgentID, ResistYear, ResistMonth, ResistDay, UserZIP, UserRemar' +
        'k,PrintMark'
      'FROM "Userinfo.DB" Userinfo')
    Left = 56
    Top = 280
    object QueryUserLookupName: TStringField
      DisplayLabel = '姓　名'
      DisplayWidth = 12
      FieldName = 'Name'
      Origin = 'QHYX-P."Userinfo.DB".Name'
      Size = 50
    end
    object QueryUserLookupIDCard: TStringField
      DisplayLabel = '身　份　证'
      DisplayWidth = 18
      FieldName = 'IDCard'
      Origin = 'QHYX-P."Userinfo.DB".IDCard'
      Size = 50
    end
    object QueryUserLookupPhone: TStringField
      DisplayLabel = '电　话'
      DisplayWidth = 20
      FieldName = 'Phone'
      Origin = 'QHYX-P."Userinfo.DB".Phone'
      Size = 50
    end
    object QueryUserLookupAddress: TStringField
      DisplayLabel = '地　址'
      DisplayWidth = 37
      FieldName = 'Address'
      Origin = 'QHYX-P."Userinfo.DB".Address'
      Size = 50
    end
    object QueryUserLookupCardNo: TStringField
      DisplayLabel = '卡　号'
      DisplayWidth = 15
      FieldName = 'CardNo'
      Origin = 'QHYX-P."Userinfo.DB".CardNo'
      Size = 50
    end
    object QueryUserLookupUserCardNo: TStringField
      DisplayLabel = '用　户　证'
      DisplayWidth = 10
      FieldName = 'UserCardNo'
      Origin = 'QHYX-P."Userinfo.DB".UserCardNo'
      Size = 50
    end
    object QueryUserLookupResistDate: TDateField
      DisplayLabel = '注册日期'
      DisplayWidth = 12
      FieldKind = fkCalculated
      FieldName = 'ResistDate'
      Calculated = True
    end
    object QueryUserLookupAgentName: TStringField
      DisplayLabel = '代　理　商'
      DisplayWidth = 22
      FieldKind = fkLookup
      FieldName = 'AgentName'
      LookupDataSet = TableAgent
      LookupKeyFields = 'AgentID'
      LookupResultField = 'AgentName'
      KeyFields = 'AgentID'
      Lookup = True
    end
    object QueryUserLookupUserZIP: TStringField
      DisplayLabel = '邮政编码'
      DisplayWidth = 10
      FieldName = 'UserZIP'
      Origin = 'QHYX-P."Userinfo.DB".UserZIP'
    end
    object QueryUserLookupAgentID: TIntegerField
      DisplayLabel = '代　理　商'
      DisplayWidth = 15
      FieldName = 'AgentID'
      Origin = 'QHYX-P."Userinfo.DB".AgentID'
      Visible = False
    end
    object QueryUserLookupUserID: TIntegerField
      DisplayWidth = 10
      FieldName = 'UserID'
      Origin = 'QHYX-P."Userinfo.DB".UserID'
      Visible = False
    end
    object QueryUserLookupResistYear: TIntegerField
      DisplayWidth = 10
      FieldName = 'ResistYear'
      Origin = 'QHYX-P."Userinfo.DB".ResistYear'
      Visible = False
    end
    object QueryUserLookupResistMonth: TIntegerField
      DisplayWidth = 10
      FieldName = 'ResistMonth'
      Origin = 'QHYX-P."Userinfo.DB".ResistMonth'
      Visible = False
    end
    object QueryUserLookupResistDay: TIntegerField
      DisplayWidth = 10
      FieldName = 'ResistDay'
      Origin = 'QHYX-P."Userinfo.DB".ResistDay'
      Visible = False
    end
    object QueryUserLookupUserRemark: TMemoField
      DisplayWidth = 10
      FieldName = 'UserRemark'
      Origin = 'QHYX-P."Userinfo.DB".UserRemark'
      Visible = False
      BlobType = ftMemo
      Size = 200
    end
    object QueryUserLookupPrintMark: TIntegerField
      FieldName = 'PrintMark'
      Origin = 'QHYX-P."Userinfo.DB".PrintMark'
      Visible = False
    end
  end
  object DSUserLookup: TDataSource
    DataSet = QueryUserLookup
    Left = 56
    Top = 336
  end
  object QueryServiceLookup: TQuery
    OnCalcFields = QueryServiceLookupCalcFields
    DatabaseName = 'QhyxDatabase'
    DataSource = DSUserLookup
    SQL.Strings = (
      
        'SELECT ServType, ServName, ServTypeID, StartYear, StartMonth, St' +
        'artDay, ServTime, Fee, UserID'
      'FROM "Service.DB" Service'
      'WHERE "Service".UserID=:"UserID"')
    Left = 176
    Top = 280
    ParamData = <
      item
        DataType = ftInteger
        Name = 'UserID'
        ParamType = ptUnknown
      end>
    object QueryServiceLookupServName: TStringField
      DisplayLabel = '服务项目'
      DisplayWidth = 25
      FieldName = 'ServName'
      Origin = 'QHYX-P."Service.DB".ServName'
      Size = 200
    end
    object QueryServiceLookupStartDate: TDateField
      DisplayLabel = '起始日期'
      DisplayWidth = 15
      FieldKind = fkCalculated
      FieldName = 'StartDate'
      Calculated = True
    end
    object QueryServiceLookupServTime: TIntegerField
      DisplayLabel = '时限（月）'
      DisplayWidth = 10
      FieldName = 'ServTime'
      Origin = 'QHYX-P."Service.DB".ServTime'
    end
    object QueryServiceLookupFee: TIntegerField
      DisplayLabel = '交费金额'
      DisplayWidth = 10
      FieldName = 'Fee'
      Origin = 'QHYX-P."Service.DB".Fee'
    end
    object QueryServiceLookupServType: TStringField
      DisplayWidth = 50
      FieldName = 'ServType'
      Origin = 'QHYX-P."Service.DB".ServType'
      Visible = False
      Size = 50
    end
    object QueryServiceLookupServTypeID: TIntegerField
      DisplayWidth = 10
      FieldName = 'ServTypeID'
      Origin = 'QHYX-P."Service.DB".ServTypeID'
      Visible = False
    end
    object QueryServiceLookupStartYear: TIntegerField
      DisplayWidth = 10
      FieldName = 'StartYear'
      Origin = 'QHYX-P."Service.DB".StartYear'
      Visible = False
    end
    object QueryServiceLookupStartMonth: TIntegerField
      DisplayWidth = 10
      FieldName = 'StartMonth'
      Origin = 'QHYX-P."Service.DB".StartMonth'
      Visible = False
    end
    object QueryServiceLookupStartDay: TIntegerField
      DisplayWidth = 10
      FieldName = 'StartDay'
      Origin = 'QHYX-P."Service.DB".StartDay'
      Visible = False
    end
    object QueryServiceLookupUserID: TIntegerField
      DisplayWidth = 10
      FieldName = 'UserID'
      Origin = 'QHYX-P."Service.DB".UserID'
      Visible = False
    end
  end
  object DSServiceLookup: TDataSource
    DataSet = QueryServiceLookup
    Left = 176
    Top = 336
  end
  object QueryAgentLookup: TQuery
    DatabaseName = 'QhyxDatabase'
    DataSource = DSUserLookup
    SQL.Strings = (
      'SELECT AgentName, AgentID'
      'FROM "Agent.DB" Agent'
      'WHERE Agent.AgentID=:"AgentID"')
    Left = 304
    Top = 272
    ParamData = <
      item
        DataType = ftInteger
        Name = 'AgentID'
        ParamType = ptUnknown
      end>
    object QueryAgentLookupAgentName: TStringField
      FieldName = 'AgentName'
      Origin = 'QHYX-P."Agent.DB".AgentName'
      Size = 50
    end
    object QueryAgentLookupAgentID: TIntegerField
      FieldName = 'AgentID'
      Origin = 'QHYX-P."Agent.DB".AgentID'
    end
  end
  object DSAgentLookup: TDataSource
    DataSet = QueryAgentLookup
    Left = 304
    Top = 336
  end
  object QueryPrint: TQuery
    DatabaseName = 'QhyxDatabase'
    Left = 280
    Top = 200
  end
end