Разработка программной системы «Автоматизированная записная книжка», страница 17

MonthCalendar1.Visible:=false;

end;

procedure TForm5.FormActivate(Sender: TObject);

var s,t,ss,oo,tt: string;

var i:integer;

begin

Form5.Left:=290;

Form5.Top:=150;

DataModule1.ADOQuery5.Active:=true;

begin

s:=DateToStr(Date);

t:=TimeToStr(Time);

MaskEdit2.Text:=s+'   '+t;

MaskEdit2.Refresh;

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('select distinct Zapis from Organajzer');

DataModule1.ADOQuery5.Open;

DataModule1.ADOQuery5.First;

ComboBox1.Clear;

while not DataModule1.ADOQuery5.Eof do

begin

ComboBox1.Items.Add(DataModule1.ADOQuery5.Fields[0].AsString);

DataModule1.ADOQuery5.Next;

end;

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('select data, Zapis, vremia from Organajzer where data='''+s+''' ');

DataModule1.ADOQuery5.Open;

DataModule1.ADOQuery5.First;

while not DataModule1.ADOQuery5.Eof do

begin

ss:=DataModule1.ADOQuery5.Fields[0].AsString;

oo:=DataModule1.ADOQuery5.Fields[1].AsString;

tt:=DataModule1.ADOQuery5.Fields[2].AsString;

if ss=s then

begin

MessageDlg( 'напоминание       '+oo+ '      в       '+tt+'   '+ss,mtInformation,[mbOK],0);

{Application.MessageBox('','Yfgjvbyfybt'); }

{ShowMessage( 'напоминание' + '      '+oo);}

end;

DataModule1.ADOQuery5.Next;

end;

DataModule1.ADOQuery5.Close;

end;

end;

procedure TForm5.BitBtn5Click(Sender: TObject);

begin

Label4.Visible:=false;

Edit2.Visible:=false;

BitBtn12.Visible:=false;

BitBtn15.Visible:=false;

BitBtn16.Visible:=false;

GradientRect (clBlue, clBlack, Canvas);

Form5.Refresh;

Label1.Visible:=true;

Label2.Visible:=true;

ComboBox1.Visible:=true;

Label3.Visible:=true;

MaskEdit1.Visible:=true;

MaskEdit3.Visible:=true;

BitBtn6.Visible:=true;

BitBtn10.Visible:=true;

DataModule1.ADOQuery5.Close;

DataModule1.ADOQuery5.SQL.Clear;

DataModule1.ADOQuery5.SQL.Add('select distinct Zapis from Organajzer');

DataModule1.ADOQuery5.Open;

DataModule1.ADOQuery5.First;

ComboBox1.Clear;

while not DataModule1.ADOQuery5.Eof do

begin

ComboBox1.Items.Add(DataModule1.ADOQuery5.Fields[0].AsString);

DataModule1.ADOQuery5.Next;

end;

end;

procedure TForm5.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

begin

GradientRect (clBlue, clBlack, Canvas);

end;

procedure TForm5.FormMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

var s,t: string;

begin

s:=DateToStr(Date);

t:=TimeToStr(Time);

MaskEdit2.Text:=s+'   '+t;

MaskEdit2.Refresh;

end;

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);

var s,t: string;

begin

s:=DateToStr(Date);

t:=TimeToStr(Time);

MaskEdit2.Text:=s+'   '+t;

MaskEdit2.Refresh;

end;

procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

holdColor: TColor;

begin

holdColor := DBGrid1.Color;

if Column.FieldName = 'ID_zapisi' then

begin

DBGrid1.Canvas.Brush.Color := $00C08080;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

DBGrid1.Canvas.Brush.Color := holdColor;

end;

if Column.FieldName = 'data' then

begin

DBGrid1.Canvas.Brush.Color := $00C08080;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

DBGrid1.Canvas.Brush.Color := holdColor;

end;

end;

procedure TForm5.BitBtn9Click(Sender: TObject);

begin

MonthCalendar1.Visible:=true;

Edit1.Clear;

Edit1.Visible:=true;

end;

procedure TForm5.BitBtn10Click(Sender: TObject);

begin

Label1.Visible:=false;

Label2.Visible:=false;

Label3.Visible:=false;

MaskEdit1.Visible:=false;

MaskEdit3.Visible:=false;

Edit2.Visible:=false;

Edit3.Visible:=false;

BitBtn6.Visible:=false;

ComboBox1.Visible:=false;

MaskEdit1.Clear;

MaskEdit3.Clear;

ComboBox1.Clear;

BitBtn10.Visible:=false;

BitBtn13.Visible:=false;