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

T_ProdinRecKol_voPvB: TFloatField;

T_ProdinRecRelatEIonP: TStringField;

T_ProdinRecRelatP: TStringField;

T_spisokBStoim: TFloatField;

T_ProdinRecRelatPCena: TFloatField;

DS_Zakaz: TDataSource;

T_zakaz: TTable;

T_zakazIDB: TIntegerField;

T_zakazKol_voZ: TIntegerField;

T_zakazRelatNB: TStringField;

T_EIIdEI: TIntegerField;

T_EINameEI: TStringField;

T_typeBIdTB: TIntegerField;

T_typeBNameTB: TStringField;

BitBtn1: TBitBtn;

Image1: TImage;

BitBtn2: TBitBtn;

FontDialog1: TFontDialog;

T_zakazLU_CEnaB: TVariantField;

T_zakazCalc_stoim: TVariantField;

procedure T_spisokBFlagCurGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure T_spisokBFlagCurSetText(Sender: TField; const Text: String);

procedure T_spisokBCalcFields(DataSet: TDataSet);

procedure T_zakazRelatNBSetText(Sender: TField; const Text: String);

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

procedure T_zakazAfterInsert(DataSet: TDataSet);

procedure T_zakazAfterPost(DataSet: TDataSet);

procedure T_spisokBAfterInsert(DataSet: TDataSet);