end.
Unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit2, StdCtrls, RpRave, RpDefine, RpCon, RpConDS, Grids, DBGrids;
type
TForm8 = class(TForm)
DBGrid1: TDBGrid;
RvDataSetConnection1: TRvDataSetConnection;
RvProject1: TRvProject;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
begin
RvProject1.Execute;
end;
end.
Unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit2, StdCtrls, RpCon, RpConDS, RpDefine, RpRave, Grids,
DBGrids;
type
TForm9 = class(TForm)
DBGrid1: TDBGrid;
RvProject1: TRvProject;
RvDataSetConnection2: TRvDataSetConnection;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
RvProject1.Execute;
end;
end.
Unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm10 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses Unit2, Unit9;
{$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject);
begin
DataModule2.Query3.ParamByName('klass').AsString:=Edit1.Text;
DataModule2.Query3.Active:=true;
form10.Visible:=false;
form9.show;
end;
end.
Unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm11 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Image1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
{$R *.dfm}
end.
Unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm12 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
{$R *.dfm}
end.
Қосымша Ә
Қорытынды
Бұл жұмыста 3 кесте құрылады, олар passajiry, reisy, Obsluzh-personal. Осы үш кестені байланыстырамыз: мұнда басты кесте reisy кестесі. Байланыстар reisy кестесіндегі Kod_reysa өрісін passajiry кестесіндегі Kod_reysa өрісімен байланыстырамыз, ал екінші байланыс Obsluzh_personal кестесіндегі Kod_reysa өрісін кестесіндегі Kod_reysa өрісімен байланыстырдым.
Бұл жұмыста мен үш байланысқан кесте бойынша маліметтерді шығардым. екі кесте арқылы авиабилетті шығардым. Ал маршурутты шығару үшін бірінші кестедегі мәліметтерді алып шығардым.
Осы жұмыстар бойынша қорытындылайтын болсам Delphi тілі арқылы қолданушыларға қарапайым интерфейсті база бағдарлама құруға болады.