Главная страница

курсовая работа тема акимат. Акимат. Разработка информационной системы контроля исполнения поручений для сотрудников акимата


Скачать 1.29 Mb.
НазваниеРазработка информационной системы контроля исполнения поручений для сотрудников акимата
Анкоркурсовая работа тема акимат
Дата08.12.2022
Размер1.29 Mb.
Формат файлаdocx
Имя файлаАкимат.docx
ТипКурсовой проект
#834845
страница6 из 8
1   2   3   4   5   6   7   8

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ




  1. Конституций Республики Казахстан 1995.

  2. Гражданский кодекс Республики Казахстан (общая и особенная часть) 1995.

  3. Законодательство об образовании в Республике Казахстан. // - Алматы, 2008, с. 214.

  4. Закон Республики Казахстан от 8 мая 2007 года № 412 «Об информатизации», 2007.

  5. Указ Президента Республики Казахстан от 10 ноября 2008 года № 1471 «О Государственной программе формирования «электронного правительства» в Республике Казахстан на 2005-2007 годы», 2008.

  6. Постановление Правительства Республики Казахстан от 8 декабря 2007 года № 1286 «Об утверждении Плана мероприятий по реализации Государственной программы формирования «электронного правительства», 2007.

  7. Указ Президента Республики Казахстан от 16 марта 2008 года № 573 «О государственной программе формирования и развития национальной информационной инфраструктуры Республики Казахстан», присутствует ссылка на концепцию электронного правительства Республики Казахстан, 2008.

  8. Постановление Правительства Республики Казахстан от 17 апреля 2008 года № 430 «Об утверждении Правил электронного документооборота государственных органов», 2008.

  9. А.В. Костров. Основы информационного менеджмента.//- Москва «Финансы и статистика», 2008, с.1- 136.

  10. Майк Мескон, Майк Альберт, Франклин Хедоури. Основы менеджмента, Москва. Издательство «Дело» 2008, с.1- 399.

  11. Паркинсон С. Н. , Растомджи М.К., Сапре С. А. «Эти невероятные японцы» // - М.: ФОЗБ, 2007, с. 250.

  12. Барановская Т.П., Лойко В.И., Семенов М.И., Трубилин А.И. Информационные системы и технологии в экономике: 2-е изд., доп. и перераб. – М., 2007, с. 23 - 256.

  13. Д. Вейскас. Эффективная работа с ACCESS: СПб., 2006, с. 8-352.

  14. Хансен Гари, Хансен Джеймс Базы данных: разработка и управление: - М., 2008, с.45 - 375.

  15. Пасько ВикторAccess 2000: - Киев, 2007, с.19 – 290.

  16. Келли Д. Access ХР // - СПб., 2006, с.378.

  17. www.controllab.narod.ru/PawnShop.htm.

  18. www.2bsoft.ru/publications/press-release/9/.

  19. В.В. Фаронов Delphi, Программирование на языке высокого уровня.//- Издательство «Питер», 2008, с.13 - 371.

  20. Эбби М., М.Кори, Й. Амбрамсон. Oracle 9i: первое знакомство // - М., 2008, с.1 - 482.

  21. Э .Каллахан. Access: Шаг за шагом. // - М., 2007, с.45 – 148.

  22. М.В.Кульгин Компьютерные сети: практика построения. // - СПб., 2008, с. 45 – 224.

  23. В.Г. Олифер., Н.А. Олифер Компьютерные сети. // СПб., 2007, с.1-56.

  24. Ч.Сигер Изучи Access.// Минск, 2009, с. 12 -286.

  25. С.Архипенков С. Аналитические системы на базе данных Oracle // - М., 2008, с.227.

  26. Каратыгин С.А. Access 2000 // - М., 2008, с.34 – 111.

  27. Программа информатизации КемГУ /информационно-аналитические материалы, разработчики К.Е. Афанасьев, О.Л. Колпаков. Кемерово: Кузбассвузиздат, 2008.

  28. Афанасьев К.Е., Захаров Ю.А. Проблемы информатизации образования в регионе и пути их решения. // «Информационные недра Кузбасса»: Материалы научно-практической конференции. Часть 1. Кемерово: изд-во «Полиграф», 2008.

  29. Афанасьев К.Е., Гудов А.М., Захаров Ю.А., Невзоров Б.П., Третьякова И.В. Проблемы и типовые решения создания информационной инфраструктуры регионального образовательного комплекса. Кемерово: изд-во КемГУ, 2007.

  30. К.Е. Афанасьев, А.М. Гудов, И.В. Третьякова. Создание интегрированной аналитической системы управления Кемеровским госуниверситетом // Теоретические и прикладные вопросы современных информационных технологий: Сборник трудов. Улан-Удэ: ВСГТУ, 2008.

  31. Афанасьев К.Е., Гудов А.М., Кригер В.Г., Невзоров Б.П., Третьякова И.В. Основные положения концепции построения информационной аналитической системы управления Кемеровским государственным университетом. // «Информационные недра Кузбасса»: Материалы научно-практической конференции. Часть 2. Кемерово: изд-во «Полиграф», 2009.

  32. М.В. Семехина. Модель системы документооборота КемГУ // сборник докладов Апрельской конференции, 2007.

  33. Александр Громов, Мария Каменнова, Александр Старыгин. Управление бизнес - процессами на основе технологии Workflow // журнал «Открытые системы», №1, 2007.

  34. Система электронного документооборота РТС. «Общее описание» Технический центр РТС, 2007.

  35. Андреев Владимир. Этот многообразный мир документооборота… // Digital Design, 2008.

  36. А. М. Гудов, С. Ю. Завозкин, М. В. Семехина. Модель документооборота КемГУ // Информационные недра Кузбасса: Труды научно-практической конференции – Кемерово: Кемеровский государственный университет, 2008.

  37. С. Ю. Завозкин. Прототип системы движения документов в системе электронного документооборота КемГУ // доклад. Сборник трудов молодых учёных Кемеровского государственного университета, посвящённый 60 летию Кемеровской области/ Кемеровский госуниверситет. – Кемерово; Полиграф, 2008.

  38. Линда Дебби, Керн Стив. Lotus Notes и Domino R5. Энциклопедия пользователя // “ДиаСофт”, 2007.

  39. Владимир Богданов, Владимир Старых. Особенности применения технологий Lotus Domino и Notes в современных информационных системах, проблемы проектирования сложных приложений и причины их возникновения. - РГУИТП, 2007.

  40. Николай Красилов, Игорь Косякин, Дмитрий Черных. Об одной модели документооборота // журнал «Открытые системы», №1, 2007.

  41. ВладимирБаласанян. Концепция системы автоматизации отечественного документооборота // журнал «Открытые системы», №1, 2008.


Приложение А
Модель бизнес-процессовуправления информатизации



Приложение Б
Листинг программы
program LETTER;
uses

Forms,

UnMain in 'UnMain.pas' {FmMain},

UnDM in 'UnDM.pas' {DM: TDataModule},

UnSecret in 'UnSecret.pas' {Form1},

UnAdminMenu in 'UnAdminMenu.pas' {FmAdminMenu},

UnAdmin in 'UnAdmin.pas' {FmAdmin},

UnStatus in 'UnStatus.pas' {FmStatus},

UnCat in 'UnCat.pas' {FmCat},

UnNote in 'UnNote.pas' {FmNote},

UnEvent in 'UnEvent.pas' {FmEvent},

UnRCat in 'UnRCat.pas' {FmRCat},

UnAbout in 'UnAbout.pas' {FmAbout},

UnPost in 'UnPost.pas' {FmPost},

UnFull in 'UnFull.pas' {FmFull};
{$R *.res}
begin

Application.Initialize;

Application.Title := 'Учет корреспонденции';

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TFmMain, FmMain);

Application.CreateForm(TDM, DM);

Application.CreateForm(TFmAdminMenu, FmAdminMenu);

Application.CreateForm(TFmAdmin, FmAdmin);

Application.CreateForm(TFmStatus, FmStatus);

Application.CreateForm(TFmCat, FmCat);

Application.CreateForm(TFmNote, FmNote);

Application.CreateForm(TFmEvent, FmEvent);

Application.CreateForm(TFmRCat, FmRCat);

Application.CreateForm(TFmAbout, FmAbout);

Application.CreateForm(TFmPost, FmPost);

Application.CreateForm(TFmFull, FmFull);

Application.Run;

end.
unit UnAbout;
interface
uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons;
type

TFmAbout = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;
var

FmAbout: TFmAbout;
implementation
{$R *.dfm}
end.

unit UnAdmin;
interface
uses

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

Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls,DB, Buttons;
type

TFmAdmin = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

RadioGroup1: TRadioGroup;

Edit1: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure RadioGroup1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

FmAdmin: TFmAdmin;
implementation

uses UnDM, UnPost;

{$R *.dfm}
procedure TFmAdmin.RadioGroup1Click(Sender: TObject);

var Filter : string;

begin

DM.TbAdmin.Filtered := false;

Case RadioGroup1.ItemIndex of

0 : Filter := ''; //Нет фильтра

1 : Filter := 'u_type = '+QuotedStr('Менеджер'); //Только менеджеры

2 : Filter := 'u_type = '+QuotedStr('Администратор');//Только администраторы

end;

DM.TbAdmin.Filter := Filter;

DM.TbAdmin.Filtered := true;
end;
procedure TFmAdmin.Edit1Change(Sender: TObject);

begin

//Поиск по фамилии

DM.TbAdmin.Locate('u_fio',Edit1.Text,[loCaseInsensitive, loPartialKey]);

end;
procedure TFmAdmin.BitBtn1Click(Sender: TObject);

begin

FmPost.ShowModal;

end;
end.


unit UnAdminMenu;
interface
uses

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

Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, DB,

ComCtrls, ComObj, IdMessage, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient, IdMessageClient, IdPOP3, DBTables;
type

TFmAdminMenu = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

DBGrid1: TDBGrid;

Panel4: TPanel;

DBNavigator1: TDBNavigator;

BitBtn1: TBitBtn;

GroupBox1: TGroupBox;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Panel5: TPanel;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

Edit1: TEdit;

RadioGroup1: TRadioGroup;

GroupBox2: TGroupBox;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

SpeedButton1: TSpeedButton;

Label2: TLabel;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

POP3: TIdPOP3;

IdMessage: TIdMessage;

BitBtn12: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure DBGrid1ColEnter(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure Edit1Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

FmAdminMenu: TFmAdminMenu;
implementation

uses UnAdmin, UnDM, UnStatus, UnCat, UnNote, UnEvent, UnRCat, UnAbout,

UnFull, UnPost;

{$R *.dfm}
procedure TFmAdminMenu.BitBtn1Click(Sender: TObject);

begin

FmAdmin.ShowModal;

end;
procedure TFmAdminMenu.BitBtn2Click(Sender: TObject);

begin

FmStatus.ShowModal;

end;
procedure TFmAdminMenu.BitBtn3Click(Sender: TObject);

begin

FmCat.ShowModal;

end;
procedure TFmAdminMenu.BitBtn4Click(Sender: TObject);

begin

FmNote.Caption := 'Заметки к сообщению №' +IntToStr(DM.TbLetter.FieldByName('l_id').AsInteger) + ' от '+ DateToStr(DM.TbLetter.FieldByName('l_date').AsDateTime);

FmNote.ShowModal;

end;
procedure TFmAdminMenu.BitBtn5Click(Sender: TObject);

begin

FmEvent.Caption := 'Работа по сообщению №' +IntToStr(DM.TbLetter.FieldByName('l_id').AsInteger) + ' от '+ DateToStr(DM.TbLetter.FieldByName('l_date').AsDateTime);

FmEvent.ShowModal;

end;
procedure TFmAdminMenu.FormShow(Sender: TObject);

begin

DM.TbLetterl_user.ReadOnly := false;

FmRCat.DBChart1.Series[0].Active := true;

FmRCat.DBChart1.Series[1].Active := false;

FmRCat.DBChart1.Series[2].Active := false;

end;
procedure TFmAdminMenu.BitBtn6Click(Sender: TObject);

var i : integer;

begin

DM.QRCat.Active := false;

DM.QRCat.Active := true;

FmRCat.DBGrid1.DataSource := DM.DSRCat;

FmRCat.DBNavigator1.DataSource := DM.DSRCat;

FmRCat.DBChart1.Series[0].Clear; //Удалем все имеющиеся диаграммы

FmRCat.DBChart1.Series[1].Clear;

FmRCat.DBChart1.Series[2].Clear;

FmRCat.DBChart1.Title.Text.Clear;//Удаляем текст

FmRCat.DBChart1.Title.Text.Add('Сообщения по категориям');

DM.QRCat.First;

for i := 0 to DM.QRCat.RecordCount -1 do //

begin

FmRCat.DBChart1.Series[0].Add(DM.QRCat.FieldByName('Количество').Value, DM.QRCat.FieldByName('category').AsString + #13);

FmRCat.DBChart1.Series[1].Add(DM.QRCat.FieldByName('Количество').Value, DM.QRCat.FieldByName('category').AsString + #13);

FmRCat.DBChart1.Series[2].Add(DM.QRCat.FieldByName('Количество').Value, DM.QRCat.FieldByName('category').AsString + #13);

//Вывод значений и подписей в цикле

DM.QRCat.Next;

end;

FmRCat.DBChart1.Repaint;

FmRCat.Caption := 'Сообщения по категориям';

FmRCat.ShowModal;

end;
procedure TFmAdminMenu.BitBtn7Click(Sender: TObject);

var i : integer;

begin

DM.QRStatus.Active := false;

DM.QRStatus.Active := true;

FmRCat.DBGrid1.DataSource := DM.DSRStatus;

FmRCat.DBNavigator1.DataSource := DM.DSRStatus;

FmRCat.DBChart1.Series[0].Clear; //Удалем все имеющиеся диаграммы

FmRCat.DBChart1.Series[1].Clear;

FmRCat.DBChart1.Series[2].Clear;

FmRCat.DBChart1.Title.Text.Clear;//Удаляем текст

FmRCat.DBChart1.Title.Text.Add('Сообщения по статусам');

DM.QRStatus.First;

for i := 0 to DM.QRStatus.RecordCount -1 do //

begin

FmRCat.DBChart1.Series[0].Add(DM.QRStatus.FieldByName('Количество').Value, DM.QRStatus.FieldByName('status').AsString + #13);

FmRCat.DBChart1.Series[1].Add(DM.QRStatus.FieldByName('Количество').Value, DM.QRStatus.FieldByName('status').AsString + #13);

FmRCat.DBChart1.Series[2].Add(DM.QRStatus.FieldByName('Количество').Value, DM.QRStatus.FieldByName('status').AsString + #13);

//Вывод значений и подписей в цикле ,

DM.QRStatus.Next;

end;

FmRCat.DBChart1.Repaint;

FmRCat.Caption := 'Сообщения по статусам';

FmRCat.ShowModal;

end;
procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);

var

DrawFlags: Integer;

begin

Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');

DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);

DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK

if Checked then

DrawFlags := DrawFlags or DFCS_CHECKED;

DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);

end;


procedure TFmAdminMenu.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);
begin

if Column.FieldName = 'l_read' then // одно поле

if Column.Field.AsBoolean = true then

DrawGridCheckBox(DBGrid1.Canvas, Rect, true)

else

DrawGridCheckBox(DBGrid1.Canvas, Rect, false);

end;
procedure TFmAdminMenu.DBGrid1ColEnter(Sender: TObject);

begin

with TDBGrid(Sender) do

if (SelectedField.FieldName = 'l_read') then // одно поле

Options := Options - [dgEditing]

else

Options := Options + [dgEditing]
1   2   3   4   5   6   7   8


написать администратору сайта