You are not logged in. Please login or register.
My Visual Database → Posts by nikolai_nn
Здравейте,
procedure frmApplication_OnShow (Sender: string; Action: string);
var
Y, M, D: Word;
begin
if Action='NewRecord' then
begin
DecodeDate(Now, Y, M, D);
frmApplication.DateTimePicker2.Date := EncodeDate(Y, M, D + 15);
end;
end;
Когато до края на месеца остават наи малко 15 дни ..работи...,Когато дните до края на месеца са по малко от 15 съобщава "Invalid argument to date encode", къде греш?
Здравеите,възможно ли е записите в frmApplication.TableGrid1 = Form1.TableGrid1 .Благодаря
Здравейте,имам нужда от помощ
frmKalk --> Печат --> появяват се всичките записи
Как да направя така,че да се появяват само тези записи в които има въведен текст в Материали ( Edit1......Edit10)
Здравейте,ако имам едно текствово поле (Eдit1) и в него въведа текст,мога ли да разпечатам този текст директно,без да бъде запаметявано нищо в базата данни
Благодаря Дмитрий,РАБОТИ
Здравей,
Избирам име от Form1.TableGrid1 ->Button12(или double click) ->frmApplication
Когато натисна frmApplication.Button18 искам да се останат същите записи в "Име(edClient)" , "Телефон(edPhone)","Вид на уреда(cbBrand)
Име и телефон направих ,но cbBrand не мога
за съжаление и така не работи
Здравейте,моля за съдеиствие:
procedure frmApplication_Button18_OnAfterClick (Sender: string; var Cancel: boolean);
begin
frmApplication.edClient.Text := SQLExecute('SELECT clientname FROM application WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
РАБОТИ
frmApplication.cbBrand.dbItemID := SQLExecute('SELECT brandname FROM brand WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
НЕ РАБОТИ
Къде греша?
Здравейте, помогнете за репорта
искам в един отчет да използвам 2 таблици
пример:
select
application.id,
application.name
FROM application
select
zakaz.id,
zakaz.name
FROM zakaz
когато напиша втората част и ми съобщава грешка
Здравейте,подскажете ми моля,какво трябва да направя.Когато Form1 >Справки>Данни от електромери за всички месеци>отчет.
В отчета как могада подредя месеците ..януари,февруари,март....... защото сега разместени.Благодаря
Здравей Дмитрий,не мога да се справя с нещо много елементарно.
procedure Form1_cbStatus_OnChange (Sender: string);
begin
if Form1.cbStatus.dbItemID = 1 then
Form1.Button4.Click; // если выбран нужный пункт
end;
бутон 4 сработва само при ID= -1 ,в друг случай...не
тук въвеждам цифрите които в "edCost" не са цели числа . Изчисленията се извършват,само ако са със десетична запетаика,а не със десетична точка
procedure CalculateTotal;
begin
if ValidFloat(frmZakaz.edCost.Text) and ValidFloat(frmZakaz.edQ.Text) then // check the correctness of the values
begin
frmZakaz.edTotal.Text := FloatToStr( StrToFloat(frmZakaz.edCost.Text) * StrToFloat(frmZakaz.edQ.Text) ); // calculate
end else
begin
frmZakaz.edTotal.Text := '0';
end;
end;
procedure frmZakaz_edQ_OnChange (Sender: string);
begin
CalculateTotal;
end;
procedure frmZakaz_edCost_OnChange (Sender: string);
begin
CalculateTotal;
end;
здравейте,аз не зададох правилно въпроса. при изчисление например 2х2,5 програмат извършва изчислението,а когато напиша 2х2.5 не се извършва изчисление,защото е със точка. И втория ми въпрос е
пример:
if Form1.TableGrid1.dbItemID = -1 then
begin
ShowMessage('Избери касиер от таблицата');
Cancel := True
как да увелича големината на шрифта на съобщението
Здравейте,имам 2 въпроса
1.когато не е маркиран запис и натисна бутон "Edit" ,може ли съобщението "unable to determine the record ID" да бъде заменено със друг текст?
2.когато въвеждам данни и цени за различни операции може ли да няма значение дали десетичния знак ще е "," или "."
Благодаря
Здравей,как мога когато избера определн запис в таблицата,ако е с определно име (например: Name Trafopost) да се задеиства определен бутон( например Show Record)
Здравей. then Form1.TableGrid1.Cell[0,i].Color := clAqua; оцветява едно поле 0,а ако искам 0,1 и 2?
благодаря Дмитрий,но по този начин имената остават за винаги оцветени,има ли начин, (ComboBox_On Cange или ButtonX.Click) при което маркираните записи да се размаркират
благодаря,когато редакттирам запис искам в Form1. TableGrid 1 ,след редакцията записа да бъде оцветен,за да знам на кои хора съм редактирал данните
здравейте,възможно ли е когато редактирам запис в таблицата,след редакцията ,да бъде маркиран (оцветен)
здравейте,отново имам проблем. Възможно ли е когато избера нов месец (Form1.ComboBox2) за които нямам въведени данни (например Април) и натисна бутона за търсене "Буттон3" ,да не се изчиства таблицата,а да останат всички данни но с нулеви стоиности (месец,киловати,старо,ново и т.н.)
здравейте,не мога да се справя със следния проблем:
след като кликна на бутон "Search" след това по какъв начин,може да се върне таблицата както е била преди натискането на този бутон?
здравей,за съжаление в отчета не се показват записите за посочената година
ето целия скрипт
SELECT
zakaz.id,
zakaz.dnevna1,
zakaz.cost,
zakaz.total,
zakaz.quantity,
zakaz.godina,
application.clientphone,
zakaz.dnevna2,
zakaz.obshto,
zakaz.vsichko,
zakaz.priceabonati,
strftime('%d.%m.%Y',zakaz.date1) as date1,
strftime('%d.%m.%Y',zakaz.date2) as date2,
zakaz.meseci,
strftime('%d.%m.%Y',zakaz.date3) as date3,
application.id,
application.klon,
application.clientname,
application.abonati,
application.dnevna1
strftime('%Y',{dtFrom}) as date, ???????????
FROM application
LEFT OUTER JOIN zakaz ON zakaz.id_application = application.id
WHERE
zakaz.meseci="Януари" AND zakaz.godina = strftime ('%Y',{dtFrom}) ????????????
My Visual Database → Posts by nikolai_nn
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi