Распределенные баз данных и распределенных СУБД

Продолжение приложения 1   

Label11: TLabel;    Shape3: TShape;    Label12: TLabel;

    Edit1: TEdit;    procedure TBFirstClick(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure ToolButton1Click(Sender: TObject);

    procedure ToolButton8Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

  private    { Private declarations }

  public    { Public declarations }

  end;

var

  FZakaz: TFZakaz;   a:byte;

implementation

uses UDM, Umain, UDobZakaz;

{$R *.dfm}

procedure TFZakaz.TBFirstClick(Sender: TObject);

begin DM.Tzakaz.First; end;

procedure TFZakaz.ToolButton2Click(Sender: TObject);

begin DM.Tzakaz.Prior; end;

procedure TFZakaz.ToolButton3Click(Sender: TObject);

begin DM.Tzakaz.Next; end;

procedure TFZakaz.ToolButton4Click(Sender: TObject);

begin DM.Tzakaz.Last; end;

procedure TFZakaz.ToolButton5Click(Sender: TObject);

Продолжение приложения 1   

begin DM.Tzakaz.post; end;

procedure TFZakaz.ToolButton6Click(Sender: TObject);

begin DM.Tzakaz.Delete; end;

procedure TFZakaz.ToolButton7Click(Sender: TObject);

var n:integer; begin DM.Tzakaz.Last; n:=DM.Tzakaz.FieldByName('nz').Value;

DM.Tzakaz.Append; DM.Tzakaz.FieldByName('nz').Value:=n+1;

FDobZakaz.show; end;

procedure TFZakaz.ToolButton1Click(Sender: TObject);

begin case a of 0:begin Height:=697; Panel1.Height:=201; Position:=poScreenCenter; a:=1; ToolButton1.ImageIndex:=9;

ToolButton1.hint:='Закрыть панель поиска' end;

1: begin DBGrid1.DataSource:= dm.DSZakaz; Height:=486; Panel1.Height:=0;

Position:=poScreenCenter; a:=0; ToolButton1.ImageIndex:=8;

ToolButton1.hint:='Открыть панель поиска'; Edit1.SetFocus;  end; end;

end;

procedure TFZakaz.ToolButton8Click(Sender: TObject);

begin Fmain.Show; close; end;

procedure TFZakaz.FormActivate(Sender: TObject);

begin a:=0; end;

procedure TFZakaz.Edit1Change(Sender: TObject);

begin dm.QZakaz1.Close; dm.QZakaz1.Parameters[0].Value:=edit1.Text;

dm.QZakaz1.Open; DBGrid1.DataSource:= dm.DSQZakaz1; end; end.

unit UZapr;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;

Type   TForm1 = class(TForm)

    DBGrid1: TDBGrid;     DBNavigator1: TDBNavigator;

Продолжение приложения 1   

SpeedButton2: TSpeedButton;     SpeedButton4: TSpeedButton;

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

  private     { Private declarations }

  public    { Public declarations }

  end;

var   Form1: TForm1;

implementation

uses UDM;

{$R *.dfm}

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin close; end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin DM.QZapros.Close; DM.QZapros.Open; end;

end.

unit UDobTovar;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, ExtCtrls, StdCtrls, DBCtrls, Mask, BDE;

type

  TFDobTov = class(TForm)

    GroupBox1: TGroupBox;     DBEdit3: TDBEdit;     DBEdit5: TDBEdit;

    DBEdit7: TDBEdit;    DBEdit8: TDBEdit;     DBEdit9: TDBEdit;

    DBEdit1: TDBEdit;    DBEdit2: TDBEdit;    Label1: TLabel;

    Label2: TLabel;    Label3: TLabel;    Label4: TLabel;

    Edit1: TEdit;    Label5: TLabel;    Label6: TLabel;

    Label7: TLabel;    Label8: TLabel;    Label9: TLabel;

    DBComboBox1: TDBComboBox;    Panel1: TPanel;

Продолжение приложения 1   

    Panel2: TPanel;    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;    DBEdit4: TDBEdit;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private    { Private declarations }

  public    { Public declarations }

  end;

var   FDobTov: TFDobTov;

implementation

uses UDM, UTovar;

{$R *.dfm}

procedure TFDobTov.SpeedButton1Click(Sender: TObject);

begin

DBEdit4.Text:=floattostr(strtofloat(DBEdit3.Text)+(strtofloat(Edit1.text)/100)*strtofloat(DBEdit3.Text)); DM.Ttov.post; end;

procedure TFDobTov.SpeedButton2Click(Sender: TObject);

begin DM.Ttov.Append; end;

procedure TFDobTov.SpeedButton3Click(Sender: TObject);

begin DM.Ttov.Cancel; FTovar.Show; Close; end;

procedure TFDobTov.SpeedButton4Click(Sender: TObject);

begin     FTovar.Show;    Close; end;

procedure TFDobTov.FormActivate(Sender: TObject);

var n:integer; begin DM.Ttov.Last; n:=DM.Ttov.FieldByName('idn').Value;

DM.Ttov.Append; DM.Ttov.FieldByName('idn').Value:=n+1; end;

end.

Продолжение приложения 1   

unit UInvVed1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

  TFInvVed = class(TForm)

    ComboBox1: TComboBox;     Label1: TLabel;    DBEdit1: TDBEdit;    

    SpeedButton1: TSpeedButton;  SpeedButton2: TSpeedButton;    

    procedure FormActivate(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

  private     { Private declarations }

  public     { Public declarations }

  end;

var   FInvVed: TFInvVed;

implementation

uses UDM, URepIVed;

{$R *.dfm}

procedure TFInvVed.FormActivate(Sender: TObject);

begin DM.Tklad.First; while not DM.Tklad.Eof do begin

ComboBox1.Items.Add(DM.Tklad.FieldValues['fio']); DM.Tklad.next; end; end;

procedure TFInvVed.ComboBox1Change(Sender: TObject);

begin   DM.Tklad.Locate('fio',ComboBox1.Text,[]); end;

procedure TFInvVed.SpeedButton2Click(Sender: TObject);

begin close; end;

procedure TFInvVed.SpeedButton1Click(Sender: TObject);

begin FRepIVed.QRLabel12.Caption:=DBEdit1.Text;

Продолжение приложения 1   

FRepIVed.QRLabel13.Caption:=ComboBox1.Text;

FRepIVed.QuickRep1.Preview; end;

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЕ 2

Образы  экранов