ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=kn_online;Data Source=127.0.0.1'
Parameters = <>
SQL.Strings = (
'declare @matrix1536 int'
'exec account_login '#39'id'#39' , '#39'pw'#39' , @matrix1536 OUTPUT'
'select @matrix1536 as @nRet')
Left = 600
Top = 416
end
object ServerSocket1: TIdTCPServer
Active = True
Bindings = <>
CommandHandlers = <>
DefaultPort = 15001
Greeting.NumericCode = 0
MaxConnectionReply.NumericCode = 0
OnConnect = ServerSocket1Connect
OnExecute = ServerSocket1Execute
OnDisconnect = ServerSocket1Disconnect
OnException = ServerSocket1Exception
ReplyExceptionCode = 0
ReplyTexts = <>
ReplyUnknownCommand.NumericCode = 0
Left = 528
Top = 376
end
object ADOQuery2: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=kn_online;Data Source=127.0.0.1'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from userdata where struserid='#39'asd'#39)
Left = 568
Top = 312
object ADOQuery2strUserId: TStringField
FieldName = 'strUserId'
FixedChar = True
Size = 21
end
object ADOQuery2Nation: TWordField
FieldName = 'Nation'
end
object ADOQuery2Race: TWordField
FieldName = 'Race'
end
object ADOQuery2Class: TSmallintField
FieldName = 'Class'
end
object ADOQuery2HairColor: TWordField
FieldName = 'HairColor'
end
object ADOQuery2Rank: TWordField
FieldName = 'Rank'
end
object ADOQuery2Title: TWordField
FieldName = 'Title'
end
object ADOQuery2Level: TWordField
FieldName = 'Level'
end
object ADOQuery2Exp: TIntegerField
FieldName = 'Exp'
end
object ADOQuery2Loyalty: TIntegerField
FieldName = 'Loyalty'
end
object ADOQuery2Face: TWordField
FieldName = 'Face'
end
object ADOQuery2City: TWordField
FieldName = 'City'
end
object ADOQuery2Knights: TSmallintField
FieldName = 'Knights'
end
object ADOQuery2Fame: TWordField
FieldName = 'Fame'
end
object ADOQuery2Hp: TSmallintField
FieldName = 'Hp'
end
object ADOQuery2Mp: TSmallintField
FieldName = 'Mp'
end
object ADOQuery2Sp: TSmallintField
FieldName = 'Sp'
end
object ADOQuery2Strong: TWordField
FieldName = 'Strong'
end
object ADOQuery2Sta: TWordField
FieldName = 'Sta'
end
object ADOQuery2Dex: TWordField
FieldName = 'Dex'
end
object ADOQuery2Intel: TWordField
FieldName = 'Intel'
end
object ADOQuery2Cha: TWordField
FieldName = 'Cha'
end
object ADOQuery2Authority: TWordField
FieldName = 'Authority'
end
object ADOQuery2Points: TWordField
FieldName = 'Points'
end
object ADOQuery2Gold: TIntegerField
FieldName = 'Gold'
end
object ADOQuery2Zone: TWordField
FieldName = 'Zone'
end
object ADOQuery2Bind: TSmallintField
FieldName = 'Bind'
end
object ADOQuery2PX: TIntegerField
FieldName = 'PX'
end
object ADOQuery2PZ: TIntegerField
FieldName = 'PZ'
end
object ADOQuery2PY: TIntegerField
FieldName = 'PY'
end
object ADOQuery2dwTime: TIntegerField
FieldName = 'dwTime'
end
object ADOQuery2strSkill: TStringField
FieldName = 'strSkill'
Size = 10
end
object ADOQuery2strItem: TBytesField
FieldName = 'strItem'
Size = 400
end
object ADOQuery2strSerial: TBytesField
FieldName = 'strSerial'
Size = 400
end
object ADOQuery2manner: TIntegerField
FieldName = 'manner'
end
object ADOQuery2loyaltynew: TIntegerField
FieldName = 'loyaltynew'
end
end
end
.