Geum.ru

Разработка базы данных

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование


{$R *.dfm}

procedure TZ2.SpeedButton2Click(Sender: TObject);
begin
with dm do begin
Zapr2.Active:=false;
if ch1.Checked then zapr2.ParamByName('pvch').Value:='%'+edit1.Text+'%'
else zapr2.ParamByName('pvch').Value:='%%';
if ch2.Checked then zapr2.ParamByName('pserno').Value:='%'+edit2.Text+'%'
else zapr2.ParamByName('pserno').Value:='%%';
if ch3.Checked then zapr2.ParamByName('pmodel').Value:='%'+edit3.Text+'%'
else zapr2.ParamByName('pmodel').Value:='%%';
Zapr2.Active:=true;
label2.Caption:=inttostr(zapr2.RecordCount);
end;
end;

procedure TZ2.Ch1Click(Sender: TObject);
begin
edit1.Enabled:=ch1.Checked;
end;

procedure TZ2.Ch2Click(Sender: TObject);
begin
edit2.Enabled:=ch2.Checked;
end;

procedure TZ2.Ch3Click(Sender: TObject);
begin
edit3.Enabled:=ch3.Checked;
end;

procedure TZ2.SpeedButton1Click(Sender: TObject);
begin
dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr1.FieldByName('kod5').Value]),[]);
ShowWindow(formvvod2.Handle, SW_SHOW);
formvvod2.Show;
end;

procedure TZ2.DBGrid1DblClick(Sender: TObject);
begin
speedbutton1.Click;
end;

procedure TZ2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.Zapr2.Active:=false;
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;

end.

unit Unit10;



interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;

type
TZ3 = class(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Z3: TZ3;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TZ3.SpeedButton1Click(Sender: TObject);
begin
dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr3.FieldByName('kod5').Value]),[]);
ShowWindow(formvvod2.Handle, SW_SHOW);
formvvod2.Show;
end;

procedure TZ3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.Zapr3.Active:=false;
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;

procedure TZ3.DBGrid1DblClick(Sender: TObject);
begin
speedbutton1.Click;
end;

end.

unit Unit11;



interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, RpRave, RpDefine, RpCon,
RpConDS;

type
TZ4 = class(TForm)
DBGrid1: TDBGrid;
Edit1: TEdit;
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
SpeedButton3: TSpeedButton;
RvDataSetConnection1: TRvDataSetConnection;
RvProject1: TRvProject;
procedure SpeedButton2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Z4: TZ4;

implementation

uses Unit3, Unit6;

{$R *.dfm}

procedure TZ4.SpeedButton2Click(Sender: TObject);
begin
with dm do begin
Zapr4.Active:=false;
zapr4.ParamByName('par').Value:='%'+edit1.text+'%';
Zapr4.Active:=true;
label2.Caption:=inttostr(zapr4.RecordCount);
end;
end;

procedure TZ4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.Zapr4.Active:=false;
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;

procedure TZ4.SpeedButton1Click(Sender: TObject);
begin
dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr4.FieldByName('kod5').Value]),[]);
ShowWindow(formvvod2.Handle, SW_SHOW);
formvvod2.Show;
end;

procedure TZ4.DBGrid1DblClick(Sender: TObject);
begin
speedbutton1.Click;
end;

procedure TZ4.SpeedButton3Click(Sender: TObject);
begin
rvproject1.Execute;
end;

end.

unit Unit12;



interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids, DBGrids, StdCtrls;

type
TZ5 = class(TForm)
SpeedButton2: TSpeedButton;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
procedure SpeedButton2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Z5: TZ5;

implementation

uses Unit3;

{$R *.dfm}

procedure TZ5.SpeedButton2Click(Sender: TObject);
var fil:ansistring;
begin
with dm do begin
zapr5.SQL.Clear;
Zapr5.Active:=false;
opdial.execute;
fil:=opdial.filename;
zapr5.SQL.LoadFromFile(fil);
try Zapr5.Active:=true;
except begin
messagedlg('Ошибка в формате sql запроса',mterror,[mbok],0);
end;
end;
label2.Caption:=inttostr(zapr5.RecordCount);
end;
end;

procedure TZ5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.Zapr5.Active:=false;
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;

end.

unit Unit13;



interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TAvtor = class(TForm)
Bevel1: TBevel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Image1: TImage;
Label6: TLabel;
procedure FormClick(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Avtor: TAvtor;

implementation

{$R *.dfm}

procedure TAvtor.FormClick(Sender: TObject);
begin
close;
end;

procedure TAvtor.Image1Click(Sender: TObject);
begin
close;
end;

procedure TAvtor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;

end.

unit Unit14;



interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
ToPr = class(TForm)
Memo1: TMemo;
procedure Memo1Click(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
oPr: ToPr;

implement