untdm.dfm

1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库

object DM1: TDM1
  OldCreateOrder = False
  Left = 424
  Top = 300
  Height = 266
  Width = 556
  object Conn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\hotback\'#20613#27946#36890#35759#24405'\FH' +
      '.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 32
  end
  object QCorp: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#20844#21496'ID,'#21517#31216','#22478#24066','#32593#22336','#30005#23376#37038#31665','#30005#35805','#20256#30495','#20851#38190#35789
      ' from  '#20844#21496#23383#20856)
    Left = 48
    Top = 24
    object QCorpID: TWideStringField
      FieldName = #20844#21496'ID'
    end
    object QCorpDSDesigner: TWideStringField
      FieldName = #21517#31216
      Size = 50
    end
    object QCorpDSDesigner2: TWideStringField
      FieldName = #22478#24066
      Size = 50
    end
    object QCorpDSDesigner3: TWideStringField
      FieldName = #32593#22336
      Size = 50
    end
    object QCorpDSDesigner4: TWideStringField
      FieldName = #30005#23376#37038#31665
      Size = 50
    end
    object QCorpDSDesigner5: TWideStringField
      FieldName = #30005#35805
      Size = 15
    end
    object QCorpDSDesigner6: TWideStringField
      FieldName = #20256#30495
      Size = 15
    end
    object QCorpDSDesigner7: TWideStringField
      FieldName = #20851#38190#35789
      Size = 50
    end
  end
  object QHuman: TADOQuery
    Connection = Conn
    Parameters = <>
    SQL.Strings = (
      'select '#32852#31995#20154'ID,'#22995#21517','#20851#38190#35789','#24615#21035','#20986#29983#26085#26399','#22478#24066','#37038#32534','#22320#22336','#20844#21496','#32844#21153','
      '       '#30005#23376#37038#31665','#36890#35759#26041#24335','#30005#35805','#25163#26426
      '  from '#32852#31995#20154#23383#20856)
    Left = 96
    Top = 24
    object QHumanID: TWideStringField
      FieldName = #32852#31995#20154'ID'
    end
    object QHumanDSDesigner: TWideStringField
      FieldName = #22995#21517
      Size = 50
    end
    object QHumanDSDesigner2: TWideStringField
      FieldName = #20851#38190#35789
      Size = 200
    end
    object QHumanDSDesigner3: TWideStringField
      FieldName = #24615#21035
      Size = 4
    end
    object QHumanDSDesigner4: TDateTimeField
      FieldName = #20986#29983#26085#26399
    end
    object QHumanDSDesigner5: TWideStringField
      FieldName = #22478#24066
      Size = 50
    end
    object QHumanDSDesigner6: TWideStringField
      FieldName = #37038#32534
      Size = 6
    end
    object QHumanDSDesigner7: TWideStringField
      FieldName = #22320#22336
      Size = 50
    end
    object QHumanDSDesigner8: TWideStringField
      FieldName = #20844#21496
      Size = 50
    end
    object QHumanDSDesigner9: TWideStringField
      FieldName = #32844#21153
      Size = 50
    end
    object QHumanDSDesigner10: TWideStringField
      FieldName = #30005#23376#37038#31665
      Size = 50
    end
    object QHumanDSDesigner11: TWideStringField
      FieldName = #36890#35759#26041#24335
      Size = 50
    end
    object QHumanDSDesigner12: TWideStringField
      FieldName = #30005#35805
      Size = 15
    end
    object QHumanDSDesigner13: TWideStringField
      FieldName = #25163#26426
      Size = 15
    end
  end
  object dsCorp: TDataSource
    DataSet = QCorp
    Left = 48
    Top = 72
  end
  object dsHuman: TDataSource
    DataSet = QHuman
    Left = 96
    Top = 72
  end
  object QryMaintain: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    OnNewRecord = QryMaintainNewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from '#20844#21496#23383#20856)
    Left = 152
    Top = 24
  end
  object QryMaintainVS: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 208
    Top = 24
  end
  object QryLogin: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 272
    Top = 24
  end
  object dsMaintain: TDataSource
    DataSet = QryMaintain
    Left = 152
    Top = 72
  end
  object dsMaintainVS: TDataSource
    DataSet = QryMaintainVS
    Left = 208
    Top = 72
  end
  object QryHumanVG: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select g.'#32452#21517', p.'#22995#21517', g.'#32452'ID, p.'#32852#31995#20154'ID from '#32852#31995#20154#32452#21035#23450#20041#23383#20856' g,'#32852#31995#20154#20998#32452#34920' pvg, '#32852 +
        #31995#20154#23383#20856' p  Where (g.'#32452'ID=pvg.'#32452'ID)and(pvg.'#32852#31995#20154'ID=p.'#32852#31995#20154'ID)')
    Left = 336
    Top = 24
    object QryHumanVGDSDesigner: TStringField
      DisplayWidth = 15
      FieldName = #32452#21517
    end
    object QryHumanVGDSDesigner2: TStringField
      DisplayWidth = 19
      FieldName = #22995#21517
    end
    object QryHumanVGID: TStringField
      DisplayWidth = 1
      FieldName = #32452'ID'
      FixedChar = True
    end
    object QryHumanVGID2: TStringField
      DisplayWidth = 20
      FieldName = #32852#31995#20154'ID'
      FixedChar = True
    end
  end
  object QryCoVG: TADOQuery
    Connection = Conn
    Parameters = <>
    SQL.Strings = (
      
        'Select g.'#21517#31216', p.'#22995#21517', g.'#20844#21496'ID, p.'#32852#31995#20154'ID from '#20844#21496#23383#20856' g,'#20844#21496#20154#21592#34920' pvg,'#32852#31995#20154#23383#20856' p' +
        '  Where (g.'#20844#21496'ID=pvg.'#20844#21496'ID)and(pvg.'#32852#31995#20154'ID=p.'#32852#31995#20154'ID)')
    Left = 400
    Top = 24
  end
  object QryGUI2DB: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 464
    Top = 24
  end
end