Delphida muammo!!!

[OmoN]

Сообщение от Hero

Omon aka ko'chirib oldim oshibka beryapti nima maslahat berasiz

Нима деган ошибка? Ошибкани тексти бордир?

Сообщение от MAK

Омон, Test.gdb таркибини янги Дельфи проектда очиб кўрмоқчиман. Қандай уланаман?

Агар шунчаки базани кўрмоқчи бўлсангиз IBExpert дан фойдаланинг. Interbase/Firebird базалари билан ишлаш учун мен билган энг яхши программа. Аввал ҳам айтганимдай мазохистлар учун интербейзнинг ўзини программаси ҳам бор. Номи ҳозир эсимда йўқ.
Агар шу база билан ишлайдиган программа тузмоқчи бўлсангиз дельфида Interbase нинг IBDataBase деган компоненти бор. Шу орқали уланасиз.
Мен программамда DataModule яратиб базага қуйидаги код орқали уланганман:

PHP код:

procedure TDM.DataModuleCreate(Sender: TObject);
 var DBPath:string;
begin
IniFileFullName := ExtractFilePath(Application.ExeName) + 'tester.ini';
if not FileExists(IniFileFullName) then
 begin
  MessageDlg('Konfiguratsiya fayli topilmadi', mtError, [mbOk], 0);
  Exit;
 end;
DBPath := Trim(GetStringParametr(IniFileFullName, 'SYSTEM', 'DBPath', ''));
if DBPath = '' then
 begin
  MessageDlg('Konfiguratsiya faylida MB ga yo`l ko`rsatilmagan', mtError, [mbOk], 0);
  Exit;
 end;
DB.Close;
DB.DatabaseName := DBPath;
DB.Params.Clear;
DB.Params.Add('User_name=SYSDBA');
DB.Params.Add('Password=masterkey');
try
 DB.Open;
 If(frmLogin = nil)Then
   Application.CreateForm(TfrmLogin, frmLogin);
 frmLogin.ShowModal;  
except
 MessageDlg('MB ga ulanish mumkin emas',mtError,[mbOK],0);
 Application.Terminate;
end;
end;

function TDM.GetStringParametr(AFileName, ASection, AIdent, ADefault: string): string;
begin
  with TIniFile.Create(AFileName) do
  try
    Result := ReadString(ASection, AIdent, ADefault);
  finally
    Free;
  end;
end; 


[Husen]

Cал эртарок ҳаракат қилмайсизми? Best Soft Uzbekistan да роса омадингиз келарди-да... Халқ таълими вазирлиги реклама қилган Eduportal, веб-мактаб, веб-боғчадан кўра мана шунақа дастурлар кўпроқ бўлса нафи каттароқ бўларди.

[OmoN]

Оффтоп:

Сообщение от Husen

Cал эртарок ҳаракат қилмайсизми? Best Soft Uzbekistan да роса омадингиз келарди-да...

бу программачани бест софтга кўтариб боришга уяламан Илҳом ака келиб қолсалар программага тест имтиҳони олишниям қўшиб қўярдим.

[Ustoz]

Сообщение от OmoN

бу программачани бест софтга кўтариб боришга уяламан

Shu o`zingizdgi uyatdan ba`zilarga ham ozgina bersangiz bo`larkan. Kamtarligingiz yaxshi, ammo Sizning bu kamtarligingizdan ish zarar ko`ryapti, menga o`xshagan chala dasturchilar bir nimalar qilib o`zimizni ham boshqalarni ham qiynab yuribmiz.
Hali to`liq ishlatolmadim, negadir kodi bilan qiynalvomman, tushuntirishingizni yana bir o`qib chiqay-chi, nimnanidir ahamiyatsiz qoldirib ketganga o`xshayman.

[OmoN]

Сообщение от Ustoz

Hali to`liq ishlatolmadim, negadir kodi bilan qiynalvomman, tushuntirishingizni yana bir o`qib chiqay-chi, nimnanidir ahamiyatsiz qoldirib ketganga o`xshayman.

Исходный кодни назарда тутмаяпсиз деб умид қиламан
Хелпни қарасангиз менимча бу ҳақида ёзилган.
Расмга қаранг:

Талабалардан Elementary exam 2 ни олмоқчи бўлсангиз:
1) Алиев Вали учун имтиҳон коди - 24
2) Ҳамидов Али учун имтиҳон коди - 21.
Бу кодни билмаган талаба имтиҳон топширолмайди. Буни аълочилар бошқа талабалар ўрнига имтиҳон топширмасликлари учун қилганман.
Имтиҳонни бир марта топширган талаба қайта топширолмайди. Агар қайта топшириши керак бўлса Сиз скриншотдаги ойнадан унинг натижасини бекор қилишингиз керак (имтиҳонда қатнашадиган талабалар рўйхатидан талабани танлаб туриб сичқончанинг ўнг томонини босасиз. контекст меню очилади).

[MAK]

Сообщение от OmoN

Исходный кодни назарда тутмаяпсиз деб умид қиламан

Илтимос, Омон, исходникни биздан дариғ тутманг. Это исключительно спортивный интерес. Элпочтамга жўнатишингиз мумкин: doctorhasanota@mail.ru.

[Ustoz]

Katta rahmat, albatta helpni o`qib chiqaman, Sizni shuncha ovora qilganimdan juda hijolatdaman, o`zi aslida kichkina muammo bilan murojaat qiluvdim, biryo`la hammasini hal qilib qo`yaqoldingiz. Rahmat.

[OmoN]

Сообщение от Ustoz

o`zi aslida kichkina muammo bilan murojaat qiluvdim, biryo`la hammasini hal qilib qo`yaqoldingiz.

Бу нарсаларни барибир тушунтириб беролмасдим. Шунинг учун ўзим қилиб қўя қолдим. Бошқаларгаям фойдаси тегиб қолар деб.

[MAK]

Омон, Test.gdb таркибини янги Дельфи проектда очиб кўрмоқчиман. Қандай уланаман?

П.С. ФайрБирд ишлаб турибди.

[OmoN]

Узр, канака файл хакида гап кетяпти? Индекснинг бунга нима алокаси бор?
а) дбгридни свойстваларини караб куринг. EhLib ни гридиниям ишлатиб куринг.
б) bookmark дан фойдаланинг.