Здравейте,как да разпечатам само тези записи,които са показани в таблицатата.... с други думи текущата таблица
2 2025-12-07 11:03:45
Topic: error version 6.4 (1 replies, posted in Russian)
здравейте,имам проект направен на версия 1.51.обнових до версия 6.4 и след зареждане на моя проект се появи грешка Form1.TableGrid1.dbItemID := Last_Insert_id('application'); къде е проблема?
3 2025-11-11 16:17:54
Topic: бавно търсене при голям брой записи (2 replies, posted in Script)
Здравейте,имам проект който работеше добре но когато клиентите достигнаха около 3000 ,при търсене по телефонен номер или име наклиент ,резултатите се появяват много бавно по някога дори след минута и колкото повече се увеличават клиентите толкова по бавно става.има ли някакво решение на проблема? като филтър в текстповотополе съм задал %s% ...Благодаря
4 2022-10-25 17:32:07
Topic: dublicate form (1 replies, posted in General)
здравейте,възможно ли е една и съща форма (frmApplication) да бъде отворена едновременно (каскадно) в два различни прозореца?
5 2022-01-30 14:44:55
Re: Show Record (3 replies, posted in Russian)
много благодаря и още един въпрос:
как мога да запаметя в таблицата фаилове от компютъра,след което при двукратно кликване на запис от таблицата,да се отвори посочения файл....благодаря
6 2022-01-29 21:22:49
Topic: Show Record (3 replies, posted in Russian)
Здравейте,как да изключа опцията ShowRecord ,когато кликна два пъти върху записа в таблицата.Благодаря
7 2020-09-23 13:40:29
Topic: число кратное трём (1 replies, posted in Russian)
здравейте,моля за помощ как да съставя формулата:
procedure CalculateTotal50;
begin
if ValidFloat(frmZakaz.edZ.Text) then
begin
frmZakaz.edtotal.Text := StrToFloat(frmZak.edZ.Text) -2;
if (frmZakaz.edtotal.text) * число кратное трём =0 then frmZakaz.edtotal.visible := False;
if (frmZakaz.edtotal.text) * число кратное трём <>0 then frmZakaz.edtotal.visible := True;
end;
8 2020-09-12 18:22:46
Topic: активные окна (1 replies, posted in General)
Здравейте,когато в програмата отворя 2 или повече прозорци,мога да работя само в един /последния/.Ако искам да работя в първия,трябва да затворя последния.Как може прозорците да стават активни когато кликна върху тях и да работя в който си избера аз,без да се налага да затварям останалите?Благодаря
10 2019-02-15 19:04:37
Re: Function Hint (4 replies, posted in Script)
Благодаря derеk.вероятно има грешка в скрипта.
11 2019-02-15 15:09:11
Topic: Function Hint (4 replies, posted in Script)
здравейте,възможно ли е използване на функция hint за всеки запис в ТableGrid?
пример: когато показалеца е върху Иван, Hint подсказва,че е от Москва
когато показалеца е върху Петър, Hint подсказва,че е от Париж
Благодаря
12 2019-02-13 21:23:51
Topic: репорт (1 replies, posted in Reports)
здравейте,как може ,когато memo11,memo12,memo13,memo14 и memo15 няма текст,тогава memo10 да бъде скрито и да не се показва.Благодаря
13 2018-12-12 18:45:27
Re: моля за помощ (3 replies, posted in Script)
Благодаря,отново имам проблем
когато числото в Edit2 е по малко от 1 (например 0,2) получавам съобщение за грешка :Floating point division by zero
procedure CalculateTotal90;
begin
if ValidFloat(frmzak.Edit1.Text) and ValidFloat(frmzak.Edit2.Text) then
begin
frmZak.Edit3.Text := FloatToStr( StrToFloat(frmZak.Edit1.Text) / StrToFloat(frmZak.Edit2.Text) );
end else
begin
frmZak.Edit3.Text := '0';
end;
end;
procedure frmzak_Edit2_OnChange (Sender: string);
begin
CalculateTotal90;
end;
14 2018-12-11 23:00:02
Topic: моля за помощ (3 replies, posted in Script)
здравейте,със 2 стойности не работи
procedure frmSav_Edit2_OnChange (Sender: string);
begin
if frmSav.Edit2.Text='0,50' then frmSav.Label4.Caption :='нeподходящ';
if frmSav.Edit2.Text='1,00' then frmSav.Label4.Caption :='нeподходящ';
if frmSav.Edit2.Text<>'0,50' then frmSav.Label4.Caption :='подходящ';
if frmSav.Edit2.Text<>'1,00' then frmSav.Label4.Caption :='подходящ';
end;
15 2017-04-20 09:38:54
Re: Report Abonets (9 replies, posted in Reports)
здравейте,възможно ли е в Report целите числа да си се показват като цели (15) ,а десетичните числа да се показват с три знака след десетичната запетая (15,400).Благодаря
16 2016-10-06 16:32:14
Re: Report Abonets (9 replies, posted in Reports)
здравейте,възможно ли е изтриване на запис по следния начин:
procedure frmZakaz_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
SQLExecute('delete name from zakaz WHERE id='+IntToStr(frmzakaz.TableGrid2.dbItemID));
end;
благодаря
17 2016-05-05 12:15:33
Re: Report Abonets (9 replies, posted in Reports)
здравейте,възможно ли е :
if Form1.Edit1.Text = 'blabla' then Form1.Edit1.Visible := False;
if Form1.Edit1.Text = 'blawwwbla' then Form1.Edit1.Visible := True;
тоест ,ако част от текста в Edit1 съдържа "www" тогава Form1.Edit1.Visible := True;
Благодаря
18 2016-04-21 20:17:44
Re: Report Abonets (9 replies, posted in Reports)
здравейте,как да направя така,че когато въведа число в едно текстово поле (Form1.Edit1) ,да се промени размера на друго текстово поле (Form1.Edit2) пример: Form1.Edit2.Width := Form1.Edit1.Text;
20 2016-04-01 18:04:42
Topic: Report Abonets (9 replies, posted in Reports)
Здравейте,не мога да се справя със следния проблем:
в отчета ( Form1.Button4) искам да имам отчет на клиентите и сумата.В приложения пример сумата е коректна,но клиентите не...
За всеки месец имам по 1 клиент,а ми показва че имам ... / януари 3, февруари2, март1/
поскажете моля.Благодаря
21 2016-03-18 16:28:00
Re: print image (3 replies, posted in Reports)
Благодаря Димитрий,но аз имах предвид принтиране на избран файл ,с функция " CopyTo" na dbPhoto
22 2016-03-16 21:10:53
Topic: print image (3 replies, posted in Reports)
Здравейте,в това приложение има бутон за принтиране на всички записи.Възможно ли е да се добави нов бутон към точно това приложение който да принтира избран запис от таблицата? ...Благодаря
23 2016-03-11 20:36:34
Re: Проблема с калькулятором (23 replies, posted in Russian)
Здравейте,имам следния въпрос:
procedure frmZakaz_Button1_Click (Sender: string; var Cancel: boolean);
begin
if frmZakaz.Edit1.???????
frmZakaz.Button5.click;
end;
Въпроса ми е Button5 да бъде кликнат ако върху Edit1 е кликнато и има маркер
24 2016-01-19 21:28:29
Re: DateTimePicker (22 replies, posted in Russian)
procedure Form1_OnShow (Sender: string; var Cancel: boolean);
begin
Form1.ComboBox1.Text := 'ОПИТ';
end;
но не се получава...възможно ли е?