#AsuultSambar :

За хөө чи баазаа interbase дээр байгуулж байгаа бол баазынхаа замыг авдаг нэг жижигхэн .exe file бэлдэж болно ш дээ жишээ нь бааз байгаа газраа зааж өгдөг crack маягийн. Тэгээд програмаа ачаалахдаа баазынхаа замыг нь заагаад өгчингүй юу даа.

MSSQL server-g ashiglakh arga iluu taalagdaad bn. KHamgiin gol n bi DBASE deer uusgesen kheden ul khamaarakh Table-tei ajillakh estoi yum a. (Ene n Quiry bish gesen ug), Tegeed deer n bi delphi7.0 deer urid omno n network orchinii component ashiglaj bgagui medekh ch udui tiim bolokhoor ikh delgerengui zaaj ugj tuslaach. Hervee bi base-taigaa kholbogdoh argiig batalgaatai ashiglaj chadval base-daa bolovsruulaltiig yaj l bol yaj l khiine. Zugeer suljeenii bus olon programm khiij bsn. Gekhdee danaa jijigkhen daraa negiinh n install_g havsargaj bolokh yum. Gekhdee namaig sonirhogch gedgiig buu martaarai.

Zugeer share khiichekheer I'm thinking "no security maybe everyperson delete.!"

Aa zureeg servergui suljeend ene argiig ashiglaj boloh uu? Computer'n nereer n handdag ch yum u?

Nadad tuslaach! Bi Delphi7.0 deer local hetwork orchind ajilladag neg jijighen pro hiih sanaataa. Gants zuil deer gachaad bn. Suljeenii neg computer deer database-a bairluulaad tuunruge busad com-s client-r khandaj bdag yum khiikh gesen yum delgerengui zululguu uguuch.

///////////////
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('SOFTWARE', True) then begin
if reg.OpenKey('your folder', True) then begin
if reg.OpenKey('your folder', True) then begin
if reg.OpenKey('your folder', True) then begin
u1:=reg.ReadString('password');
p1:=reg.ReadString('username');
s_way:=Reg.ReadString('zam');
u1:='user_name='+u1;
p1:='password='+p1;
end;
end;
end;
end;
reg.Free;
///////////////
//dm.IBDatabase1.DatabaseName :=a_way+your_base.gdb';

//dm.IBDatabase1.Params.clear;
// dm.IBDatabase1.Params.Add(u1);
// dm.IBDatabase1.Params.Add(p1);
// tst:=0;
{ try
dm.IBDatabase1.Connected :=true;
tst:=1;
except
tst:=2;
end;}

if tst1=1 then begin
dm.ibtoption.Active:=true;
dm2.ibtref_type.Active:=true;
dm2.ibtref_group.Active:=true;
dm2.ibtref_code.Active:=true;
dm2.ibtref_detail.Active:=true;
{---------------------------------------------------}
end else begin
Application.MessageBox(' Бааз холбогдоогvй байна','ERROR',0);
Application.Terminate;

Энэ нь баазынхаа зам, нэр, нууц үг ээ windows register-ээс авч байгаа юм.тэр зам гэсэн хэсэгт нь миний дээр бичсэн hostname:c:\\dddd.gdb гэж бичиж болно

Teхнологич оо. Би холбогдох гэж үзлээ. Тэгсэн нэг л болж өгдөггүй шүү.
ADOConnection аваад, ConnectionString.. руу нь орж Build хийлээ. Бүгдийн таны өгсөн зааварын дагуу хийгээд (SERVER name, username, password) өгөөд DataBase-аа сонгох combobox-г дарсан чинь байдаггүй э. Удаж удаж доох Error information гарлаа. Үүнд:
1. [DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied. гэж гараад Ок дарахаар
2. Login Failed. Catalog information cannot be retriered.
гээд байх юм. Энд нэг зүйлийг хэлэхэд SERVER дээр SQL Server 2003-ийг суулгасан. Delphi6.0 дээр туршиж үзсэн юм. Хавсралтаар дэлгэрэнгүй мэдээлэл өгөөч. Ер энэ талаар танаас асуух юм их гарах байх аа болно биз дээ.
Ноён Технологич оо!

За тэгээд болгож л байгаа юм байна Сониноос Delphi 7 чинь ямар ямар давуу талуудтай байна даа