sys_dm.dfm

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

object Frm_sys_dm: TFrm_sys_dm
  OldCreateOrder = False
  Left = 345
  Top = 188
  Height = 300
  Width = 346
  object Qr_tmp1: TADOQuery
    Connection = ADOCNT1
    CursorType = ctStatic
    Parameters = <>
    Left = 26
    Top = 76
  end
  object Qr_tmp2: TADOQuery
    Connection = ADOCNT1
    CursorType = ctStatic
    Parameters = <>
    Left = 76
    Top = 74
  end
  object Qr_tmp3: TADOQuery
    Connection = ADOCNT1
    Parameters = <>
    Left = 128
    Top = 74
  end
  object Qr_tmpp: TADOQuery
    Connection = ADOCNT1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select TermName, T.ICno, ICtype, Gname, Login, Payment, Deposit,' +
        ' Jsss, Gift, SYSJ, SYJE, logout, Gstate, LDatetime'
      'from Tigue T, Card C'
      'where T.ICno=C.ICno')
    Left = 184
    Top = 75
    object Qr_tmppTermName: TStringField
      Alignment = taCenter
      DisplayLabel = '  '#32456#31471
      FieldName = 'TermName'
      ReadOnly = True
      Size = 8
    end
    object Qr_tmppICno: TIntegerField
      DisplayLabel = #21345#21495
      DisplayWidth = 6
      FieldName = 'ICno'
      ReadOnly = True
    end
    object Qr_tmppGname: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 8
      FieldName = 'Gname'
      ReadOnly = True
      Size = 10
    end
    object Qr_tmppLogin: TStringField
      DisplayLabel = #19978#26426#26102#38388
      FieldName = 'Login'
      FixedChar = True
      Size = 11
    end
    object Qr_tmppDeposit: TBCDField
      DisplayLabel = #25276#37329
      DisplayWidth = 4
      FieldName = 'Deposit'
      ReadOnly = True
      Precision = 10
    end
    object Qr_tmppPayment: TBCDField
      DisplayLabel = #20805#20540
      DisplayWidth = 8
      FieldName = 'Payment'
      ReadOnly = True
      Precision = 10
    end
    object Qr_tmppGift: TBCDField
      DisplayLabel = #36192#36865
      DisplayWidth = 4
      FieldName = 'Gift'
      ReadOnly = True
      Precision = 10
    end
    object Qr_tmppSYJE: TBCDField
      Alignment = taCenter
      DisplayLabel = #21097#20313#37329#39069
      DisplayWidth = 13
      FieldName = 'SYJE'
      ReadOnly = True
      currency = True
      Precision = 10
      Size = 8
    end
    object Qr_tmppICtype: TStringField
      Alignment = taCenter
      DisplayLabel = #21345#22411
      DisplayWidth = 8
      FieldName = 'ICtype'
      ReadOnly = True
      Size = 16
    end
    object Qr_tmppJsss: TBCDField
      DisplayLabel = #26102#38271'('#20998#38047')'
      FieldName = 'Jsss'
      ReadOnly = True
      Precision = 10
    end
    object Qr_tmppSYSJ: TBCDField
      Alignment = taCenter
      DisplayLabel = #21097#20313#20998#38047#25968
      DisplayWidth = 13
      FieldName = 'SYSJ'
      ReadOnly = True
      Precision = 10
      Size = 8
    end
    object Qr_tmppGstate: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Gstate'
      FixedChar = True
      Size = 4
    end
    object Qr_tmppLDatetime: TDateTimeField
      FieldName = 'LDatetime'
      Visible = False
    end
    object Qr_tmppaaa: TStringField
      DisplayLabel = #35745#36153
      DisplayWidth = 6
      FieldKind = fkCalculated
      FieldName = 'AAA'
      OnGetText = Qr_tmppaaaGetText
      Size = 6
      Calculated = True
    end
  end
  object SP_tmp1: TADOStoredProc
    Connection = ADOCNT1
    ProcedureName = 'GETMAXNUM;1'
    Parameters = <>
    Left = 28
    Top = 148
  end
  object ADOCNT1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
      'ID=SA;Initial Catalog=netbar;Data Source=nt_server;Use Procedure' +
      ' for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ' +
      'ID=lzm;Use Encryption for Data=False;Tag with column collation w' +
      'hen possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 46
    Top = 14
  end
  object QXTCS: TADODataSet
    Connection = ADOCNT1
    LockType = ltBatchOptimistic
    CommandText = 'XTCS'
    CommandType = cmdTable
    Parameters = <>
    Left = 90
    Top = 146
  end
  object QEXEC: TADOQuery
    Connection = ADOCNT1
    Parameters = <>
    Left = 240
    Top = 76
  end
end