You are not logged in. Please login or register.
My Visual Database → Russian → Проблема с калькулятором
помогите,как я должен делать скриптом,чтобы иметь возможность работать второй калькулятор.
Calculate on diameter.rar 293.06 kb, 562 downloads since 2015-03-07
В скрипте должен присутствовать только один блок
begin
end.также он располагается в самом низу скрипта, все что идет после слова end. будет проигнорировано.
Также исправил некоторые другие ошибки.
Исправленный проект приложил к сообщению.
Calculate on diameter_fixed.zip 4.74 kb, 563 downloads since 2015-03-07
Большое спасибо
как сделать в калькулятор 2 получить результат который является от результатом сечение разделено на 2
пример
Диаметър- 4
изчислено сечение-12,56
резултат..6,28 /изчислено сечение делено на 2
когда пишут Диаметър, автоматически получать Сечение и Резултат
Calculate on diameter_fixed.rar 293.52 kb, 574 downloads since 2015-03-08
Готово
Calculate on diameter_fixed2.zip 5.09 kb, 559 downloads since 2015-03-08
Спасибо за быстрый ответ.У меня есть один последний вопрос.это возможно поле "Тотал" будет Изчисление от
: "Резултат умножается по 4, разделенный на 3,14 и полученото произведение будет корен квадратен
пример:
резултат-5........... 5*4 / 3,14 =6,36 корен квадратен от 6,36 =2,52
Calculate on diameter_fixed2.rar 293.75 kb, 581 downloads since 2015-03-08
Заповядайте )
Calculate on diameter_fixed3.zip 5.39 kb, 575 downloads since 2015-03-08
здравейте,
примерно: frmZakaz._Edit1_OnChange (sender: string);
if frmZakaz..Edit1.Text="януари" then frmZakaz.Edit2.Text:=frmZakaz.Edit1.Text
как да задам условие при което ако frmZakaz.Edit1.Text не е равно на " януари",тогава frmZakaz.Edit2.Text = ' '
if frmZakaz.Edit1.Text <> 'януари' then frmZakaz.Edit2.Text:='';
procedure frmZakaz_edMeseci_OnChange (sender:string);
begin
if frmZakaz.edMeseci.Text= 'януари' then frmZakaz.Edit1.Text:=frmZakaz.edMeseci.Text;
if frmZakaz.edMeseci.Text<> 'януари' then frmZakaz.Edit1.Text:='';
if frmZakaz.edMeseci.Text= 'февруари' then frmZakaz.Edit2.Text:=frmZakaz.edMeseci.Text;
if frmZakaz.edMeseci.Text <> 'Февруари' then frmZakaz.Edit2.Text:='';
end;
работи само за януари
извиняваи,моя е грешката,открих я
Здравейте,моля за съдеиствие:
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));
НЕ РАБОТИ
Къде греша?
Здравейте,моля за съдеиствие:
frmApplication.cbBrand.dbItemID := SQLExecute('SELECT brandname FROM brand WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
НЕ РАБОТИ
Къде греша?
попробуйте так:
frmApplication.cbBrand.dbItemID := Form1.TableGrid1.dbItemID;за съжаление и така не работи
nikolai_nn
Пожалуйста, приложите ваш проект и напишите, что именно не работает.
Здравей,
Избирам име от Form1.TableGrid1 ->Button12(или double click) ->frmApplication
Когато натисна frmApplication.Button18 искам да се останат същите записи в "Име(edClient)" , "Телефон(edPhone)","Вид на уреда(cbBrand)
Име и телефон направих ,но cbBrand не мога
Klienti.rar 345.48 kb, 543 downloads since 2015-07-27
Здравей,
Избирам име от 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.edPhone.Text := SQLExecute('SELECT clientphone FROM application WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
frmApplication.cbStatus.ItemIndex :=6;
frmApplication.cbBrand.dbItemID := SQLExecute('SELECT id_brand FROM application WHERE id='+IntToStr(Form1.TableGrid1.dbItemID));
frmApplication.cbBrand.DoOnChange;
end;Благодаря Дмитрий,РАБОТИ
Здравейте,ако имам едно текствово поле (Eдit1) и в него въведа текст,мога ли да разпечатам този текст директно,без да бъде запаметявано нищо в базата данни
Здравейте,ако имам едно текствово поле (Eдit1) и в него въведа текст,мога ли да разпечатам този текст директно,без да бъде запаметявано нищо в базата данни
Можно, пример:
Print from TextBox.zip 2.99 kb, 536 downloads since 2015-08-24
Здравейте,имам нужда от помощ
frmKalk --> Печат --> появяват се всичките записи
Как да направя така,че да се появяват само тези записи в които има въведен текст в Материали ( Edit1......Edit10)
Klienti.rar 348.12 kb, 529 downloads since 2015-08-27
Здравейте,имам нужда от помощ
frmKalk --> Печат --> появяват се всичките записи
Как да направя така,че да се появяват само тези записи в които има въведен текст в Материали ( Edit1......Edit10)
поправил.
Klienti_fixed.zip 73.31 kb, 515 downloads since 2015-08-28
Здравейте,имам следния въпрос:
procedure frmZakaz_Button1_Click (Sender: string; var Cancel: boolean);
begin
if frmZakaz.Edit1.???????
frmZakaz.Button5.click;
end;
Въпроса ми е Button5 да бъде кликнат ако върху Edit1 е кликнато и има маркер
nikolai_nn
приветствую,
Извиняюсь за задержку с ответом, был в отпуске.
Что такое маркер?
возможно такой пример будет полезен
procedure frmZakaz_Button1_Click (Sender: string; var Cancel: boolean);
begin
if frmZakaz.Edit1.Text <> '' then frmZakaz.Button5.click;
end;My Visual Database → Russian → Проблема с калькулятором
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi