Аналитика
http://geosystema.net/forum/

XML против Reports
http://geosystema.net/forum/viewtopic.php?f=1&t=2051
Страница 16 из 20

Автор:  mixey_dubno [ 27 дек 2013 11:16 ]
Заголовок сообщения:  Re: XML против Reports

Bondarets Alexander писал(а):
mixey_dubno писал(а):
Чи можливо підципити txt файл до форми щоб була можливість вибрати потрібний (наприклад список грунтів) щоб кожен раз не вводити, так як на прикладі з госактом, але там вибиває коли є співвласник.

Вам нужна загрузка данных из текстового файла в выпадающий список на форме? Это легко реализовать, в языке FastScript есть работа с текстовыми файлами и динамическое заполнение контролов формы. Смотрите в сторону TStringList и изучите методы контрола TCombobox.

Та це я зрозумів шо потрібно використовувати TCombobox, а вот як його правильоно прописати в кодах то непойму, можливо є якась детальна інформація як це робити?

Автор:  Bondarets Alexander [ 27 дек 2013 16:26 ]
Заголовок сообщения:  Re: XML против Reports

Для события OnShow формы запишите такой код
Код:
procedure DialogPage1OnShow(Sender: TfrxComponent);
begin
  ComboBox1.Items.LoadFromFile('c:\yourfile.txt');           
end;

Чтобы увидеть список событий кликните по форме, нажмите F11 и переключитесь на закладку События. затем выполните двойной щелчок по событию OnShow. Оно срабатывает перед выводом формы на экран.

Автор:  mixey_dubno [ 28 дек 2013 15:08 ]
Заголовок сообщения:  Re: XML против Reports

Bondarets Alexander писал(а):
Для события OnShow формы запишите такой код
Код:
procedure DialogPage1OnShow(Sender: TfrxComponent);
begin
  ComboBox1.Items.LoadFromFile('c:\yourfile.txt');           
end;

Чтобы увидеть список событий кликните по форме, нажмите F11 и переключитесь на закладку События. затем выполните двойной щелчок по событию OnShow. Оно срабатывает перед выводом формы на экран.

ДЯкую, зразу не розібрався, не получалось але помаленько перепробувавши кучу варіантів получилося!!!!!Ще раз вдячний!!!

Автор:  mixey_dubno [ 29 дек 2013 22:42 ]
Заголовок сообщения:  Re: XML против Reports

Пробую написати код для нової форми RadioButton1 та RadioButton2, мабуть я щось пропустив....
мені потрібно
якщо RadioButton1 то "набраний текст"
якщо RadioButton2 то Memo
я написав код

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text;
if RadioButton2.checked then byd:=Memo99.Lines.Text;
end;
end;
що я не так написав?

Вложения:
000.jpg
000.jpg [ 56.53 Кб | Просмотров: 13036 ]

Автор:  Bondarets Alexander [ 31 дек 2013 19:34 ]
Заголовок сообщения:  Re: XML против Reports

Похоже, все правильно. А что не работает? Проверьте чтобы radiobuttons переключались - когда включен один, второй должен выключаться и наоборот.

Автор:  mixey_dubno [ 31 дек 2013 20:33 ]
Заголовок сообщения:  Re: XML против Reports

Bondarets Alexander писал(а):
Похоже, все правильно. А что не работает? Проверьте чтобы radiobuttons переключались - когда включен один, второй должен выключаться и наоборот.

radiobuttons переключаються! я пишу на сторінці текст [dyd] і нічого не відбувається пуста строчка!
пробував написати по іншому
procedure Button1OnBeforePrint(Sender: TfrxComponent);
var
byd: string;

begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

Результат тойже самий пустота.... без вас ніяк потрібна допомога!

Автор:  Dmitry_Zolotar [ 01 янв 2014 05:46 ]
Заголовок сообщения:  Re: XML против Reports

var
byd: string; //змінна глобальна, та видима у всьому скрипті, а не тільки всередині процедури

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

Автор:  mixey_dubno [ 01 янв 2014 13:21 ]
Заголовок сообщения:  Re: XML против Reports

Dmitry_Zolotar писал(а):
var
byd: string; //змінна глобальна, та видима у всьому скрипті, а не тільки всередині процедури

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

З Новим Роком вітаю!!!!!щось воно всерівно не працює :oops:

Автор:  Dmitry_Zolotar [ 01 янв 2014 21:02 ]
Заголовок сообщения:  Re: XML против Reports

https://dl.dropboxusercontent.com/u/13187272/fr3_samples/CheckBox.fr3

Автор:  mixey_dubno [ 01 янв 2014 22:40 ]
Заголовок сообщения:  Re: XML против Reports

Dmitry_Zolotar писал(а):

Цілком згідний з вами, принцип трошки інший але вихідний результат той що треба було!!! Дякую ще раз!!!!

Автор:  mixey_dubno [ 02 янв 2014 10:39 ]
Заголовок сообщения:  Re: XML против Reports

mixey_dubno писал(а):
Dmitry_Zolotar писал(а):
var
byd: string; //змінна глобальна, та видима у всьому скрипті, а не тільки всередині процедури

procedure Button1OnBeforePrint(Sender: TfrxComponent);
begin
with Button1, Engine do
begin
if RadioButton1.checked then byd:=Edit1.text
else byd:=Memo99.Lines.Text;
end;
end;

З Новим Роком вітаю!!!!!щось воно всерівно не працює :oops:

МОє творіння теж працює тільки треба було добавити событие OnHide. і процедуру змінити на procedure DialogPage1OnHide(Sender: TfrxComponent);

Автор:  mixey_dubno [ 05 янв 2014 11:57 ]
Заголовок сообщения:  Re: XML против Reports

в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому?

Автор:  Bondarets Alexander [ 09 янв 2014 11:32 ]
Заголовок сообщения:  Re: XML против Reports

mixey_dubno писал(а):
в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому?

В Edit.Text хранится строка, чтобы выполнять математические операции надо ее сначала преобразовать в число.

// вещественное
F := StrToFloat(Edit.Text);
// или целое
I := StrToInt(Edit.Text);

И затем уже использовать числовые переменные.

Автор:  mixey_dubno [ 15 янв 2014 15:47 ]
Заголовок сообщения:  Re: XML против Reports

Bondarets Alexander писал(а):
mixey_dubno писал(а):
в новій формі створив Edit1, edit2, edit3. присвоїв значення SD21:=Edit1.text, SD22:=Edit2.text і т.д. З елементом Edit метематичні функції виконуються SDZ:=SD21+5 або SDZ:=SD22*1000. При вводі чила в едіт виконуються умови додавання та множення. Як дадати два елемента? наприклад Edit SDZ:=SD21+SD22 так умова не працює чому?

В Edit.Text хранится строка, чтобы выполнять математические операции надо ее сначала преобразовать в число.

// вещественное
F := StrToFloat(Edit.Text);
// или целое
I := StrToInt(Edit.Text);

И затем уже использовать числовые переменные.


Дякую використав AnyStrToFloat(Edit1.text) тоді запрацювало!

Автор:  Thremere [ 22 янв 2014 23:45 ]
Заголовок сообщения:  Re: XML против Reports

Доброго времени суток!
Однажды видел на форуме описание процедуры, позволявшей использовать несколько диалоговых форм и переходить на предыдущую. Теперь, сколько ни искал, не могу найти. Подскажите, в каком направлении копать?

Страница 16 из 20 Часовой пояс: UTC + 2 часа
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/