💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

ПРИЛОЖЕНИЯ. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

ПРИЛОЖЕНИЕ 1

Листинг приложения

unit Unit1;

interface

uses

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

Dialogs, jpeg, ExtCtrls, Menus, ExtDlgs, MPlayer, StdCtrls;

type

TForm1 = class(TForm)

PopupMenu1: TPopupMenu;

N11: TMenuItem;

N21: TMenuItem;

III1: TMenuItem;

IV1: TMenuItem;

N1: TMenuItem;

Image1: TImage;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

OpenPictureDialog1: TOpenPictureDialog;

MediaPlayer1: TMediaPlayer;

N5: TMenuItem;

N7: TMenuItem;

N6: TMenuItem;

ListBox1: TListBox;

FontDialog1: TFontDialog;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N7Click(Sender: TObject);

begin

If Image1.Top=0 then Image1.Top: =Form1.ClientHeight div 2

else Image1.Top: =0;

ListBox1.Items.Add('III-2/Переместить картинку');

end;

procedure TForm1.N8Click(Sender: TObject);

begin

ListBox1.Clear;

ListBox1.Items.Add('IV-1/Oчистить содержимое ListBox1');

end;

procedure TForm1.N9Click(Sender: TObject);

begin

ListBox1.Items.Add('IV-2/Показать медиаплейер');

MediaPlayer1.Visible: =true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Image1.Top: =0;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

ListBox1.Items.Add('IV-3/Скрыть картинку');

Image1.Visible: =false;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ListBox1.Items.Add('II-1/показать картинку');

Image1.Visible: =true;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ListBox1.Items.Add('II-2/скрыть медиаплейер');

MediaPlayer1.Visible: =false;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ListBox1.Items.Add('II-3/Заменить картинку');

if OpenPictureDialog1.Execute = true then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ListBox1.Items.Add('III-1/сменить цвет формы');

if Form1.Color=clMedGray then Form1.Color: =clred

else

if Form1.Color=clred then Form1.Color: =clgreen

else

Form1.Color: =clMedGray;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if FontDialog1.Execute=true then

ListBox1.Font: =FontDialog1.Font;

ListBox1.Items.Add('III-3/Изменить шрифт');

end;

end.

ПРИЛОЖЕНИЕ 2