Автоматизована система Комп’ютерної фірми

       alias.Zamovl.Filter:=fp.Edit3.Text;

       end;

// виводить всі записи

    2: begin

       alias.Zamovl.Filtered:=false;

       fp.FocusControl(fp.DBGrid1);

       end;   

end;

end;

 

 

 

 

 

 

 

 

procedure TFP.SpeedButton1Click(Sender: TObject);

var s:string;

begin

case fp.RadioGroup2.ItemIndex of

// присвоюємо значенню s відповідне  поле бази даних

   0:s:='kodk';

   1:s:='kodtz';

   2:s:='cinaz1';

   3:s:='cinat';

   4:s:='data';

   5:s:='kl';

   6:s:='gar';

end;

// проводимо пошук

// відповідне поле бази даних

//  edit1.text значення для пошуку

// [] вказуються опції для  пошуку 

// LoCaseInsensitive – реєстр літер  не враховується 

// LoPartialKey – допускається  співпадання значень 

alias.Zamovl.Locate(s, edit1.text, []);

end;

 

procedure TFP.SpeedButton2Click(Sender: TObject);

begin

if fp.DBEdit1.Text='Продаж' then

  begin

    if FileExists('Prodag.FRF') Then

      begin

       alias.frReport2.LoadFromFile('Prodag.FRF');

       alias.frReport2.PrepareReport;

       alias.frReport2.ShowPreparedReport;

      end

     else alias.frReport2.DesignReport;

  end;

if fp.DBEdit1.Text='Ремонт' then

  begin

    if FileExists('Remont.FRF') Then

      begin

       alias.frReport2.LoadFromFile('Remont.FRF');

       alias.frReport2.PrepareReport;

       alias.frReport2.ShowPreparedReport;

      end

     else alias.frReport2.DesignReport;

  end;

end;

procedure TFP.RadioGroup2Click(Sender: TObject);

begin

fp.FocusControl(fp.edit1);

end;

 

end.

Додаток 6. Модуль  форми продажу товару FZ1

 

 

unit Uz1;

 

interface

 

uses

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

  StdCtrls, RxDBComb, RxLookup, Mask, DBCtrls, RzDBEdit, RzEdit, ToolEdit,

  ExtCtrls, Buttons;

 

type

  TFz1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

.....................

    DBText1: TDBText;

    DBText2: TDBText;

    procedure SpeedButton2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Fz1: TFz1;

 

implementation

 

uses Ualias;

 

{$R *.DFM}

 

procedure TFz1.SpeedButton2Click(Sender: TObject);

begin

fz1.Close;

end;

 

procedure TFz1.FormActivate(Sender: TObject);

begin

fz1.Edit1.Text:='';

fz1.RzNumericEdit1.Value:=0;

fz1.DateEdit1.Text:='  .  .  ';

end;

 

procedure TFz1.SpeedButton1Click(Sender: TObject);

var a:Extended;

begin

a:=fz1.RzDBNumericEdit1.Value*fz1.RzNumericEdit1.Value;

// заносимо дані в базу замовлення

alias.Zamovl.Append;

alias.Zamovl.FieldByName('kodk').AsInteger:=strtoint(fz1.RxDBLookupCombo1.Text);

alias.Zamovl.FieldByName('kodtz').AsInteger:=strtoint(fz1.RxDBLookupCombo2.Text);

alias.Zamovl.FieldByName('namet').AsString:=fz1.DBEdit1.Text;

alias.Zamovl.FieldByName('vurt').AsString:=fz1.DBEdit2.Text;

alias.Zamovl.FieldByName('cinaz1').AsCurrency:=fz1.RzDBNumericEdit1.Value;

alias.Zamovl.FieldByName('kl').AsCurrency:=fz1.RzNumericEdit1.Value;

alias.Zamovl.FieldByName('gar').AsCurrency:=alias.Tovar.Fieldbyname('gar').ascurrency;

alias.Zamovl.FieldByName('data').AsDateTime:=fz1.DateEdit1.Date;

alias.Zamovl.FieldByName('prum').AsString:=fz1.Edit1.Text;

alias.Zamovl.FieldByName('cinat').AsCurrency:=a;

alias.Zamovl.FieldByName('vudp').AsString:='Продаж';

alias.Zamovl.Post;

//автоматично заносяться дані в базу продажу

alias.Prodag.Append;

alias.Prodag.FieldByName('kodp').AsInteger:=strtoint(fz1.RxDBLookupCombo1.Text);

alias.Prodag.FieldByName('kodtp').AsInteger:=strtoint(fz1.RxDBLookupCombo2.Text);

alias.Prodag.FieldByName('namet').AsString:=fz1.DBEdit1.Text;

alias.Prodag.FieldByName('vurt').AsString:=fz1.DBEdit2.Text;

alias.Prodag.FieldByName('cinaz1p').AsCurrency:=

fz1.RzDBNumericEdit1.Value;

alias.Prodag.FieldByName('data').AsDateTime:=fz1.DateEdit1.Date;

alias.Prodag.FieldByName('prum').AsString:=fz1.Edit1.Text;

alias.Prodag.FieldByName('cinaz').AsCurrency:=a;

alias.Prodag.Post;

fz1.Close;

end;

 

end.

Додаток 7. Модуль  форми ремонту товару FZ2

 

unit Uz2;

 

interface

 

uses

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

  StdCtrls, Buttons, ExtCtrls, ToolEdit, Mask, RzEdit, RxLookup, CurrEdit,

  DBCtrls;

 

type

  TFz2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    .....................

    DBText2: TDBText;

    procedure SpeedButton2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Fz2: TFz2;

 

implementation

 

uses Ualias;

 

{$R *.DFM}

 

 

procedure TFz2.SpeedButton2Click(Sender: TObject);

begin

fz2.Close;

end;

 

procedure TFz2.FormActivate(Sender: TObject);

begin

fz2.CurrencyEdit1.Value:=0;

fz2.Edit2.Text:='';

fz2.DateEdit1.Text:='  .  .  ';

fz2.RzNumericEdit2.Value:=0;

end;

 

procedure TFz2.SpeedButton1Click(Sender: TObject);

begin

// заносимо дані в базу замовлення

alias.Zamovl.Append;

alias.Zamovl.FieldByName('kodk').AsInteger:=strtoint(fz2.RxDBLookupCombo1.Text);

alias.Zamovl.FieldByName('kodtz').AsInteger:=strtoint(fz2.RxDBLookupCombo2.Text);

alias.Zamovl.FieldByName('namet').AsString:=fz2.Edit2.Text;

alias.Zamovl.FieldByName('data').AsDateTime:=fz2.DateEdit1.Date;

alias.Zamovl.FieldByName('cinat').AsCurrency:=fz2.CurrencyEdit1.Value;

alias.Zamovl.FieldByName('Gar').AsCurrency:=fz2.RzNumericEdit2.Value;

<p class="dash04