datasql_db.dfm

来自「乐都SQL版传奇全套代码,绝对可编译」· DFM 代码 · 共 142 行

object DataModule_DB: TDataModule_DB
  OldCreateOrder = False
  Left = 903
  Top = 367
  Height = 292
  Width = 377
  object ADOConnectionDB: TMSConnection
    Database = 'mir200'
    Authentication = auServer
    Username = 'sa'
    Password = '503264'
    Server = '(LOCAL)'
    Left = 24
    Top = 16
  end
  object ADOQueryGet: TMSQuery
    Connection = ADOConnectionDB
    Left = 96
    Top = 16
  end
  object ADOQuery: TMSQuery
    Connection = ADOConnectionDB
    SQL.Strings = (
      'Delete from D_HUM_ITEM  where pos=-4'
      'Update D_HUM_ITEM Set pos=-3 where charid=:charid'
      'Delete from D_HUM_MAGIC  where charid=:charid1')
    Left = 136
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'charid'
      end
      item
        DataType = ftUnknown
        Name = 'charid1'
      end>
  end
  object ADOStoredProcADD: TMSStoredProc
    StoredProcName = 'HUM_INFO_ADD;1'
    Connection = ADOConnectionDB
    SQL.Strings = (
      
        '{:RETURN_VALUE = CALL HUM_INFO_ADD;1(:ACCOUNT, :NAME, :Hair, :Se' +
        'x, :Job)}')
    FetchRows = 1
    Left = 32
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'ACCOUNT'
        ParamType = ptInput
        Size = 15
      end
      item
        DataType = ftString
        Name = 'NAME'
        ParamType = ptInput
        Size = 15
      end
      item
        DataType = ftWord
        Name = 'Hair'
        ParamType = ptInput
      end
      item
        DataType = ftWord
        Name = 'Sex'
        ParamType = ptInput
      end
      item
        DataType = ftWord
        Name = 'Job'
        ParamType = ptInput
      end>
  end
  object ADOStoredProc_Get: TMSStoredProc
    StoredProcName = 'HUM_INFO_GET;1'
    Connection = ADOConnectionDB
    SQL.Strings = (
      '{:RETURN_VALUE = CALL HUM_INFO_GET;1(:ChrName)}')
    Left = 96
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'ChrName'
        ParamType = ptInput
        Size = 14
      end>
  end
  object ADOStoredProc_Del: TMSStoredProc
    StoredProcName = 'HUM_INFO_DEl;1'
    Connection = ADOConnectionDB
    SQL.Strings = (
      
        '{:RETURN_VALUE = CALL HUM_INFO_DEl;1(:NAME, :Account, :boSelect,' +
        ' :boDelete)}')
    Left = 152
    Top = 80
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'NAME'
        ParamType = ptInput
        Size = 15
      end
      item
        DataType = ftString
        Name = 'Account'
        ParamType = ptInput
        Size = 15
      end
      item
        DataType = ftWord
        Name = 'boSelect'
        ParamType = ptInput
      end
      item
        DataType = ftWord
        Name = 'boDelete'
        ParamType = ptInput
      end>
  end
end