Delphida muammo!!!

[MAK]

Нима учун ДБГридда ИНСЕРТ босилганда янги ёзув курсордан битта юкорида киритилади ва курсор силжиганда, хозиргина киритган ёзувинг рўйхатнинг энг охирига тушиб кетади? Бу ж-у-у-у-да ноқулай, фойдаланувчи учун. Нахотки, мумкин эмас, соддагина, инсонпарвар усул билан ДБГридга гап уқтиришнинг?!
Агар бу мумкин бўлмаса, у холда нима учун?
Нахотки, Андерс Хейлсберг бунга эътибор бермаган бўлса?

[OmoN]

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

Нима учун ДБГридда ИНСЕРТ босилганда янги ёзув курсордан битта юкорида киритилади ва курсор силжиганда, хозиргина киритган ёзувинг рўйхатнинг энг охирига тушиб кетади? Бу ж-у-у-у-да ноқулай, фойдаланувчи учун.

гридда инсерт(яъни орасига тиқиш) ўз вазифасини бажаради. фойдаланувчи учун ноқулай нарсани қулай қилиш программистнинг вазифаси.

[MAK]

"орасига тиқиш" деганга қўшилмайман. Қандай қилиб файлни "орасини йириб" ёзувни "тиқиб" қўйиш мумкин? Агар шундай бўлганда, юқоридагидек "нозик" сўзлар ва индекслаш деган "бало"ларга хожат қолмаган бўларди.

Менинг фикрим, ёки ниманидир хисобга олмаяпмиз ёки компоненти усталарча алдашимиз керак.

Савол:
а) Нимани хисобга олмаяпмиз?
б) Компонентни қандай алдаш мумкин?

[MAK]

Ҳал бўлди.

DBGrid нинг dgEditing опцияси False турган холда Insert клавишасига хеч қандай реакция бўлмайди, шунинг учун Формага ActionList қўйдим. Унга янги ёзув қўшишга жавоб берувчи Акт (actNewExecute) ёздим. Бу актнинг ShortCut хусусиятига Ins клавишини боғладим.

Ёзув таблицанинг охирига қўшилиши учун Append қўлланиши керак экан.

Қуйида содда синов модулининг коди:

PHP код:

implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
   Query1.Open;
end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = VK_RETURN
   then
   begin
     if Query1.State in [dsEdit, dsInsert]
     then
       Query1.Post;
   end;
end;
procedure TForm1.Query1AfterPost(DataSet: TDataSet);
begin
    DBGrid1.Options := DBGrid1.Options - [dgEditing, dgAlwaysShowEditor];
end;
procedure TForm1.Query1AfterCancel(DataSet: TDataSet);
begin
  DBGrid1.Options := DBGrid1.Options - [dgEditing, dgAlwaysShowEditor];
end;
procedure TForm1.actNewExecute(Sender: TObject);
begin
  DBGrid1.Options := DBGrid1.Options + [dgEditing, dgAlwaysShowEditor];
  Query1.Append;
  DBGrid1.SetFocus;
  DBGrid1.Fields[1].FocusControl;
end;
end. 


Рахмат, Омон. Агар сир бўлмаса, асосий дастурлаш инструментинигиз нима? Ва яна:
1) Дельфига Ўзбекистонда эътибор қандай?
2) Форумда делфинлар борми?

[Ustoz]

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

Форумда делфинлар борми?

Bu haqda boshqa forumlarda ham savollar berishgan, men Saidolim degan yigitni bilardim, hozir nima qilyapti bilmayman, ammo Delphini zo`r bilardi.MYPda tanishgandim. forum.dastur.uz da ham bir ko`rganday bo`luvdim.
Omon. Delphini bilgan odam mana shu BD bilan ihlashni qacha vaqtda o`rganib olishi mumkin, uning ustiga agar ilgari ozgina ishlagan bo`lsa. Bir o`rgatmaysizmi? Men Dbase da iashlagandim agar adashmasam, yo`nalishni ko`rsatish kerakligi menga yoqmagandi, baribir hammasida ham bir xil ekan-ku.

[OmoN]

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

Рахмат, Омон. Агар сир бўлмаса, асосий дастурлаш инструментинигиз нима?

Ҳозирда Java ва PL/SQL. 4 йилдан бери делфида биронта тузукроқ иш қилганим йўқ. Шароит шуни тақозо қилди. Ундан аввал асосан делфида ишлаганман(4 йил). Қолган саволларга жавоб беролмайман. Лекин делфи билан ҳам нон топса бўлади.

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

Delphini bilgan odam mana shu BD bilan ihlashni qacha vaqtda o`rganib olishi mumkin, uning ustiga agar ilgari ozgina ishlagan bo`lsa.

Ҳамманинг ўзига боғлиқ. Масалан менга БД билан ишлай бошлаш учун 1 ой етарли бўлган. Лекин 8 йилдан бери тажрибамни тўлдириб бораман.

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

Bir o`rgatmaysizmi?

Ҳаракат қиламиз. dastur.uz да МБ ҳайида умумий тушунчаларни 3 та мақола қилиб ёзгандим. Менимча БД билан танишишга ёрдам берса керак.

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

Men Dbase da iashlagandim agar adashmasam, yo`nalishni ko`rsatish kerakligi menga yoqmagandi, baribir hammasida ham bir xil ekan-ku.

Базани қаердалигини автомат равишда топадиган қилсангиз йўл кўрсатиш шартмас