Application Seurveur/Client sous réseau Local - Delphi 7Résolu

Question

Salut et Bonne Année 2011 Pour tt le monde 

1er question:
Ma p'tit application sert à un reporting de données (Daily Report Agent)
Table créer sous PARADOX sans Alias!
Je veut que qulqu'un m'explique comment je fait fonctionné mon application sous un réseau local (LAN), mon application débute par un controle d'accés, User + PassWord.

2ème question:
Pour le controle d'accès, j'ai créer une table cession par PARADOX

Non      PassWord           Departement
xxx         0000            Front OFFICE
yyy         1111            Front OFFICE
zzz         2222            Front OFFICE

Table1.Open;
if (Edit1.Text=Table1Nom.value) and (Edit2.Text=Table1PassWord.value) 
   then Showmodal form2
      else Showmessage ('Vérifier votre nom ou votre mot de passe !') 
end;
Table.Post;

Je veut savoir comment faire les incrémentations pour tester ligne par ligne les deux conditions ?

Merci pour votre soutient. 
Amicalement. 
 
 


Freezy Delphi 7

cs_cantador · Accepted Answer

Bonjour,

Il faut mettre les test dans une procédure
et la mettre en exécution sur le ONCHANGE des deux edits.


cantador

freezydelphi7 · Answer

Salut 

Ma 1er question: 
Ma p'tit application sert à un reporting de données (Daily Report Agent) 
Table créer sous PARADOX sans Alias! 
Je veut que qulqu'un m'explique comment je fait fonctionné mon application sous un réseau local (LAN),

Pleeeeeeeas


La solution de ma 2ème Question:
procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
Table1.Open;
if (sComboBox1.Text='Administrateur') and (Table1.Locate('Nom_Prenom', sComboBox7.Text, [loCaseInsensitive, loPartialKey])) and (Table1.Locate('PassWord',sEdit1.Text , [loCaseInsensitive, loPartialKey]))
 then form9.ShowModal

Freezy Delphi 7

freezydelphi7 · Answer

Bonsoir,
finalement, après ma recherche en utilisant Mr GOOGLE, je trouve une prè réponse a ma question, il installer l'administrateur BDE chez le poste client est le configurer [pilote paradox, init local share true] partager le dossier qui contient mes tables (de préférable sur la racine C), ma question maintenant, pour créer un lecteur réseau :
net use w: \serveur\deily, mais j'ai le message d'erreur le suivant: Erreur système 67, y t'il quelqu'un qui peut m'zider de plus, merci d'avence.   


Freezy Delphi 7

cs_cantador · Answer

Bonjour,
tu vas trop vite
une seule question à la fois...


procedure TForm1.sBitBtn1Click(Sender: TObject); 
begin 
Table1.Open; 
if (sComboBox1.Text='Administrateur') and 
(Table1.Locate('Nom_Prenom', sComboBox7.Text, [loCaseInsensitive, loPartialKey]))
and (Table1.Locate('PassWord',sEdit1.Text , [loCaseInsensitive, loPartialKey])) 
then 
form9.ShowModal 
end;


Cette procédure ne fonctionne pas 
elle ne marche que pour l'administrateur..

et les autres ?

et la fonction "administrateur" est une propriété de l'utilisateur
et les homonymes Nom, prénom, ça existe.
etc.

cantador

freezydelphi7 · Answer

Bonsoir,
Comment faire partager une table PARADOX sous un réseau local.
Merci

Freezy Delphi 7

sikimyway · Answer

Salut à Tous j'aimerai savoir quelques choses: 

1. j'ai pu installer le BDE sur un poste avec Windows seven professionnel 64 bits mais il m'avoir un message koi la bibliotheque ne peut pas être initialiser

2. ou peut_on trouver le ComputerName avec Windows seven

cs_salah1978 · Answer

aziz2013 · Answer

bonjour tous le monde,
je viens de créer une application téléphonique qui me permet d'émettre et de recevoir des appels téléphonique avec le composant dialer de delphi 7. mais le problème j'ai deux ligne téléphonique connecter a mon pc et je veux savoir s'il y a une possibilité de faire des transférés d'appels d'une ligne a une autres avec le mémé composant ou avec un autre composant

Application Seurveur/Client sous réseau Local - Delphi 7

8 réponses

Votre réponse