Файл: Проектирование реализации операций бизнес-процесса «Расчет заработной платы». (Обоснование проектных решений по информационному обеспечению).pdf

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

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

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

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

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

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

Добавлен: 25.05.2023

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

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

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

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

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

1.1. Выбор комплекса задач автоматизации

1.2. Характеристика существующих бизнес – процессов

1.3. Характеристика документооборота, возникающего при решении задачи.

1.4. Обоснование проектных решений по информационному обеспечению.

1.5. Обоснование проектных решений по программному обеспечению.

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

2.1. Информационная модель и её описание.

2.2. Характеристика нормативно-справочной, входной и оперативной информации

2.3. Характеристика результатной информации.

2.4. Общие положения (дерево функций и сценарий диалога).

2.5. Характеристика базы данных.

2.6. Структурная схема пакета (дерево вызова программных модулей).

2.7 Описание программных модулей.

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

ЗАКЛЮЧЕНИЕ

СПИСОК ЛИТЕРАТУРЫ

EditForm.Edit3.Text:=MainForm.StringGrid1.Cells[2,1];

EditForm.Edit4.Text:=MainForm.StringGrid1.Cells[3,1];

EditForm.Edit5.Text:=MainForm.StringGrid1.Cells[4,1];

EditForm.Edit6.Text:=MainForm.StringGrid1.Cells[5,1];

end;

procedure TMainForm.AboutClick(Sender: TObject);

begin

Application.CreateForm(TObForm, ObForm);

ObForm.Show

end;

procedure TMainForm.CloseFilesssClick(Sender: TObject);

var

i : integer;

begin

For i:=1 to StringGrid1.RowCount-1 do

StringGrid1.Rows[i].Clear;

Save.Enabled:=False;

Sohranit.Enabled:=False;

Add.Enabled:=False;

Edit.Enabled:=False;

Find.Enabled:=False;

ZP.Enabled:=False;

Vedom.Enabled:=False;

Sprav.Enabled:=False;

addPOP.Enabled:=False;

EditPOP.Enabled:=False;

FindPOP.Enabled:=False;

DeletePOP.Enabled:=False;

CloseFilesss.Enabled:=False;

ToolButton2.Enabled:=False;

ToolButton4.Enabled:=False;

ToolButton5.Enabled:=False;

ToolButton8.Enabled:=False;

ToolButton9.Enabled:=False;

ToolButton10.Enabled:=False;

ToolButton6.Enabled:=False;

end;

procedure TMainForm.ExitProgClick(Sender: TObject);

var

F : Integer;

Begin

F:=MessageDlg('Вы действительно хотите выйти', mtError, [mbYes,mbNo] , 0);

if F=mrYes then

begin

Close;

end; end;

procedure TMainForm.ToolButton1Click(Sender: TObject);

Var I : Byte;

F : TextFile;

S : String;

begin

If SaveDialog1.Execute then

begin

FName1 := SaveDialog1.FileName;

Memo1.Lines.SaveToFile(FName1);

FName1 := SaveDialog1.FileName;

AssignFile(F, FName1);

Reset(F);

with TStringList.Create do

try LoadFromFile(SaveDialog1.FileName);

stringgrid1.RowCount:=Count;

with stringgrid1 do

begin

cells[0,0]:='№';

cells[1,0]:='Фамилия';

cells[2,0]:='Имя';

cells[3,0]:='Отчество';

cells[4,0]:='Кол-во часов';

cells[5,0]:='Ставка';

end;

For i := 0 to Count - 1 do begin

stringgrid1.Rows[i+1].CommaText:=Strings[i];

end;

finally

end;

CloseFile(F);

EditForm.Edit1.Text:=MainForm.StringGrid1.Cells[0,1];

EditForm.Edit2.Text:=MainForm.StringGrid1.Cells[1,1];

EditForm.Edit3.Text:=MainForm.StringGrid1.Cells[2,1];

EditForm.Edit4.Text:=MainForm.StringGrid1.Cells[3,1];

EditForm.Edit5.Text:=MainForm.StringGrid1.Cells[4,1];

EditForm.Edit6.Text:=MainForm.StringGrid1.Cells[5,1];

Save.Enabled:=True;

Sohranit.Enabled:=True;

Add.Enabled:=True;

Edit.Enabled:=True;

Find.Enabled:=True;

ZP.Enabled:=True;

Vedom.Enabled:=True;

Sprav.Enabled:=True;

addPOP.Enabled:=True;

EditPOP.Enabled:=True;

FindPOP.Enabled:=True;

DeletePOP.Enabled:=True;

CloseFilesss.Enabled:=True;

ToolButton2.Enabled:=True;

ToolButton4.Enabled:=True;

ToolButton5.Enabled:=True;

ToolButton8.Enabled:=True;

ToolButton9.Enabled:=True;

ToolButton10.Enabled:=True;

ToolButton6.Enabled:=True;

end

else

ShowMessage('Вы не выбрали файл!');

end;

procedure TMainForm.ToolButton3Click(Sender: TObject);

var

i : Integer;

F : TextFile;

FName: string;

begin

if OpenDialog1.Execute then

begin

FName := OpenDialog1.FileName;

AssignFile(F, FName); //Описание файла

Reset(F);

with TStringList.Create do

try LoadFromFile(OpenDialog1.FileName);

stringgrid1.RowCount:=Count;

with stringgrid1 do

begin

cells[0,0]:='№'; //Заполение Шапки

cells[1,0]:='Фамилия';

cells[2,0]:='Имя';

cells[3,0]:='Отчество';

cells[4,0]:='Кол-во часов';

cells[5,0]:='Ставка';

end;

For i := 0 to Count - 1 do begin //Заполнение Таблицы

stringgrid1.Rows[i+1].CommaText:=Strings[i];

end;

finally

end;

CloseFile(F);

AutoSizeGridColumn(MainForm.StringGrid1, 1);

AutoSizeGridColumn(MainForm.StringGrid1, 2);

AutoSizeGridColumn(MainForm.StringGrid1, 3);

AutoSizeGridColumn(MainForm.StringGrid1, 4);

AutoSizeGridColumn(MainForm.StringGrid1, 5);

EditForm.Edit1.Text:=MainForm.StringGrid1.Cells[0,1]; //Передача переменных на другую форму

EditForm.Edit2.Text:=MainForm.StringGrid1.Cells[1,1];

EditForm.Edit3.Text:=MainForm.StringGrid1.Cells[2,1];

EditForm.Edit4.Text:=MainForm.StringGrid1.Cells[3,1];

EditForm.Edit5.Text:=MainForm.StringGrid1.Cells[4,1];

EditForm.Edit6.Text:=MainForm.StringGrid1.Cells[5,1];

Save.Enabled:=True;

Sohranit.Enabled:=True;

Add.Enabled:=True;

Edit.Enabled:=True;

Find.Enabled:=True;

ZP.Enabled:=True;

Vedom.Enabled:=True;

Sprav.Enabled:=True;

addPOP.Enabled:=True;

EditPOP.Enabled:=True;

FindPOP.Enabled:=True;

DeletePOP.Enabled:=True;

CloseFilesss.Enabled:=True;

ToolButton2.Enabled:=True;

ToolButton4.Enabled:=True;

ToolButton5.Enabled:=True;

ToolButton8.Enabled:=True;

ToolButton9.Enabled:=True;

ToolButton10.Enabled:=True;

ToolButton6.Enabled:=True;

end

else

ShowMessage('Вы не выбрали файл!');

end;

procedure TMainForm.ToolButton4Click(Sender: TObject);

{процедура Сохранить как в файл}

Var I : Byte;

F : TextFile;

S : String;

FName: string;

begin

if SaveDialog1.Execute then

begin

FName := SaveDialog1.FileName;

AssignFile(F, FName);

Rewrite(F);

For I := 1 to StringGrid1.RowCount - 1 do

begin S := StringGrid1.Cells[0,I] +' '+StringGrid1.Cells[1,I] +' '+StringGrid1.Cells[2,I] +' '+StringGrid1.Cells[3,I] +' '+StringGrid1.Cells[4,I] +' '+StringGrid1.Cells[5,I];

Writeln(F,S);

end;

Writeln(F,''); //корректировка записи

CloseFile(F);

FName := SaveDialog1.FileName;//и сразу открываем для чтения

AssignFile(F, FName);

Reset(F);

with TStringList.Create do

try LoadFromFile(SaveDialog1.FileName);

stringgrid1.RowCount:=Count;

a:=Count;

with stringgrid1 do

begin

cells[0,0]:='№';

cells[1,0]:='Фамилия';

cells[2,0]:='Имя';

cells[3,0]:='Отчество';

cells[4,0]:='Кол-во часов';

cells[5,0]:='Ставка';

end;

For i := 0 to Count - 1 do begin

stringgrid1.Rows[i+1].CommaText:=Strings[i];

end;

finally

end;

CloseFile(F);

AutoSizeGridColumn(MainForm.StringGrid1, 1);

AutoSizeGridColumn(MainForm.StringGrid1, 2);

AutoSizeGridColumn(MainForm.StringGrid1, 3);

AutoSizeGridColumn(MainForm.StringGrid1, 4);

AutoSizeGridColumn(MainForm.StringGrid1, 5);

EditForm.Edit1.Text:=MainForm.StringGrid1.Cells[0,1];

EditForm.Edit2.Text:=MainForm.StringGrid1.Cells[1,1];

EditForm.Edit3.Text:=MainForm.StringGrid1.Cells[2,1];

EditForm.Edit4.Text:=MainForm.StringGrid1.Cells[3,1];

EditForm.Edit5.Text:=MainForm.StringGrid1.Cells[4,1];

EditForm.Edit6.Text:=MainForm.StringGrid1.Cells[5,1];

end

else

ShowMessage('Вы не выбрали файл!');

end;

procedure TMainForm.ToolButton2Click(Sender: TObject);

Var I : Byte;

F : TextFile;

S : String;

begin

FName1 := SaveDialog1.FileName;

AssignFile(F, FName1);

Rewrite(F);

For I := 1 to StringGrid1.RowCount - 1 do

begin

S := StringGrid1.Cells[0,I] +' '+StringGrid1.Cells[1,I] +' '+StringGrid1.Cells[2,I] +' '+StringGrid1.Cells[3,I] +' '+StringGrid1.Cells[4,I] +' '+StringGrid1.Cells[5,I];

Writeln(F,S);

end;

Writeln(F,''); //корректировка записи

CloseFile(F);

FName1 := SaveDialog1.FileName;//и сразу открываем для чтения

AssignFile(F, FName1);

Reset(F);

with TStringList.Create do

try LoadFromFile(SaveDialog1.FileName);

stringgrid1.RowCount:=Count;

a:=Count;

with stringgrid1 do begin

cells[0,0]:='№';

cells[1,0]:='Фамилия';

cells[2,0]:='Имя';

cells[3,0]:='Отчество';

cells[4,0]:='Кол-во часов';

cells[5,0]:='Ставка';

end;

For i := 0 to Count - 1 do begin

stringgrid1.Rows[i+1].CommaText:=Strings[i];

end;

finally

end;

CloseFile(F);

AutoSizeGridColumn(MainForm.StringGrid1, 1);

AutoSizeGridColumn(MainForm.StringGrid1, 2);

AutoSizeGridColumn(MainForm.StringGrid1, 3);

AutoSizeGridColumn(MainForm.StringGrid1, 4);

AutoSizeGridColumn(MainForm.StringGrid1, 5);

EditForm.Edit1.Text:=MainForm.StringGrid1.Cells[0,1];

EditForm.Edit2.Text:=MainForm.StringGrid1.Cells[1,1];

EditForm.Edit3.Text:=MainForm.StringGrid1.Cells[2,1];

EditForm.Edit4.Text:=MainForm.StringGrid1.Cells[3,1];

EditForm.Edit5.Text:=MainForm.StringGrid1.Cells[4,1];

EditForm.Edit6.Text:=MainForm.StringGrid1.Cells[5,1];

end;

procedure TMainForm.ToolButton5Click(Sender: TObject);

var

i : integer;

begin

For i:=1 to StringGrid1.RowCount-1 do

StringGrid1.Rows[i].Clear;

Save.Enabled:=False;

Sohranit.Enabled:=False;

Add.Enabled:=False;

Edit.Enabled:=False;

Find.Enabled:=False;

ZP.Enabled:=False;

Vedom.Enabled:=False;

Sprav.Enabled:=False;

addPOP.Enabled:=False;

EditPOP.Enabled:=False;

FindPOP.Enabled:=False;

DeletePOP.Enabled:=False;

CloseFilesss.Enabled:=False;

ToolButton2.Enabled:=False;

ToolButton4.Enabled:=False;

ToolButton5.Enabled:=False;

ToolButton8.Enabled:=False;

ToolButton9.Enabled:=False;

ToolButton10.Enabled:=False;

ToolButton6.Enabled:=False;

end;

procedure TMainForm.ToolButton8Click(Sender: TObject);

var

v : integer;

begin

Unit2.Zapis:=1;

V:=MainForm.stringgrid1.RowCount;

EditForm.Edit1.Text:=IntToStr(V);

EditForm.Edit2.Text:='';

EditForm.Edit3.Text:='';

EditForm.Edit4.Text:='';

EditForm.Edit5.Text:='';

EditForm.Edit6.Text:='';

MainForm.stringgrid1.RowCount:=MainForm.stringgrid1.RowCount+1;

EditForm.ShowModal;

end;

procedure TMainForm.ToolButton9Click(Sender: TObject);

begin

EditForm.ShowModal;

end;

procedure TMainForm.ToolButton10Click(Sender: TObject);

begin

FindForm.Show;

end;

procedure TMainForm.ToolButton13Click(Sender: TObject);

begin

Application.CreateForm(TObForm, ObForm);

ObForm.Show

end;

procedure TMainForm.ToolButton6Click(Sender: TObject);

var

d : integer;

F : Integer;

begin

F:=MessageDlg('Вы действительно хотите удалить эту запись?', mtConfirmation, [mbYes,mbNo] , 0);

if F=mrYes then

begin

d:= StringGrid1.Row;

GridDeleteRow(d, MainForm.stringGrid1);

end;

procedure TMainForm.IzmColorClick(Sender: TObject);

begin

if FontDialog1.Execute then

begin

MainForm.Font.Assign(FontDialog1.Font);

EditForm.Font.Assign(FontDialog1.Font);

EditForm.Edit1.Font.Assign(FontDialog1.Font);

EditForm.Edit2.Font.Assign(FontDialog1.Font);

EditForm.Edit3.Font.Assign(FontDialog1.Font);

EditForm.Edit4.Font.Assign(FontDialog1.Font);

EditForm.Edit5.Font.Assign(FontDialog1.Font);

EditForm.Edit6.Font.Assign(FontDialog1.Font);

EditForm.Label1.Font.Assign(FontDialog1.Font);

EditForm.Label2.Font.Assign(FontDialog1.Font);

EditForm.Label3.Font.Assign(FontDialog1.Font);

EditForm.Label4.Font.Assign(FontDialog1.Font);

EditForm.Label5.Font.Assign(FontDialog1.Font);

EditForm.Label6.Font.Assign(FontDialog1.Font);

ZPForm.Font.Assign(FontDialog1.Font);

ZPForm.stringgrid1.Font.Assign(FontDialog1.Font);

FindForm.Font.Assign(FontDialog1.Font);

FindForm.label1.Font.Assign(FontDialog1.Font);

FindForm.Edit1.Font.Assign(FontDialog1.Font);

SpravForm.Font.Assign(FontDialog1.Font);

SpravForm.Stringgrid1.Font.Assign(FontDialog1.Font);

SpravForm.label1.Font.Assign(FontDialog1.Font);

AutoSizeGridColumn(MainForm.StringGrid1, 1);

AutoSizeGridColumn(MainForm.StringGrid1, 2);

AutoSizeGridColumn(MainForm.StringGrid1, 3);

AutoSizeGridColumn(MainForm.StringGrid1, 4);

AutoSizeGridColumn(MainForm.StringGrid1, 5);

end;

procedure TMainForm.FontDialog1Apply(Sender: TObject; Wnd: HWND);

begin

Font.Assign(FontDialog1.Font);

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

Транспортный налог. (Налоговые льготы по уплате транспортного налога).pdf

Сущность понятия «стиль руководства».pdf

Особенности работы с персоналом, владеющим конфиденциальной информацией..pdf

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

Роль, функции и место МВФ в международной валютно-финансовой системе.pdf

Файл: Проектирование реализации операций бизнес-процесса «Расчет заработной платы». (Обоснование проектных решений по информационному обеспечению).pdf

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

Информация

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

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