msgdb.dfm

SM_Msg.rar 手机短信发送程序

object frmMsgDB: TfrmMsgDB
  OldCreateOrder = False
  Left = 136
  Top = 123
  Height = 383
  Width = 419
  object tblChatMsg: TADOTable
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    TableName = 'SM_Message'
    Left = 172
    Top = 9
    object tblChatMsgSend_MobilePhone: TWideStringField
      FieldName = 'Send_MobilePhone'
      Size = 11
    end
    object tblChatMsgReceive_MobilePhone: TWideStringField
      FieldName = 'Receive_MobilePhone'
      Size = 11
    end
    object tblChatMsgName: TWideStringField
      FieldName = 'Name'
      Size = 15
    end
    object tblChatMsgOccur_Date: TWideStringField
      FieldName = 'Occur_Date'
      Size = 14
    end
    object tblChatMsgChat_Message: TWideStringField
      FieldName = 'Chat_Message'
      Size = 140
    end
    object tblChatMsgBZ: TWideStringField
      FieldName = 'BZ'
      Size = 50
    end
    object tblChatMsgFalg: TWideStringField
      FieldName = 'Falg'
      Size = 7
    end
  end
  object tblChatNum: TADOTable
    Connection = frmSM_Data.ADOSM_Data
    TableName = 'Chat_MobilePhone'
    Left = 116
    Top = 86
  end
  object qryChatNum: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FMobilePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from Chat_MobilePhone'
      'where MobilePhone=:FMobilePhone')
    Left = 180
    Top = 86
    object qryChatNumMobilePhone: TWideStringField
      FieldName = 'MobilePhone'
      Size = 11
    end
    object qryChatNumName: TWideStringField
      FieldName = 'Name'
      Size = 15
    end
  end
  object qryChatMsg: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from SM_Message')
    Left = 236
    Top = 9
  end
  object qryChatMsgSub: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FMobilePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FOccur_Date'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from SM_Message'
      'where '
      '(Receive_MobilePhone=:FMobilePhone)'
      'and'
      '(Occur_Date=:FOccur_Date)')
    Left = 110
    Top = 151
  end
  object delChatMsg: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    Parameters = <
      item
        Name = 'FMobilePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FOccur_Date'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'delete from SM_Message'
      'where Receive_MobilePhone=:FMobilePhone'
      'and '
      'Occur_Date=:FOccur_Date ')
    Left = 190
    Top = 151
  end
  object delChatNum: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctDynamic
    Parameters = <
      item
        Name = 'FMobilePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      'delete from Chat_MobilePhone'
      'where MobilePhone=:FMobilePhone')
    Left = 246
    Top = 87
  end
  object qrySysTblSet: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FTableName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from SysTableSet'
      'where Table_Name=:FTableName;')
    Left = 268
    Top = 158
    object qrySysTblSetTable_Name: TWideStringField
      FieldName = 'Table_Name'
      Size = 50
    end
    object qrySysTblSetClass: TWideStringField
      FieldName = 'Class'
      Size = 50
    end
    object qrySysTblSetName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object qrySysTblSetPhoneNum1: TWideStringField
      FieldName = 'PhoneNum1'
      Size = 50
    end
    object qrySysTblSetPhoneNum2: TWideStringField
      FieldName = 'PhoneNum2'
      Size = 50
    end
    object qrySysTblSetFax: TWideStringField
      FieldName = 'Fax'
      Size = 50
    end
    object qrySysTblSetHomePhone: TWideStringField
      FieldName = 'HomePhone'
      Size = 50
    end
    object qrySysTblSetMobilePhone: TWideStringField
      FieldName = 'MobilePhone'
      Size = 50
    end
    object qrySysTblSetEmail: TWideStringField
      FieldName = 'Email'
      Size = 50
    end
    object qrySysTblSetUnit: TWideStringField
      FieldName = 'Unit'
      Size = 50
    end
    object qrySysTblSetOfficeAdd: TWideStringField
      FieldName = 'OfficeAdd'
      Size = 50
    end
    object qrySysTblSetCommAdd: TWideStringField
      FieldName = 'CommAdd'
      Size = 50
    end
    object qrySysTblSetPost: TWideStringField
      FieldName = 'Post'
      Size = 50
    end
    object qrySysTblSetRetic: TWideStringField
      FieldName = 'Retic'
      Size = 50
    end
    object qrySysTblSetQQNum: TWideStringField
      FieldName = 'QQNum'
      Size = 50
    end
    object qrySysTblSetBz: TWideStringField
      FieldName = 'Bz'
      Size = 50
    end
  end
  object updNum: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    Parameters = <
      item
        Name = 'FName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FPhoneNum1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FPhoneNum2'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FFax'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FHomePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FMobilePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FEmail'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FUnit'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FOfficeAdd'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FCommAdd'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FPost'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FRetic'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FQQNum'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FBZ'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FFClass'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'FCurIndex'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'Update PhoneNote'
      'set Name=:FName,'
      '    PhoneNum1=:FPhoneNum1,'
      '    PhoneNum2=:FPhoneNum2,'
      '    Fax=:FFax,'
      '    HomePhone=:FHomePhone,'
      '    MobilePhone=:FMobilePhone,'
      '    Email=:FEmail,'
      '    Unit=:FUnit,'
      '    OfficeAdd=:FOfficeAdd,'
      '    CommAdd=:FCommAdd,'
      '    Post=:FPost,'
      '    Retic=:FRetic,'
      '    QQNum=:FQQNum,'
      '    BZ=:FBZ'
      '    '
      'where (Class=:FFClass)'
      'and '
      '(CurIndex=:FCurIndex)')
    Left = 156
    Top = 222
  end
  object delNum: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    Parameters = <
      item
        Name = 'FCurIndex'
        Size = -1
        Value = Null
      end
      item
        Name = 'FClass'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'delete from PhoneNote'
      'where '
      '(CurIndex=:FCurIndex)'
      'and'
      '(Class=:FClass)')
    Left = 228
    Top = 222
  end
  object tblNum: TADOTable
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    TableName = 'PhoneNote'
    Left = 20
    Top = 79
    object tblNumCurIndex: TAutoIncField
      FieldName = 'CurIndex'
      ReadOnly = True
    end
    object tblNumClass: TWideStringField
      FieldName = 'Class'
      Size = 4
    end
    object tblNumName: TWideStringField
      FieldName = 'Name'
      Size = 15
    end
    object tblNumPhoneNum1: TWideStringField
      FieldName = 'PhoneNum1'
      Size = 15
    end
    object tblNumPhoneNum2: TWideStringField
      FieldName = 'PhoneNum2'
      Size = 15
    end
    object tblNumFax: TWideStringField
      FieldName = 'Fax'
      Size = 15
    end
    object tblNumHomePhone: TWideStringField
      FieldName = 'HomePhone'
      Size = 15
    end
    object tblNumMobilePhone: TWideStringField
      FieldName = 'MobilePhone'
      Size = 11
    end
    object tblNumEmail: TWideStringField
      FieldName = 'Email'
      Size = 40
    end
    object tblNumUnit: TWideStringField
      FieldName = 'Unit'
      Size = 100
    end
    object tblNumOfficeAdd: TWideStringField
      FieldName = 'OfficeAdd'
      Size = 100
    end
    object tblNumCommAdd: TWideStringField
      FieldName = 'CommAdd'
      Size = 100
    end
    object tblNumPost: TWideStringField
      FieldName = 'Post'
      Size = 6
    end
    object tblNumRetic: TWideStringField
      FieldName = 'Retic'
      Size = 40
    end
    object tblNumQQNum: TWideStringField
      FieldName = 'QQNum'
      Size = 13
    end
    object tblNumBz: TWideStringField
      FieldName = 'Bz'
      Size = 50
    end
  end
  object qrySearchClass: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FID'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from SM_Class'
      'where ID=FID')
    Left = 36
    Top = 15
  end
  object tblClass: TADOTable
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    TableName = 'SM_Class'
    Left = 92
    Top = 14
    object tblClassID: TWideStringField
      FieldName = 'ID'
      Size = 4
    end
    object tblClassClassName: TWideStringField
      FieldName = 'ClassName'
      Size = 15
    end
  end
  object qrySearchNum: TADOQuery
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'FMobilePhone'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from PhoneNote'
      'where MobilePhone=:FMobilePhone')
    Left = 100
    Top = 223
    object qrySearchNumClass: TWideStringField
      FieldName = 'Class'
      Size = 4
    end
    object qrySearchNumName: TWideStringField
      FieldName = 'Name'
      Size = 15
    end
    object qrySearchNumPhoneNum1: TWideStringField
      FieldName = 'PhoneNum1'
      Size = 15
    end
    object qrySearchNumPhoneNum2: TWideStringField
      FieldName = 'PhoneNum2'
      Size = 15
    end
    object qrySearchNumFax: TWideStringField
      FieldName = 'Fax'
      Size = 15
    end
    object qrySearchNumHomePhone: TWideStringField
      FieldName = 'HomePhone'
      Size = 15
    end
    object qrySearchNumMobilePhone: TWideStringField
      FieldName = 'MobilePhone'
      Size = 11
    end
    object qrySearchNumEmail: TWideStringField
      FieldName = 'Email'
    end
    object qrySearchNumUnit: TWideStringField
      FieldName = 'Unit'
      Size = 30
    end
    object qrySearchNumOfficeAdd: TWideStringField
      FieldName = 'OfficeAdd'
      Size = 30
    end
    object qrySearchNumCommAdd: TWideStringField
      FieldName = 'CommAdd'
      Size = 40
    end
    object qrySearchNumPost: TWideStringField
      FieldName = 'Post'
      Size = 6
    end
    object qrySearchNumRetic: TWideStringField
      FieldName = 'Retic'
      Size = 30
    end
    object qrySearchNumQQNum: TWideStringField
      FieldName = 'QQNum'
      Size = 13
    end
    object qrySearchNumBz: TWideStringField
      FieldName = 'Bz'
      Size = 50
    end
  end
end