Discussion :

[dj_cue]

slt tt le monde !
voila je suis debutant en delphi, je suis entrain de faire mon 1er programme, et je cherche comment veriffier 2 données a partir d'un maskedit sur une base de donnée oracle.
voici le resumé :
la table "user" contien :
nom_utilisateur =====> le nom d'utilisateur
passe =====> le mot de passe
code =====> 1 pour admin, 2 pour invité

la fiche contien :
maskedit1 ====> nom d'utilisateur
maskedit2 ====> mot de passe
bouton ====> bouton OK pour accedé a l'application

alors je veux :
1- verifier le nom d'utilisateur et le mot de passe
2- si le les données existe sur la table
3- avoire le code qui les precede (1 ou 2)

si 1 : form1.show
si 2 : form2.show

voila j'espere que g ete clair


merci d'avance a tous de m'aidé et bon courage pour vos programmes

[macumba]

Pour n'obtenir que les données tapées sans le mask tu peux esssayer de faire un truc dans ce genre là(c'est pas top mais c'est pas compliqué pour un débutant). Pour ne jamais avoir à afficher la donnée sans le masque tu pourrais par exemple passer par un maskedit dynamique ou invisible que tu aurais posé sur ta form en lui affectant le masque de saisie et le texte que tu veux analyser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  masq : string;
begin
  masq := MaskEdit1.EditMask;
  MaskEdit1.EditMask := '';
  try
  Showmessage(MaskEdit1.EditText);
  finally
    MaskEdit1.EditMask := masq;
  end;
end;

Autrement pour vérifier la présence ou pas de la donnée de la base il suffit de faire une requête avec un TQuery avec dasn la clause where toutes les données que tu veux vérifier et en ramenant le code admin ou visiteur pour savoir quelle fenêtre ouvrir.