udm.dfm

教材管理系统

object DM: TDM
  OldCreateOrder = False
  Left = 309
  Top = 242
  Height = 261
  Width = 371
  object Dbjcgl: TDatabase
    AliasName = 'smxyjcgl'
    Connected = True
    DatabaseName = 'Dbjcgl'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME=smxy'
      'SERVER NAME=218.193.108.204'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=jiang5460')
    SessionName = 'Default'
    Left = 8
  end
  object Qryuser: TQuery
    DatabaseName = 'Dbjcgl'
    RequestLive = True
    SQL.Strings = (
      'select * from operuser'
      'where username<>'#39'Administrator'#39)
    Left = 8
    Top = 64
    object Qryuserusername: TStringField
      FieldName = 'username'
      Origin = 'DBJCGL.operuser.username'
      FixedChar = True
      Size = 15
    end
    object Qryuserpassword: TStringField
      FieldName = 'password'
      Origin = 'DBJCGL.operuser.password'
      FixedChar = True
      Size = 50
    end
    object QryuserAdministrator: TBooleanField
      FieldName = 'Administrator'
      Origin = 'DBJCGL.operuser.Administrator'
    end
    object Qryuseruserright: TStringField
      FieldName = 'userright'
      Origin = 'DBJCGL.operuser.userright'
      FixedChar = True
      Size = 2
    end
  end
  object Qrytemp: TQuery
    DatabaseName = 'Dbjcgl'
    Left = 8
    Top = 160
  end
  object Qrygn: TQuery
    DatabaseName = 'Dbjcgl'
    SQL.Strings = (
      'select * from  funuser')
    Left = 72
    Top = 120
  end
  object dsuser: TDataSource
    DataSet = Qryuser
    OnDataChange = dsuserDataChange
    Left = 72
    Top = 64
  end
  object user: TQuery
    Active = True
    DatabaseName = 'Dbjcgl'
    SQL.Strings = (
      'select * from operuser where username=:name and password=:pwd')
    Left = 16
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'name'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pwd'
        ParamType = ptInput
      end>
  end
end