27-04-2020, 02:35 PM
PHP كود :
procedure TForm3.Button1Click(Sender: TObject);
var
ini: Tinifile;
Server, User, Pass, DBName: string;
begin
ini:= TIniFile.Create(ExtractFilePath (Application.ExeName) + 'dbconn.ini'); // initialize the ini file
Server:= ini.ReadString ('serverinfo', 'ServerIP',''); // database ip address
DBName:= ini.ReadString ('serverinfo', 'SQLDBName',''); // database name
User:= ini.ReadString ('serverinfo', 'SQLUserID',''); // database user name
Pass:= ini.ReadString ('serverinfo', 'SQLPwd',''); // database password
try
ADOConnection1.ConnectionString:= 'Provider = SQLOLEDB.1; Persist Security Info = False;'
+'User ID =' + trim(User)
+';Password ='+ trim(Pass)
+';Initial Catalog =' + trim(DBName)
+'; Data Source =' + trim(Server);
ADOConnection1.Open;
ShowMessage('connected');
//ADOConnection1.Close;
ADOTable1.Connection := ADOConnection1;
ADOTable1.TableName :='items';
ADOTable1.Active := true;
TMemoField(ADOTable1.FieldByName('هنا أكتب اسم الحقل ميمو')).DisplayValue := dvFull;
DataSource1.DataSet :=ADOTable1;
DBGrid1.DataSource := DataSource1;
except
application.MessageBox ('database connection fails, check the INI configuration file', 'tips', 64);
application.Terminate;
end;
end;


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)