Label86: TLabel;
Label87: TLabel;
Panel8: TPanel;
Label88: TLabel;
Label90: TLabel;
Panel6: TPanel;
Label89: TLabel;
DBEdit64: TDBEdit;
Label91: TLabel;
DBEdit65: TDBEdit;
Label92: TLabel;
DBEdit66: TDBEdit;
Label93: TLabel;
DBEdit67: TDBEdit;
Label94: TLabel;
DBEdit68: TDBEdit;
Label95: TLabel;
DBEdit69: TDBEdit;
Label96: TLabel;
DBEdit70: TDBEdit;
Label97: TLabel;
Label98: TLabel;
Label99: TLabel;
Label100: TLabel;
Label101: TLabel;
DBEdit71: TDBEdit;
Label102: TLabel;
DBEdit72: TDBEdit;
Label103: TLabel;
DBEdit73: TDBEdit;
Label104: TLabel;
Label105: TLabel;
DBEdit74: TDBEdit;
Label106: TLabel;
DBEdit75: TDBEdit;
Label107: TLabel;
DBEdit76: TDBEdit;
Label108: TLabel;
DBEdit77: TDBEdit;
Label109: TLabel;
DBEdit78: TDBEdit;
Label110: TLabel;
Label111: TLabel;
Label112: TLabel;
DBEdit79: TDBEdit;
Label114: TLabel;
DBEdit81: TDBEdit;
Label115: TLabel;
RvTableConnection1: TRvTableConnection;
RvProject1: TRvProject;
RvTableConnection2: TRvTableConnection;
RvProject2: TRvProject;
RvTableConnection3: TRvTableConnection;
RvProject3: TRvProject;
N7: TMenuItem;
N8: TMenuItem;
procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label32MouseLeave(Sender: TObject);
procedure Label32Click(Sender: TObject);
procedure Label36Click(Sender: TObject);
procedure Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label49Click(Sender: TObject);
procedure Label56Click(Sender: TObject);
procedure Label49MouseLeave(Sender: TObject);
procedure Label57Click(Sender: TObject);
procedure Label58Click(Sender: TObject);
procedure Label59Click(Sender: TObject);
procedure Label60Click(Sender: TObject);
procedure Label61Click(Sender: TObject);
procedure Label62Click(Sender: TObject);
procedure Label88Click(Sender: TObject);
procedure Label99Click(Sender: TObject);
procedure Label100Click(Sender: TObject);
procedure Label90Click(Sender: TObject);
procedure Label57MouseLeave(Sender: TObject);
procedure Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label58MouseLeave(Sender: TObject);
procedure Label59MouseLeave(Sender: TObject);
procedure Label88MouseLeave(Sender: TObject);
procedure Label100MouseLeave(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3;
{$R *. dfm}
procedure TForm2. N2Click(Sender: TObject);
begin
form1. Close;
end;
procedure TForm2. FormCreate(Sender: TObject);
var s: string;
begin
Table1. Active: =true;
Label36. Cursor: =crHandPoint;
Label32. Cursor: =crHandPoint;
Label49. Cursor: =crHandPoint;
Label56. Cursor: =crHandPoint;
Label57. Cursor: =crHandPoint;
Label58. Cursor: =crHandPoint;
Label59. Cursor: =crHandPoint;
Label60. Cursor: =crHandPoint;
Label61. Cursor: =crHandPoint;
Label62. Cursor: =crHandPoint;
Label88. Cursor: =crHandPoint;
Label90. Cursor: =crHandPoint;
Label99. Cursor: =crHandPoint;
Label100. Cursor: =crHandPoint;
end;
procedure TForm2. Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label32. Font. Color: =clBlue;
end;
procedure TForm2. Label32MouseLeave(Sender: TObject);
begin
Label32. Font. Color: =clBlack;
end;
procedure TForm2. Label32Click(Sender: TObject);
begin
Panel1. Visible: =true;
Label32. Visible: =false;
end;
procedure TForm2. Label36Click(Sender: TObject);
begin
Panel1. Visible: =false;
Label32. Visible: =true;
end;
procedure TForm2. Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label49. Font. Color: =clBlue;
end;
procedure TForm2. Label49Click(Sender: TObject);
begin
Panel2. Visible: =true;
Label49. Visible: =false;
end;
procedure TForm2. Label56Click(Sender: TObject);
begin
Panel2. Visible: =false;
Label49. Visible: =true;
end;
procedure TForm2. Label49MouseLeave(Sender: TObject);
begin
Label49. Font. Color: =clBlack;
end;
procedure TForm2. Label57Click(Sender: TObject);
begin
Panel3. Visible: =true;
Label57. Visible: =false;
end;
procedure TForm2. Label58Click(Sender: TObject);
begin
Panel4. Visible: =true;
Label58. Visible: =false;
end;
procedure TForm2. Label59Click(Sender: TObject);
begin
Panel5. Visible: =true;
Label59. Visible: =false;
end;
procedure TForm2. Label60Click(Sender: TObject);
begin
Panel3. Visible: =false;
Label57. Visible: =true;
end;
procedure TForm2. Label61Click(Sender: TObject);
begin
Panel4. Visible: =false;
Label58. Visible: =true;
end;
procedure TForm2. Label62Click(Sender: TObject);
begin
Panel5. Visible: =false;
Label59. Visible: =true;
end;
procedure TForm2. Label88Click(Sender: TObject);
begin
label88. Visible: =false;
Panel6. Visible: =true;
end;
procedure TForm2. Label99Click(Sender: TObject);
begin
label88. Visible: =true;
Panel6. Visible: =false;
end;
procedure TForm2. Label100Click(Sender: TObject);
begin
Label100. Visible: =false;
Panel8. Visible: =true;
end;
procedure TForm2. Label90Click(Sender: TObject);
begin
Label100. Visible: =true;
Panel8. Visible: =false;
end;
procedure TForm2. Label57MouseLeave(Sender: TObject);
begin
Label57. Font. Color: =clBlack;
end;
procedure TForm2. Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label57. Font. Color: =clBlue;
end;
procedure TForm2. Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label58. Font. Color: =clBlue;
end;
procedure TForm2. Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label59. Font. Color: =clBlue;
end;
procedure TForm2. Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label88. Font. Color: =clBlue;
end;
procedure TForm2. Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label100. Font. Color: =clBlue;
end;
procedure TForm2. Label58MouseLeave(Sender: TObject);
begin
Label58. Font. Color: =clBlack;
end;
procedure TForm2. Label59MouseLeave(Sender: TObject);
begin
Label59. Font. Color: =clBlack;
end;
procedure TForm2. Label88MouseLeave(Sender: TObject);
begin
Label88. Font. Color: =clBlack;
end;
procedure TForm2. Label100MouseLeave(Sender: TObject);
begin
Label100. Font. Color: =clBlack;
end;
procedure TForm2. N6Click(Sender: TObject);
begin
RvProject1. Execute;
end;
procedure TForm2. N4Click(Sender: TObject);
begin
Form3: =TForm3. Create(Self);
try
Form3. ShowModal;
finally
Form3. Free;
end;
end;
procedure TForm2. N7Click(Sender: TObject);
begin
RvProject2. Execute;
end;
procedure TForm2. N8Click(Sender: TObject);
begin
RvProject3. Execute;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellApi, jpeg, OleCtrls, SHDocVw, XPMan, Buttons;
type
TForm3 = class(TForm)
Panel1: TPanel;
Image1: TImage;
Label3: TLabel;
Label6: TLabel;
XPManifest1: TXPManifest;
Label7: TLabel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Label6Click(Sender: TObject);
procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label6MouseLeave(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *. dfm}
procedure TForm3. FormCreate(Sender: TObject);
begin
Image1. Picture. LoadFromFile('Мы 0085959595. jpg');
end;
Procedure AutoSendMail;
Var
EMailDestinationString,SubjectString,Line1String,Line2String,mailstring: String;
begin
EMailDestinationString: ='aleks_bugaev@mail. ru';
SubjectString: ='Message Subject';
Line1String: ='This is the first line';
Line2String: ='This is the second line';
// Можно использовать несколько адресов, разделяя их точкой с запятой //
mailstring: ='mailto: ' + EMailDestinationString +
'? subject=' + SubjectString +
'&body='+ Line1String +
'%0d' + Line2String;
if (ShellExecute(0,'open',PChar(mailstring),'','',SW_SHOWNORMAL) <=32) then
ShowMessage('Auto method failed. ');
end;
procedure TForm3. Label6Click(Sender: TObject);
begin
AutoSendMail;
end;
procedure TForm3. Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label6. Font. Color: =clBlue;
Label7. Font. Color: =clBlue;
end;
procedure TForm3. Label6MouseLeave(Sender: TObject);
begin
Label6. Font. Color: =clBlack;
Label7. Font. Color: =clBlack;
end;
end.