dm.dfm

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

object DataM: TDataM
  OldCreateOrder = False
  Left = 223
  Top = 191
  Height = 480
  Width = 751
  object DSTable: TDataSource
    DataSet = TableUser
    Left = 88
    Top = 128
  end
  object DSQueryUser: TDataSource
    DataSet = QueryUser
    Left = 152
    Top = 128
  end
  object TableUser: TTable
    DatabaseName = 'QhyxDatabase'
    FieldDefs = <
      item
        Name = 'UserID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IDCard'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Phone'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Address'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'CardNo'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'UserCardNo'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'AgentID'
        DataType = ftInteger
      end
      item
        Name = 'ResistYear'
        DataType = ftInteger
      end
      item
        Name = 'ResistMonth'
        DataType = ftInteger
      end
      item
        Name = 'ResistDay'
        DataType = ftInteger
      end
      item
        Name = 'Operator'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'UserZIP'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'UserRemark'
        DataType = ftMemo
        Size = 200
      end
      item
        Name = 'PrintMark'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'TableUserIndex1'
        Fields = 'UserID'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'CardIndex'
        Fields = 'CardNo'
        Options = [ixCaseInsensitive]
      end
      item
        Name = 'UserNameIndex'
        Fields = 'Name'
        Options = [ixCaseInsensitive]
      end
      item
        Name = 'CertIndex'
        Fields = 'UserCardNo'
        Options = [ixCaseInsensitive]
      end>
    StoreDefs = True
    TableName = 'Userinfo.DB'
    Left = 88
    Top = 48
  end
  object QueryUser: TQuery
    DatabaseName = 'QhyxDatabase'
    RequestLive = True
    SQL.Strings = (
      
        'SELECT UserID, Name, IDCard, Phone, Address, CardNo, UserCardNo,' +
        ' AgentID, UserZIP, UserRemark'
      'FROM "Userinfo.DB" Userinfo')
    Left = 152
    Top = 48
    object QueryUserUserID: TAutoIncField
      FieldName = 'UserID'
      Origin = 'QHYX-P."Userinfo.DB".UserID'
      ReadOnly = True
    end
    object QueryUserName: TStringField
      FieldName = 'Name'
      Origin = 'QHYX-P."Userinfo.DB".Name'
      Size = 50
    end
    object QueryUserIDCard: TStringField
      FieldName = 'IDCard'
      Origin = 'QHYX-P."Userinfo.DB".IDCard'
      Size = 50
    end
    object QueryUserPhone: TStringField
      FieldName = 'Phone'
      Origin = 'QHYX-P."Userinfo.DB".Phone'
      Size = 50
    end
    object QueryUserAddress: TStringField
      FieldName = 'Address'
      Origin = 'QHYX-P."Userinfo.DB".Address'
      Size = 50
    end
    object QueryUserCardNo: TStringField
      FieldName = 'CardNo'
      Origin = 'QHYX-P."Userinfo.DB".CardNo'
      Size = 50
    end
    object QueryUserUserCardNo: TStringField
      FieldName = 'UserCardNo'
      Origin = 'QHYX-P."Userinfo.DB".UserCardNo'
      Size = 50
    end
    object QueryUserAgentID: TIntegerField
      FieldName = 'AgentID'
      Origin = 'QHYX-P."Userinfo.DB".AgentID'
    end
    object QueryUserUserZIP: TStringField
      FieldName = 'UserZIP'
      Origin = 'QHYX-P."Userinfo.DB".UserZIP'
    end
    object QueryUserUserRemark: TMemoField
      FieldName = 'UserRemark'
      Origin = 'QHYX-P."Userinfo.DB".UserRemark'
      BlobType = ftMemo
      Size = 200
    end
  end
  object DSLog: TDataSource
    DataSet = TableLog
    Left = 32
    Top = 128
  end
  object TableLog: TTable
    DatabaseName = 'QhyxDatabase'
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'UserName'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Password'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Purview'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'TableLogIndex1'
        Fields = 'ID'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'UserNameIndex'
        Fields = 'UserName'
        Options = [ixCaseInsensitive]
      end>
    IndexName = 'UserNameIndex'
    StoreDefs = True
    TableName = 'Manager1.db'
    Left = 32
    Top = 48
    object TableLogID: TIntegerField
      FieldName = 'ID'
    end
    object TableLogUserName: TStringField
      FieldName = 'UserName'
      Size = 10
    end
    object TableLogPassword: TStringField
      FieldName = 'Password'
      Size = 10
    end
    object TableLogPurview: TIntegerField
      FieldName = 'Purview'
    end
  end
  object QueryService: TQuery
    DatabaseName = 'QhyxDatabase'
    DataSource = DSQueryUser
    RequestLive = True
    Left = 224
    Top = 48
    object QueryServiceServName: TStringField
      DisplayLabel = '服务信息'
      DisplayWidth = 25
      FieldName = 'ServName'
      Origin = 'QHYX-P."Service.DB".ServName'
      Size = 200
    end
    object QueryServiceStartDate: TDateField
      DisplayLabel = '起始日期'
      DisplayWidth = 20
      FieldKind = fkCalculated
      FieldName = 'StartDate'
      Calculated = True
    end
    object QueryServiceServTime: TIntegerField
      DisplayLabel = '有效期（月）'
      DisplayWidth = 10
      FieldName = 'ServTime'
      Origin = 'QHYX-P."Service.DB".ServTime'
    end
    object QueryServiceFee: TIntegerField
      DisplayLabel = '费用'
      DisplayWidth = 10
      FieldName = 'Fee'
      Origin = 'QHYX-P."Service.DB".Fee'
    end
    object QueryServiceServType: TStringField
      DisplayWidth = 50
      FieldName = 'ServType'
      Origin = 'QHYX-P."Service.DB".ServType'
      Visible = False
      Size = 50
    end
    object QueryServiceServTypeID: TIntegerField
      DisplayWidth = 10
      FieldName = 'ServTypeID'
      Origin = 'QHYX-P."Service.DB".ServTypeID'
      Visible = False
    end
    object QueryServiceStartYear: TIntegerField
      DisplayWidth = 10
      FieldName = 'StartYear'
      Origin = 'QHYX-P."Service.DB".StartYear'
      Visible = False
    end
    object QueryServiceStartMonth: TIntegerField
      DisplayWidth = 10
      FieldName = 'StartMonth'
      Origin = 'QHYX-P."Service.DB".StartMonth'
      Visible = False
    end
    object QueryServiceStartDay: TIntegerField
      DisplayWidth = 10
      FieldName = 'StartDay'
      Origin = 'QHYX-P."Service.DB".StartDay'
      Visible = False
    end
    object QueryServiceUserID: TIntegerField
      DisplayWidth = 10
      FieldName = 'UserID'
      Origin = 'QHYX-P."Service.DB".UserID'
      Visible = False
    end
  end
  object DSQueryService: TDataSource