Delphida muammo!!!

[MAK]

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

Программанинг исходнигига келсак... Мен росаям қизғанчиқман

Мана шундоқ юмор дастурларингиз кодларида ҳам серобдир, деб ўйлайман. Масалан:
if Isxodnik = '' then OmonIsMiser := True;

[Hero]

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

Дастурда ҳисобот ҳам бор. Синфдаги ўқувчиларнинг имтиҳон натижаларини кўрсатиш ва Excel га экспорт қилиш имконияти ҳам қўшилган.

Omon aka ko'chirib oldim oshibka beryapti nima maslahat berasiz

[MAK]

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

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

[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; 


[MAK]

Проблема по БД:
При добавлении новой записи в таблицу нажимается клавиша Insert и тогда чтобы окошко ввода появилась в конце списка DBGridа, что и где написать?
=====================
БД да муаммо:
Талицага янги запис қўшиш учун DBGrid да Insert клавиши босилади, шунда киритиш дарчаси DBGrid нинг энг пастки қаторида (рўйхатнинг охирида) пайдо бўлиши учун қаерда ва нима дейиш керак?

[OmoN]

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

БД да муаммо:
Талицага янги запис қўшиш учун DBGrid да Insert клавиши босилади, шунда киритиш дарчаси DBGrid нинг энг пастки қаторида (рўйхатнинг охирида) пайдо бўлиши учун қаерда ва нима дейиш керак?

DBGridда Insert кнопкаси босилганда курсор турган қатордан олдин бўш қатор пайдо бўлади. Бўш қатор охирида пайдо бўлиши учун энг охирги қаторга бориб кейин пастга стрелкани босиш керак.
Лекин
Бунинг учун DBGrid нинг DataSource ининг DataSet и албатта Table ёки бирон бир виртуальная таблица(стандарт компонентларда бунақаси йўқ) масалан RxMemoryData бўлиши керак.
Table орқали ишласангиз маълумот киритиш баъзи ҳолларда осон ишлайди (таблицада биронта ҳам foreign key бўлмаган ҳолларда) лекин маълумотни юклаб олиш через одно место ишлайди. SQL запрослар ишлатолмайсиз, фильтр жуда секин ишлайди. Виртуальная таблица билан ишласангиз бу усулда инсерт қилсангиз янги қўшилган ёзув DBGrid да пайдо бўлиши мумкин лекин базага бориб тушмайди.

Маслаҳат: Агар янги запись қўшиш керак бўлса DBGrid нинг ўзида қўшишни тавсия қилмайман. Янги запись қўшиш учун алоҳида форма ясаб ўша ердан базага инсерт қилишни тавсия қиламан.

[MAK]

DBGridда Insert кнопкаси босилганда курсор турган қатордан олдин бўш қатор пайдо бўлади. Бўш қатор охирида пайдо бўлиши учун энг охирги қаторга бориб кейин пастга стрелкани босиш керак.

Айнан шундоқ. Лекин мен айтгандек иложи борми? Query дан фойдаланяпман.

Маслаҳат: Агар янги запись қўшиш керак бўлса DBGrid нинг ўзида қўшишни тавсия қилмайман. Янги запись қўшиш учун алоҳида форма ясаб ўша ердан базага инсерт қилишни тавсия қиламан.

Албатта, кўп майдонли запислар учун алохида форма жуда тўғри, лекин майдонлар сони атиги 3 та ва улардан иккитаси автоматик хисоблаб қўйиладиган ва жадвалда (ДБГридда) акс этмаслиги керак бўлсачи?

[OmoN]

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

Албатта, кўп майдонли запислар учун алохида форма жуда тўғри, лекин майдонлар сони атиги 3 та ва улардан иккитаси автоматик хисоблаб қўйиладиган ва жадвалда (ДБГридда) акс этмаслиги керак бўлсачи?

Албатта битта майдон учун алоҳида форма яхшимас. Яхшиси мана бунақа қилиш керак:

PHP код:

IStr := InputBox('Ismingizni kiriting: ', 'Ism :','');
Query1.SQL.Add('insert into odamlar (ism) values ('''+IStr+''')'); 


[Ustoz]

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

Программани ишлатолдингизми? Таассуротлар қанақа?

Bir marta ishlatib ko`z yugurtirib chiqdim, ammo batafsil ko`rib chiqolmadim. Menga yoqdi, rahmat. Keyinroq savollar bo`lsa berarman (savol albatta bo`ladi deb o`ylayman )

[OmoN]

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

Bir marta ishlatib ko`z yugurtirib chiqdim

Ишлаган бўлса бўлди. Программа айниб қолмасин дейманда Срок годности 1 месяц. Не употреблять после истечении срока