Оповещение в нижнем правом углу экрана

← →
uno-84 (2008-07-08 08:52) [0]

Здравствуйте! Пожалуйста подскажите! Я поставил таймер наствоил его на 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 <= :MESSAGE_WORK_DATE and MESSAGE_WORK_END = :MESSAGE_WORK_END");
ParamByName("MESSAGE_SENDER").AsInteger := UsI;
ParamByName("MESSAGE_WORK_TYPE").AsString := "T";
ParamByName("MESSAGE_WORK_DATE").AsDateTime := Now;
ParamByName("MESSAGE_WORK_END").AsString := "F";
Open;
WorkForOther := FieldByName("count").AsString;//количество заданий отправленных пользователем
Close;
SQL.Clear;
SQL.Add("select count(*) from MESSAGE_EXT where MESSAGE_RECIPIENTS_NAMES = :MESSAGE_RECIPIENTS_NAMES and MESSAGE_WORK_DATE <= :MESSAGE_WORK_DATE " +
"and MESSAGE_WORK_TYPE = :MESSAGE_WORK_TYPE and MESSAGE_WORK_END = :MESSAGE_WORK_END");
ParamByName("MESSAGE_RECIPIENTS_NAMES").AsString := USER_NAME_TCS;
ParamByName("MESSAGE_WORK_DATE").AsDateTime := Now;
ParamByName("MESSAGE_WORK_TYPE").AsString := "T";
ParamByName("MESSAGE_WORK_END").AsString := "F";
Open;
MyWork := FieldByName("count").AsString;//количество заданий полеченных пользователем
Close;
end;
ShowMessage("Â âàøåì ïî÷òîâîì ÿùèêå " + "" + #13 + "" + WorkForOther + " " + "çàäàíèé îòïðàâëåííûõ âàìè" + "" + #13 + "" + MyWork + " " + "Ïîëó÷àííûõ âàìè" + "" + #13 + "" + "ÑÐÎÊ ÇÀÄÀÍÈÉ ÈÑÒÅÊ!!!");

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

← →
Ega23 © (2008-07-08 10:04) [1]

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

← →
uno-84 (2008-07-08 10:09) [2]

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

← →
medved_68 © (2008-07-08 10:14) [3]

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

CoolTrayIcon = > CoolTrayIcon.ShowBallonHint.....

← →
Ega23 © (2008-07-08 10:17) [4]

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

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

> 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

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

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

← →
Ega23 © (2008-07-08 10:38) [6]

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

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

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

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

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

по функционалу идентичны

SQL.Text := <текст>;

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

← →
uno-84 (2008-07-08 10:56) [8]

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

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

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

← →
uno-84 (2008-07-08 11:08) [9]

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

Оповещение в нижнем правом углу экрана Найти похожие ветки