| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Оповещение в нижнем правом углу экрана [D7, XP]

uno-84 ©   (2008-07-08 08:52:00) 

Здравствуйте! Пожалуйста подскажите! Я поставил таймер наствоил его на 5 мин в процедуру вписал

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  UsI: Integer;
  WorkForOther: String;
  MyWork: String;
begin
    with DataModule1.IBQShared do
    begin
         SQL.Clear;
         SQL.Add('select USER_ID from USERS where USER_NAME = :USER_NAME');
         ParamByName('USER_NAME').AsString := USER_NAME_TCS;// имя пользователя вошедшего в систему
         Open;
             UsI := FieldByName('USER_ID').AsInteger;// ID пользователь в базе данных
         Close;
         SQL.Clear;
         SQL.Add('select count(*) from MESSAGE_EXT where MESSAGE_SENDER = :MESSAGE_SENDER and MESSAGE_WORK_TYPE = :MESSAGE_WORK_TYPE ' +
                 'and MESSAGE_WORK_DATE

---

uno-84   (2008-07-08 11:08:00) [1]

Помогите сделать всплывающее окошко, вместо моего пробного ShowMessage, без использования компонента CoolTrayIcon?

---

uno-84   (2008-07-08 10:56:00) [2]

У меня не идет построчная оплата))))) Я вынес код в отдельную функцию сделал

Result := True;
    with DataModule1.IBQShared do
    begin ..........
.................................................
Try
   ExecSQL;
Except
    Result := False;
end;
...................................
if Result then DataModule1.IBT.CommitRetaining
       else DataModule1.IBT.RollbackRetaining;

Таким образом, я думаю можно поступить?

---

ЮЮ   (2008-07-08 10:43:00) [3]

> и DataSet я не могу закрыть, так одновременно с моим там
> выполняется еще много запросов, построенных таким же образом


Думаешь Clear его не закрывает? Там дахе Close лишний :)

 Close;
 SQL.Clear;
 SQL.Add(<текст>);

по функционалу идентичны
 
 SQL.Text := <текст>;

Но при построчной оплате обходится работодателю в три раза дешевле :)

---

Ega23   (2008-07-08 10:38:00) [4]

> и DataSet я не могу закрыть, так одновременно с моим там
> выполняется еще много запросов, построенных таким же образом


Значит try-finally в этом конкретном случае не нужен. Но try-except - обязателен.

---

uno-84   (2008-07-08 10:32:00) [5]

У меня удаленная БазаДанных(InterBase), я дописываю приложение и в нем принцип построения запросов, такой как написан у меня, и DataSet я не могу закрыть, так одновременно с моим там выполняется еще много запросов, построенных таким же образом

---

Ega23   (2008-07-08 10:17:00) [6]

> Код работает и записи считает


Замечательно.


> try... exept я делаю после вставок или изменений записей,


try
 try
   DataSet.Open;
   i := DataSet.FieldByName.....;
   j := DataSet.FieldByName.....;
   k := DataSet.FieldByName.....;
 except
   .....
 end;
finally
 DataSet.Close;
end;


Разрыв соединения и на Open может случиться.


> Clear нужен, так как компонент запроса один


Я уже сказал, что у SQL есть свойство Text

---

medved_68   (2008-07-08 10:14:00) [7]

> Мне нужно что бы вместо ShowMessage, выскакивало окошко
> как в ISQ оповещение, в правом нижнем углу экрана, помогите
> пожалуйста! Зарание спасибо!

CoolTrayIcon = > CoolTrayIcon.ShowBallonHint.....

---

uno-84   (2008-07-08 10:09:00) [8]

Код работает и записи считает, try... exept я делаю после вставок или изменений записей, Clear нужен, так как компонент запроса один, а по ходу программы запросов выполняется очень много, вот и приходиться его очищать

---

Ega23   (2008-07-08 10:04:00) [9]

Ты для начала остальное всё оформи, как подобает. С try..except, try...finally, забудь про Clear и Add (есть SQL.Text) и т.п.

---

Наверх