Высокоуровневые методы информатики и программирования. Сивохин А.В - 86 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

63
TAuctionsClass=Class(TIdentAuctionsClass)
private
Date_U:TDateTime;
Place:String[40];
Specifics:String[60];
public
constructor Create(ParamID_Auctions : Integer;
ParamDate_U : TDateTime;
ParamPlace : String;
ParamSpecifics : String
);
procedure SetID_Auctions(ParamID_Auctions : Integer);
function GetID_Auctions : Integer;
procedure SetDate_U(ParamDate_U : TDateTime);
function GetDate_U : TDateTime;
procedure SetPlace(ParamPlace : String);
function GetPlace : String;
procedure SetSpecifics(ParamSpecifics : String);
function GetSpecifics : String;
end;
// в)для расширенного класса таблицы "Аукционы":
TExtAuctionsClass=Class(TAuctionsClass)
private
Meneger : String;
public
constructor Create(ParamID_Auctions : Integer;
ParamDate_U : TDateTime;
ParamPlace : String;
ParamSpecifics : String;
ParamMeneger : String
);
procedure SetMeneger(ParamMeneger : String);
function GetMeneger : String;
end;
// г)для переменных классов таблицы "Аукционы":
Var
VarIdentAuctionsClass : TIdentAuctionsClass;
VarAuctionsClass : TAuctionsClass;
VarExtAuctionsClass : TExtAuctionsClass;
Implementation
uses OrlovClassUnit;
constructor TIdentAuctionsClass.Create(ParamID_Auctions : Integer); 
      TAuctionsClass=Class(TIdentAuctionsClass)
       private
        Date_U:TDateTime;
        Place:String[40];
        Specifics:String[60];
       public
        constructor Create(ParamID_Auctions : Integer;
                    ParamDate_U       : TDateTime;
                    ParamPlace      : String;
                    ParamSpecifics : String
                   );
        procedure SetID_Auctions(ParamID_Auctions : Integer);
        function GetID_Auctions : Integer;
        procedure SetDate_U(ParamDate_U : TDateTime);
        function GetDate_U : TDateTime;
        procedure SetPlace(ParamPlace : String);
        function GetPlace : String;
        procedure SetSpecifics(ParamSpecifics : String);
        function GetSpecifics : String;
      end;

     // в)для расширенного класса таблицы "Аукционы":
       TExtAuctionsClass=Class(TAuctionsClass)
        private
         Meneger : String;
        public
         constructor Create(ParamID_Auctions : Integer;
                     ParamDate_U      : TDateTime;
                     ParamPlace     : String;
                     ParamSpecifics : String;
                     ParamMeneger : String
                    );
          procedure SetMeneger(ParamMeneger : String);
          function GetMeneger : String;
       end;

     // г)для переменных классов таблицы "Аукционы":
     Var
       VarIdentAuctionsClass : TIdentAuctionsClass;
       VarAuctionsClass : TAuctionsClass;
       VarExtAuctionsClass : TExtAuctionsClass;

     Implementation

     uses OrlovClassUnit;

     constructor TIdentAuctionsClass.Create(ParamID_Auctions : Integer);
63

Страницы