Проектирование ИС управления магазином компьютерных товаров

begin

form2.Button3.Enabled:=false;

form2.Button4.Enabled:=false;

end;

end;

 

procedure TForm2.FormActivate(Sender: TObject);

begin

form2.Button3.visible:=true;

form2.Button4.Visible:=true;

form2.Button3.Enabled:=false;

form2.Button4.Enabled:=false;

if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') and (edit4.Text<>'') and (edit5.Text<>'')

then begin

form2.Button3.Enabled:=true;

form2.Button4.Enabled:=true;

end;

end;

 

end.

 

unit Unit4;

 

interface

 

uses

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

  Dialogs, ExtCtrls, StdCtrls;

 

type

  TForm4 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Edit12: TEdit;

    Edit13: TEdit;

    Edit14: TEdit;

    Edit15: TEdit;

    Edit16: TEdit;

    Edit17: TEdit;

    Edit18: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Edit11: TEdit;

    Edit8: TEdit;

    Label11: TLabel;

    Button5: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

//    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4; i:integer;

 

implementation

 

uses Unit1, Unit5;

 

{$R *.dfm}

 

procedure TForm4.Button2Click(Sender: TObject);

begin                 {очищает поля в справке о  сотрудниках}

  edit1.text:='';

  edit2.text:='';

  edit3.text:='';

  edit4.text:='';

  edit5.text:='';

  edit6.text:='';

  edit7.text:='';

  edit8.text:='';

  edit11.text:='';

  edit9.text:='';

  edit10.text:='';

  edit12.text:='';

  edit13.text:='';

  edit14.text:='';

  edit15.text:='';

  edit16.text:='';

  edit17.text:='';

  edit18.text:='';

 

end;

 

procedure TForm4.Button3Click(Sender: TObject); {печать справка о сотруднике}

begin

 

 

Button1.visible:=false;

Button2.visible:=false;

Button3.visible:=false;

Button4.visible:=false;

Button5.visible:=false;

 

label1.visible:=true;

label2.visible:=true;

label3.visible:=true;

label4.visible:=true;

label5.visible:=true;

label6.visible:=true;

label7.visible:=true;

label8.visible:=true;

label9.visible:=true;

label10.visible:=true;

label12.visible:=true;

label13.visible:=true;

label14.visible:=true;

label15.visible:=true;

label16.visible:=true;

label17.visible:=true;

label18.visible:=true;

 

Edit1.visible:=true;

Edit2.visible:=true;

Edit3.visible:=true;

Edit4.visible:=true;

Edit5.visible:=true;

Edit6.visible:=true;

Edit7.visible:=true;

Edit11.visible:=true;

Edit9.visible:=true;

Edit10.visible:=true;

Edit12.visible:=true;

Edit13.visible:=true;

Edit14.visible:=true;

Edit15.visible:=true;

Edit16.visible:=true;

Edit17.visible:=true;

Edit18.visible:=true;

 

Form4.Print;

 

Button1.visible:=true;

Button2.visible:=true;

Button3.visible:=true;

Button4.visible:=true;

Button5.visible:=true;

   Form4.Close;

end;

 

procedure TForm4.Button1Click(Sender: TObject);

begin

if (form1.StringGrid2.RowCount=2) and (form1.StringGrid2.Cells[0,1]='')  {сохраняет данные в таб.справка о сотрудниках}

then i:=form1.StringGrid2.RowCount-1 else i:=form1.StringGrid2.RowCount;

with s do begin

  fam:=form4.Edit1.Text;

  name:=form4.Edit2.Text;

  otch:=form4.Edit3.Text;

  dataU:=form4.Edit4.Text;

  dolg:=form4.Edit5.Text;

  INN:=form4.Edit6.Text;

  pens:=form4.Edit7.Text;

  dr:=form4.Edit8.Text;

  spas:=form4.Edit9.Text;

  npas:=form4.Edit10.Text;

  vpas:=form4.Edit11.Text;

  city:=form4.Edit12.Text;

  str:=form4.Edit13.Text;

  dom:=form4.Edit14.Text;

  kv:=form4.Edit15.Text;

  sem:=form4.Edit17.Text;

  dety:=form4.Edit18.Text;

  tel:=form4.Edit16.Text;

end;

if (form4.Edit1.text<>'')and(form4.Edit2.text<>'')and(form4.Edit3.text<>'')and(form4.Edit4.text<>'')and(form4.Edit5.text<>'')

and(form4.Edit6.text<>'')and(form4.Edit7.text<>'')and(form4.Edit11.text<>'')and(form4.Edit8.text<>'')

and(form4.Edit9.text<>'')and(form4.Edit10.text<>'') then

begin

  with form1.StringGrid2, s do begin

  cells[0,i]:=fam;

  cells[1,i]:=name;

  cells[2,i]:=otch;

  cells[3,i]:=datau;

  cells[4,i]:=dolg;

  cells[5,i]:=inn;

  cells[6,i]:=pens;

  cells[7,i]:=dr;

  cells[8,i]:=spas;

  cells[9,i]:=npas;

  cells[10,i]:=vpas;

  cells[11,i]:=city;

  cells[12,i]:=str;

  cells[13,i]:=dom;

  cells[14,i]:=kv;

  cells[15,i]:=tel;

  cells[16,i]:=sem;

  cells[17,i]:=dety;

  end;

  i:=i+1;if i>1 then form1.StringGrid2.RowCount:=i;

  messagedlg('Запись добавлена!',mtinformation,[mbOK],0);

{form1.StatusBar1.Panels.Items[0].Text:='Количество записей: '+INTtostr(form1.Stringgrid1.RowCount-1); }

end else (messagedlg('Введите пожалуйста данные!',mtInformation,[mbOK],1));

Form4.Close;

end;

 

procedure TForm4.Button4Click(Sender: TObject);

begin

  with s do begin         {изменяет в таб.справка о сотрудниках}

  fam:=form4.Edit1.Text;

  name:=form4.Edit2.Text;

  otch:=form4.Edit3.Text;

  dataU:=form4.Edit4.Text;

  dolg:=form4.Edit6.Text;

  INN:=form4.Edit5.Text;

  pens:=form4.Edit7.Text;

  dr:=form4.Edit11.Text;

  spas:=form4.Edit8.Text;

  npas:=form4.Edit9.Text;

  vpas:=form4.Edit10.Text;

  city:=form4.Edit12.Text;

  str:=form4.Edit13.Text;

  dom:=form4.Edit14.Text;

  kv:=form4.Edit15.Text;

  sem:=form4.Edit17.Text;

  dety:=form4.Edit18.Text;

  tel:=form4.Edit16.Text;

  end;

if (form4.Edit1.text<>'')and(form4.Edit2.text<>'')and(form4.Edit3.text<>'')and(form4.Edit4.text<>'')and(form4.Edit5.text<>'')

and(form4.Edit6.text<>'')and(form4.Edit7.text<>'')and(form4.Edit11.text<>'')and(form4.Edit8.text<>'')

and(form4.Edit9.text<>'')and(form4.Edit10.text<>'') then

begin

i:=form1.StringGrid2.Row;

  begin

  with form1.stringgrid2,s do begin

  cells[0,i]:=fam;

  cells[1,i]:=name;

  cells[2,i]:=otch;

  cells[3,i]:=datau;

  cells[4,i]:=dolg;

  cells[5,i]:=inn;

  cells[6,i]:=pens;

  cells[7,i]:=dr;

  cells[8,i]:=spas;

  cells[9,i]:=npas;

  cells[10,i]:=vpas;

  cells[11,i]:=city;

  cells[12,i]:=str;

  cells[13,i]:=dom;

  cells[14,i]:=kv;

  cells[15,i]:=tel;

  cells[16,i]:=sem;

  cells[17,i]:=dety;

  end;

  i:=i+1;

end;

messagedlg('Запись изменена!',mtinformation,[mbOK],0);

end else (messagedlg('Введите данные!',mtInformation,[mbOK],1));

Form4.Close;

end;

 

 

 

 

 

procedure TForm4.Button5Click(Sender: TObject); {удаляет данные из таб. справка о сотрудниках}

var

  i,k:integer;

begin

  form1.stringgrid2.Rows[form1.stringgrid2.Row].Clear;

  k:=form1.stringgrid2.Row;

  for i:=form1.stringgrid2.row to form1.stringgrid2.rowcount do

  begin

    form1.StringGrid2.Rows[k]:= form1.StringGrid2.Rows[k + 1];

    k:=k+1;

  end;

  form1.StringGrid2.Rows[k + 1].Clear;

  Form4.Close;

end;

 

end.

unit Unit5;

 

interface

 

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls, sLabel, sPanel;

 

type

  TForm5 = class(TForm)

    sPanel1: TsPanel;

    sLabelFX1: TsLabelFX;

    sLabelFX2: TsLabelFX;

    sLabel1: TsLabel;

    sLabel2: TsLabel;

    sLabelFX4: TsLabelFX;

    sLabelFX5: TsLabelFX;

    sLabelFX6: TsLabelFX;

    sLabelFX7: TsLabelFX;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

{$R *.dfm}

 

procedure TForm5.Button1Click(Sender: TObject); {закрывает справку о программе}

begin

Close;

end;

 

end.

unit Unit6;

 

interface

 

uses

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

  Dialogs, ExtCtrls, jpeg, StdCtrls, Gauges;

 

type

  TForm6 = class(TForm)

    Timer1: TTimer;

    Panel1: TPanel;

    Image1: TImage;

    Label1: TLabel;

    Gauge1: TGauge;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form6: TForm6;

 

implementation

 

uses Unit1, Unit7;

 

{$R *.dfm}

 

procedure TForm6.Timer1Timer(Sender: TObject);

begin

{Timer1.Enabled := false;}

 

Gauge1.Progress:=Gauge1.Progress+1;  {ПОКАЗЫВАЕМ ЗАГРУЗКУ }

Form6.visible:=true;

if Gauge1.Progress>=100 then { ЕСЛИ полоса загрузки уже Больше 100 тогда }

begin

Form6.visible:=false;   { Прячем форму с заставкой  }

Timer1.Enabled:=false;  { ОТКЛЮЧАЕМ ТАЙМЕР  }

//PasswordDlg.show;            { Показываем форму "ВВод пароля" }

  Form6.AlphaBlend:=false;

Form6.AlphaBlendValue:=0;

  //Form1.visible:=true;   {Делаем Главную форму невидимой  }

  close;                  { Закрываем форму с заставкой  }

end;

end;

 

end.

unit Unit7;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm7 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

type pas=record

      s:string[10];

      end;

var

  Form7: TForm7;

  f: file of pas; n: pas;

 

implementation

 

uses Unit1, Unit9;

 

{$R *.dfm}

 

procedure TForm7.Button1Click(Sender: TObject); {ввод пароля: да}

begin

assignfile(f,'password');

reset(f);

read(f,n);

if edit1.Text=n.s then begin form7.close; form1.show; end

  else showmessage('Неверный пароль');

end;

 

procedure TForm7.Button2Click(Sender: TObject);     {ввод пароля: выход}

begin

form1.Close;

end;

 

end.

unit Unit8;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm8 = class(TForm)

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form8: TForm8;

 

implementation

 

uses Unit1, Unit9;

 

{$R *.dfm}

 

var

Naim:string;

k: integer;

 

procedure TForm8.Button1Click(Sender: TObject);  {поиск по фамилии}

Var

  i:integer;

  h:boolean;

begin

if form8.Edit1.Text<>'' then

if form1.StringGrid1.Cells[0,1]<>'' then begin

  if button1.caption='Ок' then

 

('Поиск закончен!',mtinformation,[mbOK],0);

  end;

end else showmessage('Нет данных в таблице')

else showmessage('Поле  поиска пустое');

 

end;

 

procedure TForm8.Button2Click(Sender: TObject);

begin

Close; {если передумали  вводить Фамилию при поиске,нажать  отмена для закрытия}

end;

 

procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  button1.Caption:='Ок';

end;

 

 

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  edit1.Text:='';

end;

 

end.

unit Unit9;

 

interface

 

uses

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

  Dialogs, Grids;

 

type

  TForm9 = class(TForm)

    StringGrid1: TStringGrid;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form9: TForm9;

 

implementation

 

{$R *.dfm}

 

procedure TForm9.FormCreate(Sender: TObject);  {подсчет з.п.}

begin

stringgrid1.Cells[0,0]:='Фамилия';

stringgrid1.Cells[1,0]:='имя';

stringgrid1.Cells[2,0]:='отчество';

stringgrid1.Cells[3,0]:='подсчет з/п';

end;

 

end.