1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
| ///////////////////////////////////////////////////////////////////////
// rechercher dans un bd
//
///////////////////////////////////////////////////////////////////////
bool recherche(AnsiString nom,AnsiString pass)
{
TLocateOptions Opts; // options de recherche
Opts.Clear();
Opts << loPartialKey; // ?!
Variant locvalues[2];
locvalues[0] = Variant(nom); //
locvalues[1] = Variant(pass); // Valeuers
return Form1->Table1->Locate("Nom;Mot de pass",VarArrayOf(locvalues, 1),Opts);
}
///////////////////////////////////////////////////////////////////////
//
//
///////////////////////////////////////////////////////////////////////
bool recherche_nom(AnsiString nom)
{
TLocateOptions Opts; // options de recherche
Opts.Clear();
Opts << loPartialKey; // ?!
Variant l(nom);
return Form1->
Table1->
Locate("Nom;",l,Opts);
}
//////////////////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////////////////
Addnew(AnsiString nom,AnsiString pass)
{
Form1->Table1->Insert();
Form1->Table1->FieldByName("Nom")->AsString=nom;
Form1->Table1->FieldByName("Mot de pass")->AsString=pass;
Form1->Table1->Post();
Creat_Message_DB(nom);
Save_Message(nom,"System","Félicitations "+nom);
}
///////////////////////////////////////////////////////////////////////
// Créer une base de données pour sauvgarder
// les messages de client
// Exemple : Client1_messages.MB
//
////////////////////////////////////////////////////////////////////////
Creat_Message_DB(AnsiString account_name)
{
TTable *DB=new TTable(NULL);
DB->Active=false; // The Table component must not be active
DB->DatabaseName = "DATA\\MSG\\";
DB->TableType = ttParadox;
DB->TableName =account_name+"_messages";
if (!DB->Exists) // Don't overwrite an existing table
{
// describe the fields in the table
DB->FieldDefs->Clear();
TFieldDef *pNewDef = DB->FieldDefs->AddFieldDef();
pNewDef->Name = "Source";
pNewDef->DataType = ftString;
pNewDef->Size =20;
pNewDef->Required = true;
pNewDef =DB->FieldDefs->AddFieldDef();
pNewDef->Name = "Date de réception";
pNewDef->DataType = ftString;
pNewDef =DB->FieldDefs->AddFieldDef();
pNewDef->Name = "Message";
pNewDef->DataType = ftMemo;
pNewDef->Size = 240;
DB->CreateTable();
}
} |