Курсовая работа: Автоматизация заказа блюд в ресторане

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,