Модуль отображения заставки

unit Sc_trial;

interface

uses

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

Dialogs, ExtCtrls, Buttons, ComCtrls;

type

TMain_sc = class(TForm)

Image1: TImage;

ProgressBar1: TProgressBar;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Main_sc: TMain_sc;

implementation

uses Ad_reg;

{$R *.dfm}

// Ход прогресса

procedure TMain_sc.Timer1Timer(Sender: TObject);

begin

if ProgressBar1.Position<>ProgressBar1.Max then

ProgressBar1.Position:=ProgressBar1.Position+2

else

begin

timer1.Enabled:=false;

main_sc.Visible:=false;

registr.ShowModal;

end;

end;

end.

Модуль ввода количества заказываемого товара

unit ZakazTov;

interface

uses

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

Dialogs, StdCtrls, Spin, Buttons, Data, BusinessClasses;

type

TZakazForm = class(TForm)

GroupBox1: TGroupBox;

SpinEdit1: TSpinEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure SpeedButton2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

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

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

ZakazForm: TZakazForm;

implementation

uses Main;

{$R *.dfm}

procedure TZakazForm.SpeedButton2Click(Sender: TObject);

begin

ZakazForm.Close;

end;

procedure TZakazForm.FormActivate(Sender: TObject);

begin

TekBTov:=DataShop.ListBaseGroupTovar.ObjectList.Elements[DataShop.ListBaseGroupTovar.CurrentIndex] as TTov_base;

SpinEdit1.Value:=1;

SpinEdit1.MinValue:=1;

SpinEdit1.MaxValue:=TekBTov.TBcount;

end;

procedure TZakazForm.SpinEdit1KeyPress(Sender: TObject; var Key: Char);

begin

key:=#0;

end;

procedure TZakazForm.SpeedButton1Click(Sender: TObject);

begin

if (messagedlg('Заказать товар "'+TekBTov.Tname+'"'+#13+

'в количестве: '+ inttostr(SpinEdit1.Value)+' единиц(ы)?',mtConfirmation,[mbYes,mbNo],0)=mrYes) then

begin

TekBTov.ZakazCount:=SpinEdit1.Value;

ZakazForm.Close;

Mainform.SpeedButton35.Enabled:=true;

Mainform.BoldSortingGrid4.Repaint;

end;

end;

end.

Модуль отображения информации о программном продукте и разработчике

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TMy = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Comments: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

SpeedButton1: TSpeedButton;

Image1: TImage;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

My: TMy;

implementation

{$R *.dfm}

// Закрытие формы

procedure TMy.SpeedButton1Click(Sender: TObject);

begin

my.Close;

end;

end.

121