Файл: Проектирование реализации операций бизнес-процесса «Учет предоставленных услуг салоном красоты» (Выбор комплекса задач автоматизации).pdf

Сделать презентацию

Скачать файл (0,63Мб)

Заказать решение

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 26.05.2023

Просмотров: 290

Скачиваний: 2

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

Введение

1 ГЛАВА. АНАЛИТИЧЕСКАЯ ЧАСТЬ

1.1. Характеристика комплекса задач

1.2. Обоснование проектных решений

2 ГЛАВА. ПРОЕКТНАЯ ЧАСТЬ

2.1. Информационное обеспечение задачи

2.2. Программное обеспечение задачи

2.3. Контрольный пример реализации проекта и его описание

Заключение

Библиография

Form7.show

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form8.show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

WinExec('hh.exe Справка.chm',SW_SHOW);

end;

end.

Форма Клиенты.

var

Form2: TForm2;

WordApp, Doc, app, book, sheet, Excel: variant;

implementation

uses ComObj;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

ADOTable1.Refresh;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if MessageDlg('Вы уверены что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) = mrOk

then ADOTable1.Delete;

end;

procedure TForm2.Button4Click(Sender: TObject);

var book,sheet,Excel:Variant;

i:integer;

CurDir:string;

begin

Excel:=CreateOleObject('Excel.Application');

book:=Excel.WorkBooks.Add;

book.Worksheets[3].Delete;

book.Worksheets[2].Delete;

book.Worksheets[1].Name:='Клиенты';

sheet:=book.Worksheets[1];

ADOTable1.First;

sheet.Range['D1']:='Клиенты';

sheet.Range['B6']:='IDКлиента';

sheet.Range['C6']:='Фамилия';

sheet.Range['d6']:='Имя';

sheet.Range['e6']:='Отчество';

sheet.Range['f6']:='Телефон';

//sheet.Range['g6']:='СерияПаспорта';

//sheet.Range['h6']:='НомерПаспорта';

//sheet.Range['A1:E1'].Select;

sheet.Range['b6:h6'].Borders[8].LineStyle:=1;

sheet.Range['B6:h6'].Borders[8].Weight:=-4138;

sheet.Range['B6:h6'].Borders[8].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[9].LineStyle:=1;

sheet.Range['B6:h6'].Borders[9].Weight:=-4138;

sheet.Range['B6:h6'].Borders[9].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[10].LineStyle:=1;

sheet.Range['B6:h6'].Borders[10].Weight:=-4138;

sheet.Range['B6:h6'].Borders[10].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[11].LineStyle:=1;

sheet.Range['B6:h6'].Borders[11].Weight:=-4138;

sheet.Range['B6:h6'].Borders[11].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[11].LineStyle:=1;

sheet.Range['B6:h6'].Borders[11].Weight:=-4138;

Sheet.Columns['B:B'].columnWidth:=10;

Sheet.Columns['C:C'].columnWidth:=30;

Sheet.Columns['D:D'].columnWidth:=20;

Sheet.Columns['E:E'].columnWidth:=20;

Sheet.Columns['F:F'].columnWidth:=15;

Sheet.Columns['g:g'].columnWidth:=20;

Sheet.Columns['h:h'].columnWidth:=20;

for i:=1 to ADOTable1.RecordCount do

begin

sheet.Cells[i+5,1].Borders[10].LineStyle:=1;

sheet.Cells[i+5,1].Borders[10].Weight:=-4138;

sheet.Cells[i+5,1].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,1].Borders[10].LineStyle:=1;

sheet.Cells[i+6,1].Borders[10].Weight:=-4138;

sheet.Cells[i+6,1].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2].Borders[10].LineStyle:=1;

sheet.Cells[i+6,2].Borders[10].Weight:=-4138;

sheet.Cells[i+6,2].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,3].Borders[10].LineStyle:=1;

sheet.Cells[i+6,3].Borders[10].Weight:=-4138;

sheet.Cells[i+6,3].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,4].Borders[10].LineStyle:=1;

sheet.Cells[i+6,4].Borders[10].Weight:=-4138;

sheet.Cells[i+6,4].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,5].Borders[10].LineStyle:=1;

sheet.Cells[i+6,5].Borders[10].Weight:=-4138;

sheet.Cells[i+6,5].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,6].Borders[10].LineStyle:=1;

sheet.Cells[i+6,6].Borders[10].Weight:=-4138;

sheet.Cells[i+6,6].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2].Borders[8].LineStyle:=1;

sheet.Cells[i+6,2].Borders[8].Weight:=-4138;

sheet.Cells[i+6,2].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,3].Borders[8].LineStyle:=1;

sheet.Cells[i+6,3].Borders[8].Weight:=-4138;

sheet.Cells[i+6,3].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,4].Borders[8].LineStyle:=1;

sheet.Cells[i+6,4].Borders[8].Weight:=-4138;

sheet.Cells[i+6,4].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,5].Borders[8].LineStyle:=1;

sheet.Cells[i+6,5].Borders[8].Weight:=-4138;

sheet.Cells[i+6,5].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,6].Borders[8].LineStyle:=1;

sheet.Cells[i+6,6].Borders[8].Weight:=-4138;

sheet.Cells[i+6,6].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,7].Borders[8].LineStyle:=1;

sheet.Cells[i+6,7].Borders[8].Weight:=-4138;

sheet.Cells[i+6,7].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,7].Borders[10].LineStyle:=1;

sheet.Cells[i+6,7].Borders[10].Weight:=-4138;

sheet.Cells[i+6,7].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,8].Borders[8].LineStyle:=1;

sheet.Cells[i+6,8].Borders[8].Weight:=-4138;

sheet.Cells[i+6,8].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,8].Borders[10].LineStyle:=1;

sheet.Cells[i+6,8].Borders[10].Weight:=-4138;

sheet.Cells[i+6,8].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2]:=ADOTable1.FieldByName('ID_Klienti').AsString;

sheet.Cells[i+6,3]:=ADOTable1.FieldByName('Familiya').AsString;

sheet.Cells[i+6,4]:=ADOTable1.FieldByName('Imya').AsString;

sheet.Cells[i+6,5]:=ADOTable1.FieldByName('Otchestvo').AsString;

sheet.Cells[i+6,6]:=ADOTable1.FieldByName('Telefon').AsString;

ADOTable1.Next;

end;

for i:=2 to 8do

begin

sheet.Cells[ADOTable1.RecordCount+6,i].Borders[9].LineStyle:=1;

sheet.Cells[ADOTable1.RecordCount+6,i].Borders[9].Weight:=-4138;

sheet.Cells[ADOTable1.RecordCount+6,i].Borders[9].ColorIndex:=-4105;

end;

CurDir:=GetCurrentDir;

Excel.DisplayAlerts:=false;

book.SaveAs(CurDir+'Клиенты.xls');

Excel.Visible:=true;

end;

procedure TForm2.Button5Click(Sender: TObject);

Begin;

Excel := CreateOleObject('Excel.Application');

Excel.Visible := True;

Excel.Workbooks.Open('C:\Клиент.xls');

Excel.ActiveSheet.Range['A7'].Value:= DBEdit1.Text;

Excel.ActiveSheet.Range['b7'].Value:= DBEdit2.Text;

Excel.ActiveSheet.Range['c7'].Value:= DBEdit3.Text;

Excel.ActiveSheet.Range['d7'].Value:= DBEdit4.Text;

Excel.ActiveSheet.Range['e7'].Value:= dbEdit5.Text;

end;

end.

Форма Парикмахеры

procedure TForm3.Button1Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

ADOTable1.Refresh;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

if MessageDlg('Вы уверены что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) = mrOk

then ADOTable1.Delete;

end;

end.

Форма Расписание

procedure TForm4.Button1Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

ADOTable1.Refresh;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

if MessageDlg('Вы уверены что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) = mrOk

then ADOTable1.Delete;

end;

end.

Форма Средства.

procedure TForm5.Button4Click(Sender: TObject);

var book,sheet,Excel:Variant;

i:integer;

CurDir:string;

begin

Excel:=CreateOleObject('Excel.Application');

book:=Excel.WorkBooks.Add;

book.Worksheets[3].Delete;

book.Worksheets[2].Delete;

book.Worksheets[1].Name:='Средств';

sheet:=book.Worksheets[1];

ADOTable1.First;

sheet.Range['D1']:='Средства';

sheet.Range['B6']:='IDСредства';

sheet.Range['C6']:='Название';

sheet.Range['d6']:='Цена';

sheet.Range['e6']:='Количество';

sheet.Range['f6']:='Наличие';

sheet.Range['b6:h6'].Borders[8].LineStyle:=1;

sheet.Range['B6:h6'].Borders[8].Weight:=-4138;

sheet.Range['B6:h6'].Borders[8].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[9].LineStyle:=1;

sheet.Range['B6:h6'].Borders[9].Weight:=-4138;

sheet.Range['B6:h6'].Borders[9].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[10].LineStyle:=1;

sheet.Range['B6:h6'].Borders[10].Weight:=-4138;

sheet.Range['B6:h6'].Borders[10].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[11].LineStyle:=1;

sheet.Range['B6:h6'].Borders[11].Weight:=-4138;

sheet.Range['B6:h6'].Borders[11].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[11].LineStyle:=1;

sheet.Range['B6:h6'].Borders[11].Weight:=-4138;

Sheet.Columns['B:B'].columnWidth:=10;

Sheet.Columns['C:C'].columnWidth:=30;

Sheet.Columns['D:D'].columnWidth:=20;

Sheet.Columns['E:E'].columnWidth:=20;

Sheet.Columns['F:F'].columnWidth:=15;

Sheet.Columns['g:g'].columnWidth:=20;

Sheet.Columns['h:h'].columnWidth:=20;

for i:=1 to ADOTable1.RecordCount do

begin

sheet.Cells[i+5,1].Borders[10].LineStyle:=1;

sheet.Cells[i+5,1].Borders[10].Weight:=-4138;

sheet.Cells[i+5,1].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,1].Borders[10].LineStyle:=1;

sheet.Cells[i+6,1].Borders[10].Weight:=-4138;

sheet.Cells[i+6,1].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2].Borders[10].LineStyle:=1;

sheet.Cells[i+6,2].Borders[10].Weight:=-4138;

sheet.Cells[i+6,2].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,3].Borders[10].LineStyle:=1;

sheet.Cells[i+6,3].Borders[10].Weight:=-4138;

sheet.Cells[i+6,3].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,4].Borders[10].LineStyle:=1;

sheet.Cells[i+6,4].Borders[10].Weight:=-4138;

sheet.Cells[i+6,4].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,5].Borders[10].LineStyle:=1;

sheet.Cells[i+6,5].Borders[10].Weight:=-4138;

sheet.Cells[i+6,5].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,6].Borders[10].LineStyle:=1;

sheet.Cells[i+6,6].Borders[10].Weight:=-4138;

sheet.Cells[i+6,6].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2].Borders[8].LineStyle:=1;

sheet.Cells[i+6,2].Borders[8].Weight:=-4138;

sheet.Cells[i+6,2].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,3].Borders[8].LineStyle:=1;

sheet.Cells[i+6,3].Borders[8].Weight:=-4138;

sheet.Cells[i+6,3].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,4].Borders[8].LineStyle:=1;

sheet.Cells[i+6,4].Borders[8].Weight:=-4138;

sheet.Cells[i+6,4].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,5].Borders[8].LineStyle:=1;

sheet.Cells[i+6,5].Borders[8].Weight:=-4138;

sheet.Cells[i+6,5].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,6].Borders[8].LineStyle:=1;

sheet.Cells[i+6,6].Borders[8].Weight:=-4138;

sheet.Cells[i+6,6].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,7].Borders[8].LineStyle:=1;

sheet.Cells[i+6,7].Borders[8].Weight:=-4138;

sheet.Cells[i+6,7].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,7].Borders[10].LineStyle:=1;

sheet.Cells[i+6,7].Borders[10].Weight:=-4138;

sheet.Cells[i+6,7].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,8].Borders[8].LineStyle:=1;

sheet.Cells[i+6,8].Borders[8].Weight:=-4138;

sheet.Cells[i+6,8].Borders[8].ColorIndex:=-4105;

sheet.Cells[i+6,8].Borders[10].LineStyle:=1;

sheet.Cells[i+6,8].Borders[10].Weight:=-4138;

sheet.Cells[i+6,8].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2]:=ADOTable1.FieldByName('ID_Sredstva').AsString;

sheet.Cells[i+6,3]:=ADOTable1.FieldByName('Nazvanie').AsString;

sheet.Cells[i+6,4]:=ADOTable1.FieldByName('Cena').AsString;

sheet.Cells[i+6,5]:=ADOTable1.FieldByName('Kolichestvo').AsString;

sheet.Cells[i+6,6]:=ADOTable1.FieldByName('Nalichie').AsString;

ADOTable1.Next;

end;

for i:=2 to 8do

begin

sheet.Cells[ADOTable1.RecordCount+6,i].Borders[9].LineStyle:=1;

sheet.Cells[ADOTable1.RecordCount+6,i].Borders[9].Weight:=-4138;

sheet.Cells[ADOTable1.RecordCount+6,i].Borders[9].ColorIndex:=-4105;

end;

CurDir:=GetCurrentDir;

Excel.DisplayAlerts:=false;

book.SaveAs(CurDir+'Средств.xls');

Excel.Visible:=true;

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

Excel := CreateOleObject('Excel.Application');

Excel.Visible := True;

Excel.Workbooks.Open('C:\Средства.xls');

Excel.ActiveSheet.Range['A7'].Value:= DBEdit1.Text;

Excel.ActiveSheet.Range['b7'].Value:= DBEdit2.Text;

Excel.ActiveSheet.Range['c7'].Value:= DBEdit3.Text;

Excel.ActiveSheet.Range['d7'].Value:= DBEdit4.Text;

Excel.ActiveSheet.Range['e7'].Value:= dbEdit5.Text;

end;

end.

Форма Услуги.

procedure TForm6.Button1Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

ADOTable1.Refresh;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

if MessageDlg('Вы уверены что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) = mrOk

then ADOTable1.Delete;

end;

end.

Форма Заявки.

var

Form7: TForm7;

WordApp, Doc, app, book, sheet, Excel: variant;

implementation

uses ComObj;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

begin

ADOTable1.Insert;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

ADOTable1.Refresh;

end;

procedure TForm7.Button3Click(Sender: TObject);

begin

if MessageDlg('Вы уверены что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) = mrOk

then ADOTable1.Delete;

end;

procedure TForm7.Button4Click(Sender: TObject);

var book,sheet,Excel:Variant;

i:integer;

CurDir:string;

begin

Excel:=CreateOleObject('Excel.Application');

book:=Excel.WorkBooks.Add;

book.Worksheets[3].Delete;

book.Worksheets[2].Delete;

book.Worksheets[1].Name:='Заявка';

sheet:=book.Worksheets[1];

ADOTable1.First;

sheet.Range['D1']:='Заявки';

sheet.Range['B6']:='ID Заявки';

sheet.Range['C6']:='ID Клиента';

sheet.Range['d6']:='ID Парикмахера';

sheet.Range['e6']:='ID Услуги';

sheet.Range['f6']:='Дата Записи';

sheet.Range['g6']:='Время';

sheet.Range['h6']:='Дата выполнения';

//sheet.Range['A1:E1'].Select;

sheet.Range['b6:h6'].Borders[8].LineStyle:=1;

sheet.Range['B6:h6'].Borders[8].Weight:=-4138;

sheet.Range['B6:h6'].Borders[8].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[9].LineStyle:=1;

sheet.Range['B6:h6'].Borders[9].Weight:=-4138;

sheet.Range['B6:h6'].Borders[9].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[10].LineStyle:=1;

sheet.Range['B6:h6'].Borders[10].Weight:=-4138;

sheet.Range['B6:h6'].Borders[10].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[11].LineStyle:=1;

sheet.Range['B6:h6'].Borders[11].Weight:=-4138;

sheet.Range['B6:h6'].Borders[11].ColorIndex:=-4105;

sheet.Range['B6:h6'].Borders[11].LineStyle:=1;

sheet.Range['B6:h6'].Borders[11].Weight:=-4138;

Sheet.Columns['B:B'].columnWidth:=10;

Sheet.Columns['C:C'].columnWidth:=30;

Sheet.Columns['D:D'].columnWidth:=20;

Sheet.Columns['E:E'].columnWidth:=20;

Sheet.Columns['F:F'].columnWidth:=15;

Sheet.Columns['g:g'].columnWidth:=20;

Sheet.Columns['h:h'].columnWidth:=20;

for i:=1 to ADOTable1.RecordCount do

begin

sheet.Cells[i+5,1].Borders[10].LineStyle:=1;

sheet.Cells[i+5,1].Borders[10].Weight:=-4138;

sheet.Cells[i+5,1].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,1].Borders[10].LineStyle:=1;

sheet.Cells[i+6,1].Borders[10].Weight:=-4138;

sheet.Cells[i+6,1].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2].Borders[10].LineStyle:=1;

sheet.Cells[i+6,2].Borders[10].Weight:=-4138;

sheet.Cells[i+6,2].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,3].Borders[10].LineStyle:=1;

sheet.Cells[i+6,3].Borders[10].Weight:=-4138;

sheet.Cells[i+6,3].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,4].Borders[10].LineStyle:=1;

sheet.Cells[i+6,4].Borders[10].Weight:=-4138;

sheet.Cells[i+6,4].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,5].Borders[10].LineStyle:=1;

sheet.Cells[i+6,5].Borders[10].Weight:=-4138;

sheet.Cells[i+6,5].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,6].Borders[10].LineStyle:=1;

sheet.Cells[i+6,6].Borders[10].Weight:=-4138;

sheet.Cells[i+6,6].Borders[10].ColorIndex:=-4105;

sheet.Cells[i+6,2].Borders[8].LineStyle:=1;

sheet.Cells[i+6,2].Borders[8].Weight:=-4138;

Смотрите также файлы

Виды и состав угроз информационной безопасности (Основные принципы информационной безопасности).pdf

Роль информационного права и информационной безопасности в современном мире.pdf

Проектирование реализации операций бизнес-процесса «Расчет заработной платы» (Среда создания программы).pdf

Правовое регулирование рекламной деятельности (Особенности правового регулирования рекламы).pdf

Виды и состав угроз информационной безопасности (Основные понятия информационной безопасности).pdf

Файл: Проектирование реализации операций бизнес-процесса «Учет предоставленных услуг салоном красоты» (Выбор комплекса задач автоматизации).pdf

Смотрите также файлы

Информация

Списки файлов

Дополнительно