46623 (607881), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

end;

{**********************************************************8}

procedure TMainForm.T_zakazKol_voZSetText(Sender: TField; const Text: String);

var number:integer;prodZak:real;flag:boolean;

begin

flag:=true;

number:=strtoint(Text);

ZakazForm.memo1.Clear;

If not(strtoInt(Text) in [1..50]) then ZakazForm.memo1.Lines.Text:='Количество блюд превзошло разумные пределы!'

else begin

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашли блюдо}

T_ProdinRec.First;

{Оценивающий цикл}

{} While not(T_ProdinRec.Eof) and flag do begin {Ищем запись продукта}

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{Сравниваем заказанное и наличествующее}

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*number;

if ProdZak

else flag:=false;

end;

T_ProdinRec.Next;

end;

{Проверка}

T_ProdinRec.First;

if flag then

{} begin

{Редактирующий цикл}

{} While not(T_ProdinRec.Eof) do begin {Ищем запись продукта}

if T_products.Locate('IDP',T_ProdinRecIDP.Value,[]) then

{} begin

ProdZak:=T_ProdinRecKol_voPvB.Value*(number-T_zakazKol_voZ.Value);

T_products.Edit;

T_productsKol_vo.Value:=T_productsKol_vo.Value-ProdZak;

T_products.Post;

end;

T_ProdinRec.Next;

end;

T_zakazKol_voZ.Value:=number

end

else begin

ZakazForm.memo1.Lines.Text:='Заказ превысил количество продуктов! Пожалуйста, повторите ввод';

T_zakazKol_voZ.Value:=1;

ZakazForm.DBGrid1.Refresh;

end;

end;

end;

procedure TMainForm.T_zakazAfterInsert(DataSet: TDataSet);

begin

T_zakazKol_voZ.Value:=1;

end;

procedure TMainForm.T_zakazAfterPost(DataSet: TDataSet);

var money,sum:real;MMark:TBookMark;

begin

try

money:=strtofloat(ZakazForm.MaskEdit1.Text);

except

ZakazForm.maskEdit1.Text:='';

ZakazForm.maskEdit1.ReadOnly:=True;

ZakazForm.maskEdit1.Color:=clBtnFace;

end;

sum:=0;

if money<>0 then begin

MMark:=T_zakaz.GetBookmark;

T_zakaz.First;

while not(T_zakaz.Eof) do begin

T_spisokB.locate('IDB',T_zakazIDB.value,[]); {Нашли блюдо}

sum:=T_spisokBStoim.Value*T_zakazKol_voZ.value+sum;

T_zakaz.Next;

end;

if T_zakaz.BookmarkValid(mmark) then T_zakaz.GotoBookmark(mmark);

if T_zakaz.BookmarkValid(mmark) then T_zakaz.FreeBookmark(mmark);

if sum>money then ZakazForm.memo1.Lines.Text:='Заказ превысил денежный предел!'

else ZakazForm.memo1.Clear;

end;

end;

{****************************SpisokB**********************888}

procedure TMainForm.T_spisokBAfterInsert(DataSet: TDataSet);

begin

T_spisokB.edit;

T_spisokBIDB.Value:=MKeyvalue;

T_spisokBFlagCur.Value:=false;

T_spisokBIdTB.Value:=1;

T_spisokB.Post;

InformForm.DBGrid1.Refresh;

end;

procedure TMainForm.T_spisokBBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_spisokB.lookup('IDB',MKeyvalue,'IDB'))=varnull;

end;

procedure TMainForm.T_spisokBAfterPost(DataSet: TDataSet);

begin

T_spisokB.Refresh;

end;

{****************************Products********************888}

procedure TMainForm.T_productsBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_products.lookup('IDP',MKeyvalue,'IDP'))=varnull;

end;

procedure TMainForm.T_productsAfterInsert(DataSet: TDataSet);

begin

T_products.edit;

T_productsIDP.Value:=MKeyvalue;

T_productsIdEI.Value:=1;

T_products.Post;

InformForm.DBGrid3.Refresh;

end;

procedure TMainForm.T_productsAfterPost(DataSet: TDataSet);

begin

T_products.Refresh;

end;

{*********************TypeB****************************}

procedure TMainForm.T_EIBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_EI.lookup('IdEI',MKeyvalue,'IdEI'))=varnull;

end;

procedure TMainForm.T_EIAfterInsert(DataSet: TDataSet);

begin

T_EI.edit;

T_EIIdEI.Value:=MKeyvalue;

T_EINameEI.Value:=' ';

T_EI.Post;

InformForm.DBGrid5.Refresh;

end;

procedure TMainForm.T_EIAfterPost(DataSet: TDataSet);

begin

T_EI.Refresh;

end;

{*********************TypeB****************************}

procedure TMainForm.T_typeBBeforeInsert(DataSet: TDataSet);

begin

MKeyvalue:=0;

repeat

MKeyvalue:=MKeyvalue+1;

until varType(T_typeB.lookup('IdTB',MKeyvalue,'IdTB'))=varnull;

end;

procedure TMainForm.T_typeBAfterInsert(DataSet: TDataSet);

begin

T_typeB.edit;

T_typeBIdTB.Value:=MKeyvalue;

T_typeBNameTB.Value:=' ';

T_typeB.Post;

InformForm.DBGrid4.Refresh;

end;

procedure TMainForm.BitBtn2Click(Sender: TObject);

begin

AboutBox.showmodal;

end;

procedure TMainForm.FormShow(Sender: TObject);

begin

memo1.Text:='Добро пожаловать в программу "Ресторан"';

end;

{-------------------------------------------------}

procedure TMainForm.TreeView1Click(Sender: TObject);

var F:integer;

begin

{определение текущей выделеннки}

for f:=0 to 15 do if TreeView1.Items[f].Selected then break;

memo1.Clear;

case f of

0:begin

ZakazForm.Show;

InformForm.Hide;

Aboutbox.Hide;

memo1.Text:='Ведение заказов';

end;

1:begin

InformForm.Show;Aboutbox.Hide;

InformForm.PageControl1.ActivePageIndex:=0;

InformForm.SetFocus;

memo1.Text:='Ведение справочников';

end;

2:begin

InformForm.PageControl1.ActivePageIndex:=0;

memo1.Text:='Определение меню, заполение списка блюд';

end;

3:begin //InformFrame1.PageControl1.ActivePageIndex:=1;

InformForm.PageControl1.ActivePageIndex:=1;

memo1.Text:='Ведение состояния продуктов';

end;

4:begin

InformForm.PageControl1.ActivePageIndex:=2;

memo1.Text:='Дополнительные справочники, типы ед. измерения, типы блюд';

end;

{Reports}

5:begin

InformForm.Hide;

Aboutbox.Hide;

ZakazForm.Hide;

memo1.Text:='Отчеты';

end;

{Menu} 6:begin

MenuForm.QuickRep1.Refresh;

memo1.Text:='Просмотр меню, печать';

end;

{Preview}7:begin

memo1.Text:='Просмотр меню';

MenuForm.Query1.Close;

MenuForm.Query1.Open;

MenuForm.QuickRep1.Preview;

end;

{Print}8:begin

memo1.Text:='Печать меню';

MenuForm.Query1.Close;

MenuForm.Query1.Open;

MenuForm.QuickRep1.Print;

end;

{Zakaz} 9:FRepZakaz.QuickRep1.Preview;

10: begin

memo1.Text:='Настройка шрифта меню';

FontDialog1.Font := MainForm.Font;

if FontDialog1.Execute then TreeView1.font:=FontDialog1.Font

end;

end;

end;

procedure TMainForm.FormActivate(Sender: TObject);

begin

T_EI.open;

T_Prodinrec.open;

T_products.open;

T_spisokB.open;

T_zakaz.open;

T_typeB.open;

end;

procedure TMainForm.T_zakazCalcFields(DataSet: TDataSet);

begin

T_zakazCalc_stoim.AsCurrency:=T_zakazKol_voZ.AsCurrency + T_zakazLU_CEnaB.AsCurrency

end;

end.

unit RepMenu;

interface

uses

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

Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables;

type

TMenuForm = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRLabel1: TQRLabel;

Query1: TQuery;

DataSource1: TDataSource;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRBand2: TQRBand;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRBand3: TQRBand;

QRExpr1: TQRExpr;

QRDBText7: TQRDBText;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRExpr2: TQRExpr;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRShape2: TQRShape;

QRShape3: TQRShape;

QRShape4: TQRShape;

QRLabel7: TQRLabel;

QRShape5: TQRShape;

QRShape1: TQRShape;

QRShape6: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

MenuForm: TMenuForm;

implementation

{$R *.dfm}

end.

unit RepZakaz;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type

TFRepZakaz = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRLabel1: TQRLabel;

QRBand3: TQRBand;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRShape1: TQRShape;

private

{ Private declarations }

public

{ Public declarations }

end;

var

FRepZakaz: TFRepZakaz;

implementation

uses Main;

{$R *.dfm}

end.

unit ZakazUnit;

interface

uses

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

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

type

TZakazForm = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

Clear: TBitBtn;

Panel1: TPanel;

Preview: TBitBtn;

Print: TBitBtn;

Memo1: TMemo;

MaskEdit1: TEdit;

procedure ClearClick(Sender: TObject);

procedure PreviewClick(Sender: TObject);

procedure PrintClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

ZakazForm: TZakazForm;

implementation

uses Main, RepZakaz;

{$R *.dfm}

procedure TZakazForm.ClearClick(Sender: TObject);

begin

MainForm.T_zakaz.close;

MainForm.T_zakaz.EmptyTable;

MainForm.T_zakaz.Open;

end;

procedure TZakazForm.PreviewClick(Sender: TObject);

begin

FRepZakaz.QuickRep1.Preview;

end;

procedure TZakazForm.PrintClick(Sender: TObject);

begin

FRepZakaz.QuickRep1.Print;

end;

procedure TZakazForm.FormActivate(Sender: TObject);

begin

if not(MainForm.T_zakaz.Active) then MainForm.T_zakaz.Open;

end;

procedure TZakazForm.BitBtn1Click(Sender: TObject);

begin

ZakazForm.Hide;

end;

end.

Характеристики

Список файлов курсовой работы