Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Курсовые проекты » База даних туристичної фірми

Реферат База даних туристичної фірми

Тема: Курсовые проекты

lign="justify"> PutevkaDSDesigner6: TIntegerField;

PutevkaDSDesigner7: TBCDField;

Zakaz_: TAutoIncField;

Zakaz_2: TIntegerField;

ZakazDSDesigner: TWideStringField;

ZakazDSDesigner2: TBooleanField;

ZakazField: TIntegerField;

ZakazField2: TStringField;

ZakazField3: TIntegerField;

ZakazField4: TIntegerField;

ZakazField5: TIntegerField;

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

DisplayText: Boolean);

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

DisplayText: Boolean);

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

DisplayText: Boolean);

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

DisplayText: Boolean);

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

DisplayText: Boolean);

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

DisplayText: Boolean);

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

DisplayText: Boolean);

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

DisplayText: Boolean);

private

{Private declarations}

public

{Public declarations}

end;

DM: TDM;

{$ R * .dfm} TDM.ContryDSDesigner3GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Contry.Fields [2] .AsBoolean then Text:= необхідна

else Text:= не потрібна raquo ;;; TDM.TurField2GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Tur.Fields [6] .AsBoolean then Text:= да

else Text:= немає raquo ;;; TDM.PutevkaDSDesigner2GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Putevka.Fields [3] .AsBoolean then Text:= Включено raquo ;;; TDM.PutevkaDSDesigner3GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Putevka.Fields [4] .AsBoolean then Text:= Включено raquo ;;; TDM.PutevkaDSDesigner5GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Putevka.fields [6] .AsBoolean then Text:= ДА raquo ;;; TDM.PutevkaDSDesigner7GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Putevka.Fields [7] .AsString= then Text:=FloatToStr (Putevka.Fields [5] .AsInteger):=FloatToStr(Putevka.Fields[5].AsInteger*(1-Putevka.Fields[7].AsInteger/100));;TDM.ZakazDSDesigner2GetText(Sender: TField; var Text: String;

DisplayText: Boolean); Zakaz.Fields [3] .AsBoolean then Text:= Оплачено

else Text:= laquo, не оплачено raquo ;;; TDM.ZakazField3GetText (Sender: TField; var Text: String;

DisplayText: Boolean); Zakaz.Fields [8] .AsString= then Text:=floattostr (Zakaz.Fields [7] .AsFloat) Text:=Floattostr (Zakaz.Fields [7] .AsInteger * (1-Zakaz.Fields [8] .AsInteger/100));

end;.

Лістинг Головною форми програми

unit Unit1;

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

Dialogs, Menus;

TForm1=class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;