دخول

تلميذ الحياة · 04-04-2012, 03:51 PM

السلام عليكم

كود :
procedure TFPas.Button1Click(Sender: TObject);
begin
ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;'+
                                    'Persist Security Info=False;'+
                                    'User ID='+Edit1.Text+';Password='+Edit2.Text+
                                    ';Initial Catalog=اسم قاعدة البياناتt;'+
                                    'Data Source=اسم  الخادم';
try
   ADOConnection1.Connected:=true;
        FPri.Show;
     FPas.Hide;
    except on E: Exception do
ShowMessage('نعذر الاتصال');
end;
end;

بالتوفيق

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة