/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 988
от 24.11.2007, 22:05

Вопрос № 110.117

Здравствуйте. Я хочу из Delphi экспортировать некоторые данные, которые храняться в базе данных, в существующий документ Word. Мне просто в определенные строки документа нужно вставлять определенное значение из базы данных. Подскажите как мне это сделать(желательно с примером кода). Заранее благодарен.

Отправлен: 19.11.2007, 11:43 Вопрос задал: Orz (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Архангельский Андрей Германович Здравствуйте, Orz! Для этого лучше всего использовать компонент EkRTF. Он берет за основу шаблон в формате rtf, в котором вместо значений программист записывает переменные. После чего из базы данных в эти переменные записываются значения. Это удобно, так как конечный пользователь может в любой момент изменить шаблон с помощью Word. В компоненте хороший хелп и набор примеров. --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 19.11.2007, 12:02 Оценка за ответ: 5 Комментарий оценки: Спасибо за отличную идею

Отвечает: Degtyarev Anton Здравствуйте, Orz! Вам потребуется шаблон вашего документа с определёнными метками в тексте где вы захотите вставлять данные нпример #ИНН# а также исходный фаил домустим txt который будет содержать значения подставляемые в шаюлон приблизительный код выглядит вот так фаил формируется следующим образом var List :Tlist; begin List.Add('ИНН =' + 'Получить значение ИНН из базы'; aList.SaveToFile(Path + aFileName + '.txt'); end; этот пример будет работать только если у вас в одной строке одна замена иначе нужно переписывать подстановку которая в приложении. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; ListBox2: TListBox; ListBox3: TListBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetValue(const str: string): string; var P : integer; begin P := pos('=', str); Result := copy(str, p + 1, length(str)); end; function GetParam(const str, param: string): string; var P : integer; begin P := pos('=', str); if Copy(str,1,p-1)= param then Result := copy(str, p + 1, length(str)) else Result := ''; end; function GetName(const str: string): string; var P : integer; begin P := pos('=', str); Result := copy(str, 1, p - 1); end; function RepitValue(Shb,dest : TListBox; const str: string): TListBox; var j : integer; t : string; st : array of string; Begin for J := 0 to Shb.Items.count -1 do begin setLength(st,j+1); t :=GetParam(Shb.Items[j], str); if t = '' then else Dest.Items.Add(T); end; End; procedure TForm1.Button1Click(Sender: TObject); Var s : string; i, j, g : integer; // текст шаблона begin ListBox1.Items.LoadFromFile('Путь до шаблонаимя шаблона с расширением'); ListBox2.Items.LoadFromFile('Путь до данных из БДимя файла с расширением'); for I := 0 to ListBox1.Items.Count - 1 do begin S := ListBox1.Items[I]; if S <> '' then begin S := ListBox1.Items[I]; For J := 0 to ListBox2.Items.Count - 1 do begin g := pos ('#', S); if g<>0 then begin S := StringReplace(S, GetName(ListBox2.Items[J]), GetValue(ListBox2.Items[J]), [rfReplaceAll, rfIgnoreCase]); end; ListBox3.Items.Add(S); end; end; end; end. --------- Сколько волка не корми, а слон всё равно толще

Ответ отправил: Degtyarev Anton (статус: 2-ой класс) Ответ отправлен: 19.11.2007, 12:11 Оценка за ответ: 4 Комментарий оценки: Это мне не подходит, тк данные я буду заносиьт из БД

Отвечает: Mishell Здравствуйте, Orz! можно экспорптировать данные через OLE или с пом. компонента TWordApplication (есть в Д7, наверно и в др. версиях) - кому как нравится. вот тут есть примеры: http://delphiworld.narod.ru/base/sg_to_msword.html http://delphiworld.narod.ru/base/export_to_word.html http://delphiworld.narod.ru/base/delphi_and_word_ole_automation.html ...

Ответ отправил: Mishell (статус: 7-ой класс) Ответ отправлен: 19.11.2007, 12:13 Оценка за ответ: 5 Комментарий оценки: Спасибо за инфу

Вопрос № 110.135

Здравствуйте! Подскажите, пожалуйста, как мне перехватить для обработки событие нажатия на "крестик" в верхнем правом углу формы? При нажатии на него программа закрывается некорректно. Или хотя бы сделать его недоступным пользователю. Спасибо.

Отправлен: 19.11.2007, 13:19 Вопрос задала: Kalina (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler Здравствуйте, Kalina! Событие перед закрытием формы - OnCloseQuery: procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=False; end;

Ответ отправил: Coupler (статус: Практикант) Ответ отправлен: 19.11.2007, 13:30

Отвечает: Vas177 Здравствуйте, Kalina! Сделать недоступной кнопку закрыть можно так, как указано в приложении Приложение: procedure TForm1.FormCreate(Sender: TObject); var SysMenu: HMenu; begin SysMenu := GetSystemMenu(Handle, False); Windows.EnableMenuItem(SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED); end;

Ответ отправил: Vas177 (статус: 2-ой класс) Ответ отправлен: 19.11.2007, 13:33

Отвечает: Delph Здравствуйте, Kalina! Есть ещё одно событие перед закрытием программы - OnClose. По нему формируется обработчик: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin // Ваши действия Action := caNone; //ещё варианты: caHide, caFree, caMinimize. end; В моей практике пригождались caNone (проигнорировать нажатие крестика) и caFree (всё-таки закрыть форму, а в случае главной формы - и программу). --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 19.11.2007, 13:41

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Kalina! За кнопки наверху формы (в строке заголовка) отвечает свойство BorderIcons. Поставьте напротив biSystemMenu значение False

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 7-ой класс) Ответ отправлен: 19.11.2007, 13:57

Отвечает: Стома С.С. Здравствуйте, Kalina! чтобы не дать пользователю закрыть окно достаточно обработать событие FormClose переменной Action присваиваем caNone и форма не закроется Action:= caNone; но введите глобальное условие при котором вы можете правильно закрыть программу т.е Action:= caFree; в этом обработчике кстати можете поместить код который правильно бы выгружал форму ниже код запрещающий кнопку закрытия приложения Приложение: var hMenuHandle : HMENU; begin hMenuHandle := GetSystemMenu(Form1.Handle, FALSE); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;

Ответ отправил: Стома С.С. (статус: 2-ой класс) Ответ отправлен: 20.11.2007, 18:08

Вопрос № 110.149

Здравствуйте! Помогите, пожалуйста, сделать более удобный для пользователя интерфейс. Необходимо, чтобы переход курсора по окошкам Edit на форме осуществлялся с помощью клавиши Enter. Как Это реализовать? Спасибо.

Отправлен: 19.11.2007, 14:18 Вопрос задала: Kalina (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Vas177 Здравствуйте, Kalina! Самый простой способ: У компонента TEdit создаём обработчик события OnKeyDown с указанным в приложении содержимым. В моём примере нажав Enter (VK_RETURN) в поле Edit1 фокус переходит в поле Edit2 Приложение: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Edit2.SetFocus; end;

Ответ отправил: Vas177 (статус: 2-ой класс) Ответ отправлен: 19.11.2007, 14:26 Оценка за ответ: 5 Комментарий оценки: спасибо, так я, пожалуй, и сделаю :)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, Kalina! Создаеш собственный обработчик сообщений, и при нажатии Enter переделываеш сообщение в Tab. Ниже пример реализации: procedure TForm1.FormCreate(sender: TObject); begin Application.OnMessage := CustomMessageHandler; end; procedure TForm1.CustomMessageHandler(var Msg: TMsg; var Handled: Boolean); begin with Msg do if message = WM_KEYDOWN then if wParam = VK_RETURN then wParam := VK_TAB; end;

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 9-ый класс) Ответ отправлен: 19.11.2007, 14:32

Отвечает: Зиновьев Дмитрий Владимирович Здравствуйте, Kalina! Напишите обработчик события OnKeyDown для каждого Edit'a следующим образом: if Key = VK_RETURN then //Если нажали Enter Edit2.SetFocus; // Фокус переходит на Edit2

Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 7-ой класс) Ответ отправлен: 19.11.2007, 14:32

Отвечает: Mishell Здравствуйте, Kalina! можно посылать сообщение WM_NEXTDLGCTL диалоговому окну для того чтоб перевести фокус ввода следующему элементу управления (из списка Tab Order) SendMessage(Handle, WM_NEXTDLGCTL, 0, 0 ); т.е. следить за нажатием VK_RETURN на форме и при этом отправлять вышеуказанную команду

Ответ отправил: Mishell (статус: 7-ой класс) Ответ отправлен: 19.11.2007, 14:57

Отвечает: Genia007 Здравствуйте, Kalina! Предлагаю свой код, который я уже использовал не раз. Приложение: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then Edit2.SetFocus ; // клавиша <Enter> end; и так далее в каждом компоненте

Ответ отправил: Genia007 (статус: 1-ый класс) Ответ отправлен: 19.11.2007, 17:01

Отвечает: Стома С.С. Здравствуйте, Kalina! отслеживаем нажатие клавиши Enter после чего делаем такую обработку TEdit(FindComponent('Edit' + IntToStr(i))).SetFocus; переменную i сделайте глобальной и при перемещении ее по компонентам постоянно увеличивайте в инспекторе объектов установите общий обработчик нажатия клавиши я сделал для первого эдита Приложение: var Form1: TForm1; i: Integer = 1; implementation ......... procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key <> 13 then Exit; Inc(i); if i > 5 then i:= 1; TEdit(FindComponent('Edit' + IntToStr(i))).SetFocus; end;

Ответ отправил: Стома С.С. (статус: 2-ой класс) Ответ отправлен: 20.11.2007, 17:55

Вопрос № 110.181

Подробней будет так, создал dll Paradox7 в ней данные сотрудников, а именно их дни рождения, вот как бы мне сделать, так, чтобы по истечению любой из дат программка бы оповещала меня об этом

Отправлен: 19.11.2007, 16:36 Вопрос задал: Sefiros (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Mishell Здравствуйте, Sefiros! см. приложение - это пример - Вам придется слегка модифицировать код под свою программу даже скорее всего Вам надо будет сделать все посвоему, просто для определения, что дата наступила надо проверить что дата сотрудника меньше Now (текущие дата и время) + к этому надо как-то запомнить, что проверка была произведена или другой вариант - можно проверять не входит ли Now в интервал времени - например дата сотрудника ±1минута, но тогда программа может не "поймать" заданное время Приложение: procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled:=false; // останавливаем таймер try // тут надо организовать выборку значений дат // из вашей базы или dll DataSet1.Open; // DataSet1 - условный датасет // это может быть и TQuery, и TTable, и TADOQuery ... // в зависимости от того чем Вы пользуетесь // для выборки данных while not DataSet1.Eof do begin if DataSet1.FieldByName('<название поля>').AsDateTime>Now then // проверяем дату // соотв. <название поля> - это поле где хранится дата begin ShowMessage('Событие произошло!'); // здесь можно выполнить необходимые действия end; DataSet1.Next; end; DataSet1.Close; except Timer1.Enabled:=true; // снова запускаем таймер end; end;

Ответ отправил: Mishell (статус: 7-ой класс) Ответ отправлен: 19.11.2007, 17:14 Оценка за ответ: 5

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.64 от 24.11.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru