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

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

Перегляд результатів

Списки властивостей і лістинги програм можна включати і в інші документи. Нижче приведений список властивостей разом з текстом програми з уроку 5. При цьому текст лістингу не обов'язково набирати наново - можна створити текстовий файл і вставити його в потрібний документ. В даному прикладі я встановив режим Друкування у файл і вибрав драйвер принтера Generic/Text, що входить до складу Windows.

Нижче приведений початковий текст прикладу з меню і панеллю інструментів з уроку 5. Не турбуйтеся, якщо у вас він виглядатиме трохи інакше - значення деяких властивостей несуттєві.

Form1 - 1

Option Explicit

Private SubmnuFileExit_Click()

End

End Sub

Private Sub tbrToolbar_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Key

Case Is = " New"

MsgBox " Натиснута кнопка New"

Case Is = " Open"

MsgBox " Натиснута кнопка Open"

Case Is = " Save"

MsgBox " Натиснута кнопка Save"

End Select

End Sub

frmData - 1

VERSION 5.00

Object = " {6B7E6392-850A-101B - AFCO - 4210102A8DA7}#1.1#0"; COMCTL32.OCX

Begin VB.Form Form1

Caption = " Form1"

ClientHeight =1572

ClientLeft =3084

ClientTop =2556

ClientWidth =3744

LinkTopic =" Form1"

ScaleHeight =1572

ScaleWidth =3744 Begin ComctlLib.Toolbar tbrToolbar

Align = 1 ' Вирівнювання по верхньому краю

Height = 336

Left = 0

TabIndex = 0

Top = 0

Width = 3744

_ExtentX = 6604

_ExtentY = 593

ButtonWidth = 487

Appearance = 1

ImageList = " imToolbar"

BeginProperty Buttons {0713E452-850A-101B - AFCO - 4210102A8DA7}

NumButtons = 4

BeginProperty Button1 {0713F354-850A-101B - AFCO - 4210102A8DA7}

Key = " "

Object.Tag = " "

Style = 3

Value = 1

MixedState = - 1 'True

EndProperty

BeginProperty Button2 {0713F354-850A-101B - AFCO - 4210102A8DA7}

Key = " New"

Object.Tag =" "

ImageIndex = 1

EndProperty

BeginProperty Button3 {0713F354-850A-101B - AFCO - 4210102A8DA7}

Key = " Open"

Object.Tag = " "

ImageIndex = 2

EndProperty

BeginProperty Button4 {0713F354-850A-101B - AFCO - 4210102A8DA7}

Key = " Save"

Object.Tag =" "

ImageIndex =3

EndProperty

EndProperty

MouseIcon = {Binary}

End

Begin ComctlLib.ImageList imlToolbar

Left = 2520

Top = 720

_ExtentX = 804

_ExtentY = 804

BackColor = - 21474836643

ImageWidth = 16

ImageHeight = 16

MskColor = 12632256

BeginProperty Images {0713E8C2-850A-101B - AFCO - 4210102A8DA7}

NumListImages = 3

BeginProperty ListImage1 {0713E8C3-850A-101B - AFCO - 4210102A8DA7}

Picture = {Binary}

Key = " "

frmData - 2

EndProperty

BeginProperty ListImage2 {0713E8C3-850A-101B - AFCO - 4210102A8DA7}

Picture = {Binary}

Key = " "

EndProperty

BeginProperty ListImage3 {0713E8C3-850A-101B - AFCO - 4210102A8DA7}

Picture = {Binary}

Key = " "

EndProperty

EndProperty

End

Begin VB.Menu mnuFile

Caption = " & File"

Begin VB.Menu mnuFileExit

Caption = " E& xit"

End

End

Begin VB.Menu mnuEdit

Caption = " & Edit"

Begin VB.Menu mnuEditCut

Caption = " Cu& t"

End

Begin VB.Menu mnuEditCopy

Caption = " & Copy"

End

Begin VB.Menu mnuEditPaste

Caption = " & Paste"

End

End

Begin VB.Menu mnuHelp

Caption = " & Help"

Begin VB.Menu mnuHelpAbout

Caption = " & About"

End

End

End