107
procedure TForm5.N3Click(Sender: TObject);
begin
AdoTable1.Delete;
end;
procedure TForm5.N4Click(Sender: TObject);
begin
form5.Hide;
form1.show;
end;
end.
unit Avto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, RpCon, RpConDS,
RpBase, RpSystem, RpDefine, RpRave;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource2: TDataSource;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
RvDataSetConnection1: TRvDataSetConnection;
ADOTable2: TADOTable;
DataSource3: TDataSource;
ADOTable3: TADOTable;
108
RvProject2: TRvProject;
RvSystem2: TRvSystem;
RvDataSetConnection2: TRvDataSetConnection;
DataSource4: TDataSource;
ADOTable4: TADOTable;
RvProject3: TRvProject;
RvSystem3: TRvSystem;
RvDataSetConnection3: TRvDataSetConnection;
procedure N12Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Klient, Sotr, Kurs, Dogov;
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject);
begin
RvProject1.Execute;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
RvProject2.Execute;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
109
RvProject3.Execute;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form1.Hide;
form2.show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form1.Hide;
form3.show;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form1.Hide;
form4.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form1.Hide;
form5.show;
end;
end.