Разработка базы данных
Реферат - Компьютеры, программирование
Другие рефераты по предмету Компьютеры, программирование
edlg('Надо выделить хоть одну категорию!',mtinformation,[mbok],0);
z3.label2.Caption:=inttostr(zapr3.RecordCount);
end;
ShowWindow(z3.Handle, SW_SHOW);
z3.Show;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TVch = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Vch: TVch;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TVch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(vch.Handle, SW_HIDE);
action:=canone;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, ExtCtrls, Mask;
type
TFormVvod2 = class(TForm)
Label1: TLabel;
DBNavigator1: TDBNavigator;
DBLookupComboBox1: TDBLookupComboBox;
Label2: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label3: TLabel;
DBEdit1: TDBEdit;
Bevel1: TBevel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBComboBox1: TDBComboBox;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormVvod2: TFormVvod2;
implementation
uses Unit3;
{$R *.dfm}
procedure TFormVvod2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(Formvvod2.Handle, SW_HIDE);
action:=canone;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TZaprVibr = class(TForm)
RG: TRadioGroup;
SpeedButton1: TSpeedButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ZaprVibr: TZaprVibr;
implementation
uses Unit8, Unit9, Unit4, Unit11, Unit12;
{$R *.dfm}
procedure TZaprVibr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;
procedure TZaprVibr.SpeedButton1Click(Sender: TObject);
begin
case rg.ItemIndex of
0:begin
ShowWindow(z1.Handle, SW_SHOW);
z1.Show;
end;
1:begin
ShowWindow(z2.Handle, SW_SHOW);
z2.Show;
end;
2:begin
svazka.Caption:='Поиск записей по разделу, наименованию или разделу';
with svazka do begin
C1.Visible:=true; dbgrid1.ReadOnly:=true;
C2.Visible:=true; dbgrid2.ReadOnly:=true;
C3.Visible:=true; dbgrid3.ReadOnly:=true;
SpeedButton2.Visible:=true;
end;
ShowWindow(Svazka.Handle, SW_SHOW);
svazka.Show;
end;
3:begin
ShowWindow(z4.Handle, SW_SHOW);
z4.Show;
end;
4:begin
ShowWindow(z5.Handle, SW_SHOW);
z5.Show;
end;
end;
close;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Buttons, StdCtrls;
type
TZ1 = class(TForm)
SpeedButton2: TSpeedButton;
DBGrid1: TDBGrid;
Ch1: TCheckBox;
Ch2: TCheckBox;
Ch3: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
SpeedButton1: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
procedure SpeedButton2Click(Sender: TObject);
procedure Ch1Click(Sender: TObject);
procedure Ch2Click(Sender: TObject);
procedure Ch3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Z1: TZ1;
implementation
uses Unit3, Unit6;
{$R *.dfm}
procedure TZ1.SpeedButton2Click(Sender: TObject);
begin
with dm do begin
Zapr1.Active:=false;
if ch1.Checked then zapr1.ParamByName('pvch').Value:='%'+edit1.Text+'%'
else zapr1.ParamByName('pvch').Value:='%%';
if ch2.Checked then zapr1.ParamByName('pserno').Value:='%'+edit2.Text+'%'
else zapr1.ParamByName('pserno').Value:='%%';
if ch3.Checked then zapr1.ParamByName('pmodel').Value:='%'+edit3.Text+'%'
else zapr1.ParamByName('pmodel').Value:='%%';
Zapr1.Active:=true;
label2.Caption:=inttostr(zapr1.RecordCount);
end;
end;
procedure TZ1.Ch1Click(Sender: TObject);
begin
edit1.Enabled:=ch1.Checked;
end;
procedure TZ1.Ch2Click(Sender: TObject);
begin
edit2.Enabled:=ch2.Checked;
end;
procedure TZ1.Ch3Click(Sender: TObject);
begin
edit3.Enabled:=ch3.Checked;
end;
procedure TZ1.SpeedButton1Click(Sender: TObject);
begin
dm.IBTable1.Locate('KOD5',vararrayof([dm.zapr1.FieldByName('kod5').Value]),[]);
ShowWindow(formvvod2.Handle, SW_SHOW);
formvvod2.Show;
end;
procedure TZ1.DBGrid1DblClick(Sender: TObject);
begin
speedbutton1.Click;
end;
procedure TZ1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.Zapr1.Active:=false;
ShowWindow(Handle, SW_HIDE);
action:=canone;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Buttons;
type
TZ2 = class(TForm)
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
DBGrid1: TDBGrid;
Ch1: TCheckBox;
Ch2: TCheckBox;
Ch3: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
procedure SpeedButton2Click(Sender: TObject);
procedure Ch1Click(Sender: TObject);
procedure Ch2Click(Sender: TObject);
procedure Ch3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Z2: TZ2;
implementation
uses Unit3, Unit6;