Курсовая работа Гид по красоте Delphi7. курсовой проект. Курсовая работа по учебной дисциплине оп. 04 Основы алгоритмизации и программирования

• Название: Курсовая работа по учебной дисциплине оп. 04 Основы алгоритмизации и программирования
• Анкор: Курсовая работа Гид по красоте Delphi7
• Дата: 08.12.2021
• Размер: 1.9 Mb.
• Имя файла: курсовой проект.docx
• Тип: Курсовая; #295745
• страница: 3 из 3

btn4: TButton;

edt1: TEdit;

lbl1: TLabel;

lbl3: TLabel;

grp1: TGroupBox;

rb1: TRadioButton;

rb2: TRadioButton;

rb3: TRadioButton;

rb4: TRadioButton;

btn5: TButton;

lbl4: TLabel;

lbl5: TLabel;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure rb3Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormWednesday: TFormWednesday;

s: Integer =0 ;

implementation

uses Unit5, Unit8, Unit2;

{$R *.dfm}

procedure TFormWednesday.FormCreate(Sender: TObject);

begin

redt1.Lines.LoadFromFile('3txt.rtf');

end;

procedure TFormWednesday.btn1Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TFormWednesday.btn3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TFormWednesday.btn2Click(Sender: TObject);

begin

FormThursday.Show;

end;

procedure TFormWednesday.btn4Click(Sender: TObject);

begin

FormMenu.show;

FormWednesday.Close;

end;

procedure TFormWednesday.rb3Click(Sender: TObject);

begin

s:=s+1;

end;

procedure TFormWednesday.btn5Click(Sender: TObject);

begin

lbl4.Visible:=True;

if s =1 then

begin

lbl5.Visible:=True;

end

end;

end.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg;
type

TFormThursday = class(TForm)

lbl2: TLabel;

img1: TImage;

pnl1: TPanel;

btn1: TButton;

btn3: TButton;

redt1: TRichEdit;

btn4: TButton;

grp1: TGroupBox;

img2: TImage;

img3: TImage;

edt1: TEdit;

lbl1: TLabel;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormThursday: TFormThursday;

implementation

uses Unit5, Unit9, Unit2;

{$R *.dfm}

procedure TFormThursday.FormCreate(Sender: TObject);

begin

redt1.Lines.LoadFromFile('4txt.rtf');

end;

procedure TFormThursday.btn1Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TFormThursday.btn3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TFormThursday.btn2Click(Sender: TObject);

begin

FormFriday.Show;

end;

procedure TFormThursday.btn4Click(Sender: TObject);

begin

FormMenu.show;

FormThursday.Close;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type

TFormFriday = class(TForm)

lbl2: TLabel;

img1: TImage;

pnl1: TPanel;

btn1: TButton;

btn3: TButton;

redt1: TRichEdit;

btn4: TButton;

lbl1: TLabel;

cbb1: TComboBox;

grp1: TGroupBox;

img2: TImage;

img3: TImage;

img4: TImage;

img5: TImage;

scrlbr1: TScrollBar;

lbl3: TLabel;

lbl4: TLabel;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormFriday: TFormFriday;

implementation

uses Unit5, Unit10, Unit2;

{$R *.dfm}

procedure TFormFriday.FormCreate(Sender: TObject);

begin

redt1.Lines.LoadFromFile('5txt.rtf');
end;
procedure TFormFriday.btn1Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TFormFriday.btn3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TFormFriday.btn2Click(Sender: TObject);

begin

FormSaturday.Show;

end;

procedure TFormFriday.btn4Click(Sender: TObject);

begin

FormMenu.show;

FormFriday.Close;

end;

end.

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type

TFormSaturday = class(TForm)

lbl2: TLabel;

lbl1: TLabel;

img1: TImage;

pnl1: TPanel;

btn1: TButton;

btn3: TButton;

redt1: TRichEdit;

btn4: TButton;

pnl2: TPanel;

lbl3: TLabel;

rb1: TRadioButton;

rb2: TRadioButton;

rb3: TRadioButton;

rb4: TRadioButton;

btn5: TButton;

lbl4: TLabel;

lbl5: TLabel;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn2Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

procedure btn5Click(Sender: TObject);

procedure rb1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormSaturday: TFormSaturday;

s:Integer=0;
implementation

uses Unit5, Unit11, Unit2;

{$R *.dfm}

procedure TFormSaturday.FormCreate(Sender: TObject);

begin

redt1.Lines.LoadFromFile('6txt.rtf');

end;

procedure TFormSaturday.btn1Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TFormSaturday.btn3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TFormSaturday.btn2Click(Sender: TObject);

begin

FormSunday.Show;

end;

procedure TFormSaturday.btn4Click(Sender: TObject);

begin

FormMenu.show;

FormSaturday.Close;

end;

procedure TFormSaturday.rb1Click(Sender: TObject);

begin

s:=s+1;

end;

procedure TFormSaturday.btn5Click(Sender: TObject);

begin

lbl4.Visible:= True;

if s=1 then

begin

lbl5.Visible:= True;

end;

end;

end.

unit Unit11;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg;

type

TFormSunday = class(TForm)

lbl2: TLabel;

img1: TImage;

pnl1: TPanel;

btn1: TButton;

btn3: TButton;

redt1: TRichEdit;

btn4: TButton;

grp1: TGroupBox;

lbl1: TLabel;

img2: TImage;

cbb1: TComboBox;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

procedure btn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormSunday: TFormSunday;

Res : Integer;

implementation

uses Unit5, Unit2, Unit12;

{$R *.dfm}

procedure TFormSunday.FormCreate(Sender: TObject);

begin

redt1.Lines.LoadFromFile('7txt.rtf');

end;

procedure TFormSunday.btn1Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TFormSunday.btn3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TFormSunday.btn4Click(Sender: TObject);

begin

FormMenu.show;

FormSunday.Close;

end;

end.