[Delphi] GunZ Control Panel [WIP]

[Ryu.BZ]

«Ɓөטᴫᴛᴪ¬ĦµńɫƐᴙ»®     - My room mate mario *͋͌⃡(H) says:
*idk
*say something cool
*:P
*and also thank my post xD

Looks good so far, I'm looking forward to the release. :3

[Demantor]

For aristrum, that wasnt the full CreateAccount procedure this is :

Procedure TServerSystem.CreateAccount(U: string; P: string);
var
AID:string;
begin
CurrentTIme := DateTimeToStr(Time);
  SQLQuery.SQL.Text := 'SELECT * FROM Account WHERE UserID = ' + '''' + U + '''' ;
  SQLQuery.ExecSQL();
  SQLQuery.Active := true;
  if SQLQuery.Fields[1].AsString = U then // Change Feilds value from 0 to 1
  begin
    log.Lines.Add('Failed to Create Account: ' + U );
    log.lines.add('UserName Already in use!');  //lets test :D
  end
  else
  begin
  SQLQuery.SQL.Text := 'INSERT INTO Account (UserID, UGradeID, PGradeID, RegDate, Name, Email, RegNum, Age, Sex, ServerID) VALUES ( ' + '''' + U + '''' + ',0,0,' + '''' + CurrentTime + '''' + ',' + '''' + U + '''' +',NULL,NULL,20,NULL,0 )';
  SQLQuery.ExecSQL();
  SQLQuery.SQL.Text := 'SELECT AID FROM Account WHERE UserID = ' + '''' + U + '''';
  SQLQuery.ExecSQL();
  SQLQuery.Active := true; // this is the fix :p     WORKS :D sure?, the aid should be 3 or? na look
  Aid := SQLQuery.Fields[0].AsString; // Gets the AID Field :D
  showmessage(AID);
  sqlquery.SQL.text :=  'INSERT INTO Login (UserID, AID, Password) VALUES ( ' + '''' + U + '''' + ',' + '''' + AID + '''' + ',' + '''' + P + '''' + ')';
  SQLQuery.ExecSQL();
  Log.Lines.Add('User account created : ' + U);
  // DONE :D xD lets see if it works :Dyea
  end;
end;

Without the "showmessage(AID);" :D

[cerealnp]

Pretty Impressive, keep it going.

[ProGunzsoul]

hey bounty-hunter , welcome back dude ;)

and good ideas any way ^^

[KillerStefan]

Nice effort, I was planning on doing something like this in C# for Ragezone Gunz.

[Zinoxity]

Nice effort, I was planning on doing something like this in C# for Ragezone Gunz.

Are you a developer at RaGEZONE GunZ?

[bounty-hunter]

UPDATE:
Server side is almost finished curently adding the following features:
*Character Editing
*Server Editing ( edit server ip and all that )
---------------------------------------------------------------------
Also i have a concept in mind, im allowing users to advertise in my programs free of charge, pm me if interested. A small banner of your network will be placed on the bottom of my application
---------------------------------------------------------------------

[Demantor]

Bounty,, your afk now!.. i dced because msn failed.. :P

anyway, here is a screenshot of the Client's Design(bounty sent it me) ..

On the Red marked area, will be your server's banner.

[bounty-hunter]

UPDATE:
Working on ClientSide now

[MAXTRAXv3]

hmm...this seem like a good tool for new peps

[Demantor]

Stop *********, etc webs.. and finish the server xD

*The Client is finished..

[Axium]

He sent me a link that takes you to ********* or cashearn or something, couldn't test it, xd.