unitdm.dfm

串口短信猫收发软件。支持西门子TC35i设备

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 285
  Top = 105
  Height = 536
  Width = 384
  object Con: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Password=[e-mail];Persist Security I' +
      'nfo=True;User ID=Admin;Data Source=CrystalSMS'
    LoginPrompt = False
    Provider = 'MSDASQL.1'
    Left = 64
    Top = 24
  end
  object DSet_Request: TADODataSet
    Connection = Con
    CursorType = ctStatic
    OnCalcFields = DSet_RequestCalcFields
    OnNewRecord = DSet_RequestNewRecord
    CommandText = 'select * from Tab_request'
    Parameters = <>
    Left = 64
    Top = 88
    object DSet_Requestreq_time: TWideStringField
      DisplayLabel = #35831#27714#26102#38388
      FieldName = 'req_time'
    end
    object DSet_Requestsend_mobile: TWideStringField
      DisplayLabel = #21457#36865#21495#30721
      FieldName = 'send_mobile'
    end
    object DSet_Requestsend_data: TWideStringField
      DisplayLabel = #30701#20449#20869#23481
      FieldName = 'send_data'
      Size = 140
    end
    object DSet_Requestsend_time: TWideStringField
      DisplayLabel = #21457#36865#26102#38388
      FieldName = 'send_time'
    end
    object DSet_Requestsend_num: TIntegerField
      DisplayLabel = #23581#35797#21457#36865#27425#25968
      FieldName = 'send_num'
    end
    object DSet_Requestsend_result: TIntegerField
      FieldName = 'send_result'
    end
    object DSet_Requestreq_id: TAutoIncField
      FieldName = 'req_id'
      ReadOnly = True
    end
    object DSet_Requestresult: TStringField
      DisplayLabel = #21457#36865#32467#26524
      FieldKind = fkCalculated
      FieldName = 'result'
      Calculated = True
    end
    object DSet_Requestsend_remark: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'send_remark'
      Size = 100
    end
    object DSet_Requestlocalnet: TIntegerField
      FieldName = 'localnet'
    end
  end
  object DSrc_Request: TDataSource
    DataSet = DSet_Request
    Left = 160
    Top = 88
  end
  object DSrc_Response: TDataSource
    DataSet = DSet_Response
    Left = 160
    Top = 160
  end
  object DSet_Response: TADODataSet
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from Tab_response'
    Parameters = <>
    Left = 64
    Top = 160
    object DSet_Responseres_time: TWideStringField
      DisplayLabel = #25509#25910#26102#38388
      FieldName = 'res_time'
    end
    object DSet_Responsereci_mobile: TWideStringField
      DisplayLabel = #26469#20449#21495#30721
      FieldName = 'reci_mobile'
    end
    object DSet_Responsereci_data: TWideStringField
      DisplayLabel = #30701#20449#20869#23481
      FieldName = 'reci_data'
      Size = 140
    end
    object DSet_Responsereci_time: TWideStringField
      DisplayLabel = #26469#20449#26102#38388
      FieldName = 'reci_time'
    end
    object DSet_Responseres_id: TAutoIncField
      FieldName = 'res_id'
      ReadOnly = True
    end
    object DSet_Responsedo_result: TIntegerField
      FieldName = 'do_result'
    end
  end
  object DQ: TADOQuery
    Connection = Con
    Parameters = <>
    Left = 160
    Top = 24
  end
  object DSet_AddrGroup: TADODataSet
    Connection = Con
    CursorType = ctStatic
    BeforePost = DSet_AddrGroupBeforePost
    CommandText = 'select  * from Tab_addrgroup'
    Parameters = <>
    Left = 64
    Top = 224
    object DSet_AddrGroupaddrgroup_id: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'addrgroup_id'
      ReadOnly = True
    end
    object DSet_AddrGroupaddrgroup_name: TWideStringField
      DisplayLabel = #32676#32452
      FieldName = 'addrgroup_name'
      Size = 100
    end
  end
  object DSet_Addr: TADODataSet
    Connection = Con
    CursorType = ctStatic
    BeforePost = DSet_AddrBeforePost
    OnNewRecord = DSet_AddrNewRecord
    CommandText = 'select * from Tab_addr'
    DataSource = DSrc_AddrGroup
    IndexFieldNames = 'addrgroup_id'
    MasterFields = 'addrgroup_id'
    Parameters = <>
    Left = 248
    Top = 224
    object DSet_Addraddr_id: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'addr_id'
      ReadOnly = True
    end
    object DSet_Addraddrgroup_id: TWideStringField
      DisplayLabel = #32676#32452#32534#21495
      FieldName = 'addrgroup_id'
    end
    object DSet_Addraddr_name: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'addr_name'
      Size = 100
    end
    object DSet_Addraddr_tel: TWideStringField
      DisplayLabel = #30005#35805#21495#30721
      FieldName = 'addr_tel'
    end
    object DSet_Addraddr_remark: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'addr_remark'
      Size = 200
    end
  end
  object DSet_TextGroup: TADODataSet
    Connection = Con
    CursorType = ctStatic
    BeforePost = DSet_TextGroupBeforePost
    CommandText = 'select * from Tab_textgroup'
    Parameters = <>
    Left = 64
    Top = 288
    object DSet_TextGrouptextgroup_id: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'textgroup_id'
      ReadOnly = True
    end
    object DSet_TextGrouptextgroup_name: TWideStringField
      DisplayLabel = #31867#21035
      FieldName = 'textgroup_name'
      Size = 100
    end
  end
  object DSet_Text: TADODataSet
    Connection = Con
    CursorType = ctStatic
    BeforePost = DSet_TextBeforePost
    OnNewRecord = DSet_TextNewRecord
    CommandText = 'select * from Tab_text'
    DataSource = DSrc_TextGroup
    IndexFieldNames = 'textgroup_id'
    MasterFields = 'textgroup_id'
    Parameters = <>
    Left = 248
    Top = 288
    object DSet_Texttext_id: TAutoIncField
      DisplayLabel = #32534#21495
      FieldName = 'text_id'
      ReadOnly = True
    end
    object DSet_Texttextgroup_id: TWideStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'textgroup_id'
    end
    object DSet_Texttext_name: TWideStringField
      DisplayLabel = #20869#23481
      FieldName = 'text_name'
      Size = 200
    end
  end
  object DSrc_AddrGroup: TDataSource
    DataSet = DSet_AddrGroup
    Left = 160
    Top = 224
  end
  object DSrc_Addr: TDataSource
    DataSet = DSet_Addr
    Left = 320
    Top = 224
  end
  object DSrc_TextGroup: TDataSource
    DataSet = DSet_TextGroup
    Left = 160
    Top = 288
  end
  object DSrc_Text: TDataSource
    DataSet = DSet_Text
    Left = 320
    Top = 288
  end
  object DSrc_RequestFee: TDataSource
    DataSet = DSet_RequestFee
    Left = 160
    Top = 360
  end
  object DSet_RequestFee: TADODataSet
    Connection = Con
    CursorType = ctStatic
    OnCalcFields = DSet_RequestFeeCalcFields
    OnNewRecord = DSet_RequestNewRecord
    CommandText = 'select * from Tab_request'
    Parameters = <>
    Left = 64
    Top = 360
    object WideStringField1: TWideStringField
      DisplayLabel = #35831#27714#26102#38388
      FieldName = 'req_time'
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #21457#36865#21495#30721
      FieldName = 'send_mobile'
    end
    object WideStringField3: TWideStringField
      DisplayLabel = #30701#20449#20869#23481
      FieldName = 'send_data'
      Size = 140
    end
    object WideStringField4: TWideStringField
      DisplayLabel = #21457#36865#26102#38388
      FieldName = 'send_time'
    end
    object IntegerField1: TIntegerField
      DisplayLabel = #23581#35797#21457#36865#27425#25968
      FieldName = 'send_num'
    end
    object IntegerField2: TIntegerField
      FieldName = 'send_result'
    end
    object AutoIncField1: TAutoIncField
      FieldName = 'req_id'
      ReadOnly = True
    end
    object StringField1: TStringField
      DisplayLabel = #21457#36865#32467#26524
      FieldKind = fkCalculated
      FieldName = 'result'
      Calculated = True
    end
    object WideStringField5: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'send_remark'
      Size = 100
    end
    object DSet_RequestFeelocalnet: TIntegerField
      FieldName = 'localnet'
    end
    object DSet_RequestFeenet: TStringField
      DisplayLabel = #35745#36153#31867#22411
      FieldKind = fkCalculated
      FieldName = 'net'
      Calculated = True
    end
    object DSet_RequestFeefee: TFloatField
      DisplayLabel = #30701#20449#36153#29992
      FieldKind = fkCalculated
      FieldName = 'fee'
      Calculated = True
    end
  end
  object DSrc_AutoReply: TDataSource
    DataSet = DSet_AutoReply
    Left = 160
    Top = 440
  end
  object DSet_AutoReply: TADODataSet
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from Tab_autoreply'
    Parameters = <>
    Left = 64
    Top = 440
    object DSet_AutoReplyreci_prefix: TWideStringField
      DisplayLabel = #25509#25910#30701#20449#21069#32512#26631#35782
      FieldName = 'reci_prefix'
    end
    object DSet_AutoReplysend_prefix: TWideStringField
      DisplayLabel = #22238#22797#30701#20449#20869#23481#21069#32512
      FieldName = 'send_prefix'
      Size = 255
    end
    object DSet_AutoReplysend_sql: TWideStringField
      DisplayLabel = #22238#22797#30701#20449#21160#24577#20869#23481
      FieldName = 'send_sql'
      Size = 255
    end
    object DSet_AutoReplysend_params: TWideStringField
      DisplayLabel = #21160#24577#20869#23481#21442#25968#21015#34920
      FieldName = 'send_params'
      Size = 255
    end
    object DSet_AutoReplysend_suffix: TWideStringField
      DisplayLabel = #22238#22797#30701#20449#20869#23481#21518#32512
      FieldName = 'send_suffix'
      Size = 255
    end
    object DSet_AutoReplyremark: TWideStringField
      DisplayLabel = #33258#21160#22238#22797#35268#21017#35828#26126
      FieldName = 'remark'
      Size = 255
    end
  end
end