Расчет себестоимости и цены программы

 

Таблица 4.2.1

Объем учебных часов по выбранным дисциплинам и тарифной сетки работников бюджетных организаций

Перечень дисциплин по учебному плану, выбирает студент	Часы	Тарифный разряд	Фонд оплаты труда, руб.
Экономика отрасли	77	13	3080
Математические методы	101	14	4340,98
Технология разработки программных продуктов	122	14	5243,56
Основы алгоритмизации и программирования	192	7	4535,04
Итого:	492		17199,58

 

Таблица 4.2.2

Тарифные разряды труда преподавателей и часовые тарифные ставки по оплате

Преподаватель	Тарифный разряд преподавателя	Стоимость нормо - часа (руб. - коп) Сч
Савченко Р.П.	13	40
Контанистова Е.П.	14	42,98
Коростелев М.К.	14	42,98
Молотов Д.Н.	7	23,62

 

Средняя стоимость одного нормо-часа:

 

 руб/ч.

 

Время работы над программой - 60 ч.

Основная зарплата по стоимости труда программиста равна:

 

 руб.

 

Дополнительная зарплата (отпускные, учебный отпуск и т.д.) - 20% от основной зарплаты:

 

 руб.

 

Отчисление на социальное страхование - 26% от основной зарплаты:

 

 руб.

 

Оплата труда руководителя дипломного проекта (Никонов С. В) с начислениями за 12 часов.

 

 руб.

 

Стоимость работы компьютера:

 

 руб.

 

где 45 руб. /ч. - стоимость работы одного часа компьютера; 45 ч. - время работы.

Стоимость диска - 15 руб.

Стоимость инструкции - руководство по эксплуатации: 3 руб.

Итого общие затраты - 5758,31 руб.

Накладные расходы предприятия (амортизация помещения, освещения, отопления и т.д.) составляет 10% от всех затрат:

 

 руб.

Полная себестоимость программы:

 

5758,31+575,83=6334,14 руб.

 

Для определения стоимости программы начислим плановую прибыль в размере 15% (от 10 до 25%) по выбору студента:

 

 руб.  руб.

Заключение

 

Приложение баз данных, как следует уже из его названия, предназначено для взаимодействия с некоторым источником данных - базой данных (БД). Взаимодействие подразумевает получение данных, их представление в определенном формате для просмотра пользователем, редактирование в соответствии с реализованными в программе бизнес - алгоритмами и возврат обработанных данных обратно в базу данных.

В качестве источника данных могут выступать как собственно базы данных, так и обычные файлы - текстовые, электронные таблицы и т.д. Но здесь мы будем рассматривать приложения, работающие с базами данных.

Как известно, базы данных обслуживаются специальными программами - системами управления базами данных (СУБД), которые делятся на локальные, преимущественно однопользовательские, предназначенные для настольных приложений, и серверные - сетевые (часто удаленные), многопользовательские, функционирующие на выделенных компьютерах - серверах. Главный критерий такой классификации - объем базы данных и средняя нагрузка на СУБД.

Тем не менее, несмотря на разнообразие реализаций, общая архитектура приложения баз данных остается неизменной.

Само приложение включает механизм получения и отправки данных, механизм внутреннего представления данных в том или ином виде, пользовательский интерфейс для отображения и редактирования данных, бизнес-логику для обработки данных.

Механизм получения и отправки данных обеспечивает соединение с источником данных (часто опосредованно). Он должен "знать", куда ему обращаться и какой протокол обмена использовать для обеспечения двунаправленного потока данных.

Механизм внутреннего представления данных является ядром приложения баз данных. Он обеспечивает хранение полученных данных в приложении и предоставляет их по запросу других частей приложения.

Пользовательский интерфейс обеспечивает просмотр и редактирование данных, а также управление данными и приложением в целом.

Бизнес-логика приложения представляет собой набор реализованных в программе алгоритмов обработки данных.

Между приложением и собственно базой данных находится специальное программное обеспечение (ПО), связывающее программу и источник данных и управляющее процессом обмена данными. Это ПО может быть реализовано самыми разнообразными способами, в зависимости от объема базы данных, решаемых системой задач, числа пользователей, способами соединения приложения и базы данных. Промежуточное ПО может быть реализовано как окружение приложения, без которого оно вообще не будет работать, как набор драйверов и динамических библиотек, к которым обращается приложение, может быть интегрировано в само приложение. Наконец, это может быть отдельный удаленный сервер, обслуживающий тысячи приложений.

 

Литература

 

1. Бобровский С.И. Delphi 7. - СПб.: Питер. 2004.

2. Гаевский А.Ю. Самоучитель работы на ПК. - М.: ТЕХНОЛОДЖИ. 2004.

3. Губарев В.Г. Программное обеспечение и операционные системы ПК. - Ростов н/Д.: Феникс. 2004.

4. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0. - СПб.: Корона принт. 2005.

5. Могилёв А.В., Пак Н.И., Хеннер Е.К. Практикум по информатике. М.: Академия. 2006.

6. Рудаков А.В. Технология разработки программных продуктов. - М.: Академия. 2006.

7. Кузнецова Т.В., Кузнец С.Л. Кадровое делопроизводство. - М.: ООО «Интел - синтез АПР». 2006.

Приложения

 

Приложение 1

 

 

 

     

 

 

     

 

     

 

 

 

 

Приложение 2

 

program Project1;

uses

Forms,

Unit1 in 'Unit1. pas' {Form1},

Unit2 in 'Unit2. pas' {Form2},

Unit3 in 'Unit3. pas' {Form3};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm(TForm1, Form1);

Application. Run;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, Buttons, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm1. Image1Click(Sender: TObject);

begin

Form2: =TForm2. Create(Self);

try

Form2. ShowModal;

finally

Form2. Free;

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, ComCtrls, Menus, Buttons, DB, DBTables, ExtCtrls, DBCtrls, Mask, RpDefine, RpCon, RpConDS, RpConBDE, RpRave;

type

TForm2 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

XPManifest1: TXPManifest;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Table1: TTable;

Table1Fio: TStringField;

Table1Im: TStringField;

Table1Ot: TStringField;

Table1Dd: TStringField;

Table1Dm: TStringField;

Table1Dg: TStringField;

Table1TRdn: TStringField;

Table1TRdd: TStringField;

Table1Obr: TStringField;

Table1NamObYch: TStringField;

Table1Nam: TStringField;

Table1Ser: TFloatField;

Table1Nom: TFloatField;

Table1GodOkonch: TStringField;

Table1ProfOsn: TStringField;

Table1ProfDr: TStringField;

Table1StajRabnad: TStringField;

Table1StajRabnam: TStringField;

Table1StajRabnag: TStringField;

Table1StajObd: TStringField;

Table1StajObm: TStringField;

Table1StajObg: TStringField;

Table1StajNepd: TStringField;

Table1StajNepm: TStringField;

Table1StajNepg: TStringField;

Table1Pas: TStringField;

Table1PasNom: TStringField;

Table1Pasd: TStringField;

Table1Pasm: TStringField;

Table1Pasg: TStringField;

Table1PasVid: TStringField;

Table1DatRegd: TStringField;

Table1DatRegm: TStringField;

Table1DatRegg: TStringField;

Table1NomerTel: TStringField;

Table1PrimnaRabd: TStringField;

Table1Strpod: TStringField;

Table1Dolg: TStringField;

Table1Stvka: TStringField;

Table1Osn1: TStringField;

Table1Podpes: TStringField;

Table1DatAtest: TStringField;

Table1ReshKom: TStringField;

Table1Docnom: TStringField;

Table1Docdat: TStringField;

Table1Osn2: TStringField;

Table1Datnach: TStringField;

Table1Datokoch: TStringField;

Table1Vidpovish: TStringField;

Table1NaimenObrYch: TStringField;

Table1Docnaimen: TStringField;

Table1DocSer: TStringField;

Table1Docd: TStringField;

Table1Osn3: TStringField;

Table1DataNach: TStringField;

Table1DataKon: TStringField;

Table1Special: TStringField;

Table1DokymNam: TStringField;

Table1DokymNOM: TStringField;

Table1Dokymdat: TStringField;

Table1Osn4: TStringField;

Table1KolD: TStringField;

Table1PerRabS: TStringField;

Table1PerRabPo: TStringField;

Table1KolDen: TStringField;

Table1DataNa: TStringField;

Table1DataOk: TStringField;

Table1Osn5: TStringField;

Table1Yvol: TStringField;

Table1DatYd: TStringField;

Table1DatYm: TStringField;

Table1DatYg: TStringField;

Table1PrikN: TStringField;

Table1Prikd: TStringField;

Table1Prikm: TStringField;

Table1Prikg: TStringField;

Table1RabKadSlD: TStringField;

Table1Pod: TStringField;

Table1Rashifr: TStringField;

Table1Rabotnic: TStringField;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

Label6: TLabel;

DBEdit5: TDBEdit;

Label7: TLabel;

DBEdit6: TDBEdit;

Label8: TLabel;

Label9: TLabel;

DBEdit7: TDBEdit;

Label10: TLabel;

DBEdit8: TDBEdit;

Label12: TLabel;

DBEdit10: TDBEdit;

Label13: TLabel;

DBEdit11: TDBEdit;

Label14: TLabel;

DBEdit12: TDBEdit;

Label15: TLabel;

DBEdit13: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

Label17: TLabel;

DBEdit15: TDBEdit;

Label18: TLabel;

DBEdit16: TDBEdit;

Label19: TLabel;

DBEdit17: TDBEdit;

Label20: TLabel;

Table1Grajdan: TStringField;

Table1MestoJ: TStringField;

Label11: TLabel;

DBEdit9: TDBEdit;

Label21: TLabel;

DBEdit18: TDBEdit;

Label22: TLabel;

DBEdit19: TDBEdit;

Label23: TLabel;

DBEdit20: TDBEdit;

Label24: TLabel;

DBEdit21: TDBEdit;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

DBEdit22: TDBEdit;

Label28: TLabel;

DBEdit23: TDBEdit;

Label29: TLabel;

DBEdit24: TDBEdit;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

DBEdit25: TDBEdit;

Label34: TLabel;

DBEdit26: TDBEdit;

Label35: TLabel;

DBEdit27: TDBEdit;

Panel1: TPanel;

Label36: TLabel;

Label37: TLabel;

DBEdit28: TDBEdit;

Label38: TLabel;

DBEdit29: TDBEdit;

Label39: TLabel;

DBEdit30: TDBEdit;

Label40: TLabel;

DBEdit31: TDBEdit;

Label41: TLabel;

DBEdit32: TDBEdit;

Label42: TLabel;

Label43: TLabel;

DBEdit33: TDBEdit;

Label44: TLabel;

Label45: TLabel;

DBEdit34: TDBEdit;

Label46: TLabel;

DBEdit35: TDBEdit;

Label47: TLabel;

DBEdit36: TDBEdit;

Label48: TLabel;

DBEdit37: TDBEdit;

Label49: TLabel;

Panel2: TPanel;

Label50: TLabel;

DBEdit38: TDBEdit;

Label51: TLabel;

DBEdit39: TDBEdit;

Label52: TLabel;

DBEdit40: TDBEdit;

Label53: TLabel;

DBEdit41: TDBEdit;

Label54: TLabel;

DBEdit42: TDBEdit;

Label55: TLabel;

DBEdit43: TDBEdit;

Label56: TLabel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Label57: TLabel;

Label58: TLabel;

Label59: TLabel;

Label60: TLabel;

Label61: TLabel;

Label62: TLabel;

Label63: TLabel;

DBEdit44: TDBEdit;

Label64: TLabel;

DBEdit45: TDBEdit;

Label65: TLabel;

DBEdit46: TDBEdit;

Label66: TLabel;

DBEdit47: TDBEdit;

Label67: TLabel;

DBEdit48: TDBEdit;

Label68: TLabel;

Label69: TLabel;

DBEdit49: TDBEdit;

Label70: TLabel;

DBEdit50: TDBEdit;

Label71: TLabel;

DBEdit51: TDBEdit;

Label72: TLabel;

DBEdit52: TDBEdit;

Label73: TLabel;

Label74: TLabel;

DBEdit53: TDBEdit;

Label75: TLabel;

DBEdit54: TDBEdit;

Label76: TLabel;

DBEdit55: TDBEdit;

Label77: TLabel;

DBEdit56: TDBEdit;

Label78: TLabel;

Label79: TLabel;

DBEdit57: TDBEdit;

Label80: TLabel;

DBEdit58: TDBEdit;

Label81: TLabel;

DBEdit59: TDBEdit;

Label82: TLabel;

DBEdit60: TDBEdit;

Label83: TLabel;

DBEdit61: TDBEdit;

Label84: TLabel;

DBEdit62: TDBEdit;

Label85: TLabel;

DBEdit63: TDBEdit;

Label86: TLabel;

Label87: TLabel;

Panel8: TPanel;

Label88: TLabel;

Label90: TLabel;

Panel6: TPanel;

Label89: TLabel;

DBEdit64: TDBEdit;

Label91: TLabel;

DBEdit65: TDBEdit;

Label92: TLabel;

DBEdit66: TDBEdit;

Label93: TLabel;

DBEdit67: TDBEdit;

Label94: TLabel;

DBEdit68: TDBEdit;

Label95: TLabel;

DBEdit69: TDBEdit;

Label96: TLabel;

DBEdit70: TDBEdit;

Label97: TLabel;

Label98: TLabel;

Label99: TLabel;

Label100: TLabel;

Label101: TLabel;

DBEdit71: TDBEdit;

Label102: TLabel;

DBEdit72: TDBEdit;

Label103: TLabel;

DBEdit73: TDBEdit;

Label104: TLabel;

Label105: TLabel;

DBEdit74: TDBEdit;

Label106: TLabel;

DBEdit75: TDBEdit;

Label107: TLabel;

DBEdit76: TDBEdit;

Label108: TLabel;

DBEdit77: TDBEdit;

Label109: TLabel;

DBEdit78: TDBEdit;

Label110: TLabel;

Label111: TLabel;

Label112: TLabel;

DBEdit79: TDBEdit;

Label114: TLabel;

DBEdit81: TDBEdit;

Label115: TLabel;

RvTableConnection1: TRvTableConnection;

RvProject1: TRvProject;

RvTableConnection2: TRvTableConnection;

RvProject2: TRvProject;

RvTableConnection3: TRvTableConnection;

RvProject3: TRvProject;

N7: TMenuItem;

N8: TMenuItem;

procedure N2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label32MouseLeave(Sender: TObject);

procedure Label32Click(Sender: TObject);

procedure Label36Click(Sender: TObject);

procedure Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label49Click(Sender: TObject);

procedure Label56Click(Sender: TObject);

procedure Label49MouseLeave(Sender: TObject);

procedure Label57Click(Sender: TObject);

procedure Label58Click(Sender: TObject);

procedure Label59Click(Sender: TObject);

procedure Label60Click(Sender: TObject);

procedure Label61Click(Sender: TObject);

procedure Label62Click(Sender: TObject);

procedure Label88Click(Sender: TObject);

procedure Label99Click(Sender: TObject);

procedure Label100Click(Sender: TObject);

procedure Label90Click(Sender: TObject);

procedure Label57MouseLeave(Sender: TObject);

procedure Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label58MouseLeave(Sender: TObject);

procedure Label59MouseLeave(Sender: TObject);

procedure Label88MouseLeave(Sender: TObject);

procedure Label100MouseLeave(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *. dfm}

procedure TForm2. N2Click(Sender: TObject);

begin

form1. Close;

end;

procedure TForm2. FormCreate(Sender: TObject);

var s: string;

begin

Table1. Active: =true;

Label36. Cursor: =crHandPoint;

Label32. Cursor: =crHandPoint;

Label49. Cursor: =crHandPoint;

Label56. Cursor: =crHandPoint;

Label57. Cursor: =crHandPoint;

Label58. Cursor: =crHandPoint;

Label59. Cursor: =crHandPoint;

Label60. Cursor: =crHandPoint;

Label61. Cursor: =crHandPoint;

Label62. Cursor: =crHandPoint;

Label88. Cursor: =crHandPoint;

Label90. Cursor: =crHandPoint;

Label99. Cursor: =crHandPoint;

Label100. Cursor: =crHandPoint;

end;

procedure TForm2. Label32MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label32. Font. Color: =clBlue;

end;

procedure TForm2. Label32MouseLeave(Sender: TObject);

begin

Label32. Font. Color: =clBlack;

end;

procedure TForm2. Label32Click(Sender: TObject);

begin

Panel1. Visible: =true;

Label32. Visible: =false;

end;

procedure TForm2. Label36Click(Sender: TObject);

begin

Panel1. Visible: =false;

Label32. Visible: =true;

end;

procedure TForm2. Label49MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label49. Font. Color: =clBlue;

end;

procedure TForm2. Label49Click(Sender: TObject);

begin

Panel2. Visible: =true;

Label49. Visible: =false;

end;

procedure TForm2. Label56Click(Sender: TObject);

begin

Panel2. Visible: =false;

Label49. Visible: =true;

end;

procedure TForm2. Label49MouseLeave(Sender: TObject);

begin

Label49. Font. Color: =clBlack;

end;

procedure TForm2. Label57Click(Sender: TObject);

begin

Panel3. Visible: =true;

Label57. Visible: =false;

end;

procedure TForm2. Label58Click(Sender: TObject);

begin

Panel4. Visible: =true;

Label58. Visible: =false;

end;

procedure TForm2. Label59Click(Sender: TObject);

begin

Panel5. Visible: =true;

Label59. Visible: =false;

end;

procedure TForm2. Label60Click(Sender: TObject);

begin

Panel3. Visible: =false;

Label57. Visible: =true;

end;

procedure TForm2. Label61Click(Sender: TObject);

begin

Panel4. Visible: =false;

Label58. Visible: =true;

end;

procedure TForm2. Label62Click(Sender: TObject);

begin

Panel5. Visible: =false;

Label59. Visible: =true;

end;

procedure TForm2. Label88Click(Sender: TObject);

begin

label88. Visible: =false;

Panel6. Visible: =true;

end;

procedure TForm2. Label99Click(Sender: TObject);

begin

label88. Visible: =true;

Panel6. Visible: =false;

end;

procedure TForm2. Label100Click(Sender: TObject);

begin

Label100. Visible: =false;

Panel8. Visible: =true;

end;

procedure TForm2. Label90Click(Sender: TObject);

begin

Label100. Visible: =true;

Panel8. Visible: =false;

end;

procedure TForm2. Label57MouseLeave(Sender: TObject);

begin

Label57. Font. Color: =clBlack;

end;

procedure TForm2. Label57MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label57. Font. Color: =clBlue;

end;

procedure TForm2. Label58MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label58. Font. Color: =clBlue;

end;

procedure TForm2. Label59MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label59. Font. Color: =clBlue;

end;

procedure TForm2. Label88MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label88. Font. Color: =clBlue;

end;

procedure TForm2. Label100MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label100. Font. Color: =clBlue;

end;

procedure TForm2. Label58MouseLeave(Sender: TObject);

begin

Label58. Font. Color: =clBlack;

end;

procedure TForm2. Label59MouseLeave(Sender: TObject);

begin

Label59. Font. Color: =clBlack;

end;

procedure TForm2. Label88MouseLeave(Sender: TObject);

begin

Label88. Font. Color: =clBlack;

end;

procedure TForm2. Label100MouseLeave(Sender: TObject);

begin

Label100. Font. Color: =clBlack;

end;

procedure TForm2. N6Click(Sender: TObject);

begin

RvProject1. Execute;

end;

procedure TForm2. N4Click(Sender: TObject);

begin

Form3: =TForm3. Create(Self);

try

Form3. ShowModal;

finally

Form3. Free;

end;

end;

procedure TForm2. N7Click(Sender: TObject);

begin

RvProject2. Execute;

end;

procedure TForm2. N8Click(Sender: TObject);

begin

RvProject3. Execute;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellApi, jpeg, OleCtrls, SHDocVw, XPMan, Buttons;

type

TForm3 = class(TForm)

Panel1: TPanel;

Image1: TImage;

Label3: TLabel;

Label6: TLabel;

XPManifest1: TXPManifest;

Label7: TLabel;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

procedure FormCreate(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Label6MouseLeave(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *. dfm}

procedure TForm3. FormCreate(Sender: TObject);

begin

Image1. Picture. LoadFromFile('Мы 0085959595. jpg');

end;

Procedure AutoSendMail;

Var

EMailDestinationString,SubjectString,Line1String,Line2String,mailstring: String;

begin

EMailDestinationString: ='aleks_bugaev@mail. ru';

SubjectString: ='Message Subject';

Line1String: ='This is the first line';

Line2String: ='This is the second line';

 // Можно использовать несколько адресов, разделяя их точкой с запятой //

mailstring: ='mailto: ' + EMailDestinationString +

'? subject=' + SubjectString +

'&body='+ Line1String +

'%0d' + Line2String;

if (ShellExecute(0,'open',PChar(mailstring),'','',SW_SHOWNORMAL) <=32) then

ShowMessage('Auto method failed. ');

end;

procedure TForm3. Label6Click(Sender: TObject);

begin

AutoSendMail;

end;

procedure TForm3. Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

Label6. Font. Color: =clBlue;

Label7. Font. Color: =clBlue;

end;

procedure TForm3. Label6MouseLeave(Sender: TObject);

begin

Label6. Font. Color: =clBlack;

Label7. Font. Color: =clBlack;

end;

end.