| Цитата | procedure opendbase(database:TDatabase; table:TTable; datasource:TDataSource; DBGrid:TDBGrid; dir,name,bname:string);
begin
Database.DatabaseName:= bname;
Database.DriverName:= 'STANDARD';
Database.Params.Clear;
Database.Params.Add('PATH='+dir);
Table.DatabaseName:= bname;
Table.TableName:={'baze'}name;
Table.Active:= True;
DataSource.DataSet:=Table;
DBGrid.DataSource:=DataSource;
end; |
| Код |
void opendbase(TDatabase database, TTable table, TDataSource datasource; TDBGrid DBGrid, String dir, String name, String bname)
{
Database->DatabaseName = bname;
Database->DriverName = "STANDARD";
Database->Params->Clear();
Database->Params->Add("PATH="+dir);
Table->DatabaseName = bname;
Table->TableName={"baze"}name;
Table->Active = True;
DataSource->DataSet=Table;
DBGrid->DataSource=DataSource;
}
|
|
