курсовая работа тема акимат. Акимат. Разработка информационной системы контроля исполнения поручений для сотрудников акимата
Скачать 1.29 Mb.
|
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫКонституций Республики Казахстан 1995. Гражданский кодекс Республики Казахстан (общая и особенная часть) 1995. Законодательство об образовании в Республике Казахстан. // - Алматы, 2008, с. 214. Закон Республики Казахстан от 8 мая 2007 года № 412 «Об информатизации», 2007. Указ Президента Республики Казахстан от 10 ноября 2008 года № 1471 «О Государственной программе формирования «электронного правительства» в Республике Казахстан на 2005-2007 годы», 2008. Постановление Правительства Республики Казахстан от 8 декабря 2007 года № 1286 «Об утверждении Плана мероприятий по реализации Государственной программы формирования «электронного правительства», 2007. Указ Президента Республики Казахстан от 16 марта 2008 года № 573 «О государственной программе формирования и развития национальной информационной инфраструктуры Республики Казахстан», присутствует ссылка на концепцию электронного правительства Республики Казахстан, 2008. Постановление Правительства Республики Казахстан от 17 апреля 2008 года № 430 «Об утверждении Правил электронного документооборота государственных органов», 2008. А.В. Костров. Основы информационного менеджмента.//- Москва «Финансы и статистика», 2008, с.1- 136. Майк Мескон, Майк Альберт, Франклин Хедоури. Основы менеджмента, Москва. Издательство «Дело» 2008, с.1- 399. Паркинсон С. Н. , Растомджи М.К., Сапре С. А. «Эти невероятные японцы» // - М.: ФОЗБ, 2007, с. 250. Барановская Т.П., Лойко В.И., Семенов М.И., Трубилин А.И. Информационные системы и технологии в экономике: 2-е изд., доп. и перераб. – М., 2007, с. 23 - 256. Д. Вейскас. Эффективная работа с ACCESS: СПб., 2006, с. 8-352. Хансен Гари, Хансен Джеймс Базы данных: разработка и управление: - М., 2008, с.45 - 375. Пасько ВикторAccess 2000: - Киев, 2007, с.19 – 290. Келли Д. Access ХР // - СПб., 2006, с.378. www.controllab.narod.ru/PawnShop.htm. www.2bsoft.ru/publications/press-release/9/. В.В. Фаронов Delphi, Программирование на языке высокого уровня.//- Издательство «Питер», 2008, с.13 - 371. Эбби М., М.Кори, Й. Амбрамсон. Oracle 9i: первое знакомство // - М., 2008, с.1 - 482. Э .Каллахан. Access: Шаг за шагом. // - М., 2007, с.45 – 148. М.В.Кульгин Компьютерные сети: практика построения. // - СПб., 2008, с. 45 – 224. В.Г. Олифер., Н.А. Олифер Компьютерные сети. // СПб., 2007, с.1-56. Ч.Сигер Изучи Access.// Минск, 2009, с. 12 -286. С.Архипенков С. Аналитические системы на базе данных Oracle // - М., 2008, с.227. Каратыгин С.А. Access 2000 // - М., 2008, с.34 – 111. Программа информатизации КемГУ /информационно-аналитические материалы, разработчики К.Е. Афанасьев, О.Л. Колпаков. Кемерово: Кузбассвузиздат, 2008. Афанасьев К.Е., Захаров Ю.А. Проблемы информатизации образования в регионе и пути их решения. // «Информационные недра Кузбасса»: Материалы научно-практической конференции. Часть 1. Кемерово: изд-во «Полиграф», 2008. Афанасьев К.Е., Гудов А.М., Захаров Ю.А., Невзоров Б.П., Третьякова И.В. Проблемы и типовые решения создания информационной инфраструктуры регионального образовательного комплекса. Кемерово: изд-во КемГУ, 2007. К.Е. Афанасьев, А.М. Гудов, И.В. Третьякова. Создание интегрированной аналитической системы управления Кемеровским госуниверситетом // Теоретические и прикладные вопросы современных информационных технологий: Сборник трудов. Улан-Удэ: ВСГТУ, 2008. Афанасьев К.Е., Гудов А.М., Кригер В.Г., Невзоров Б.П., Третьякова И.В. Основные положения концепции построения информационной аналитической системы управления Кемеровским государственным университетом. // «Информационные недра Кузбасса»: Материалы научно-практической конференции. Часть 2. Кемерово: изд-во «Полиграф», 2009. М.В. Семехина. Модель системы документооборота КемГУ // сборник докладов Апрельской конференции, 2007. Александр Громов, Мария Каменнова, Александр Старыгин. Управление бизнес - процессами на основе технологии Workflow // журнал «Открытые системы», №1, 2007. Система электронного документооборота РТС. «Общее описание» Технический центр РТС, 2007. Андреев Владимир. Этот многообразный мир документооборота… // Digital Design, 2008. А. М. Гудов, С. Ю. Завозкин, М. В. Семехина. Модель документооборота КемГУ // Информационные недра Кузбасса: Труды научно-практической конференции – Кемерово: Кемеровский государственный университет, 2008. С. Ю. Завозкин. Прототип системы движения документов в системе электронного документооборота КемГУ // доклад. Сборник трудов молодых учёных Кемеровского государственного университета, посвящённый 60 летию Кемеровской области/ Кемеровский госуниверситет. – Кемерово; Полиграф, 2008. Линда Дебби, Керн Стив. Lotus Notes и Domino R5. Энциклопедия пользователя // “ДиаСофт”, 2007. Владимир Богданов, Владимир Старых. Особенности применения технологий Lotus Domino и Notes в современных информационных системах, проблемы проектирования сложных приложений и причины их возникновения. - РГУИТП, 2007. Николай Красилов, Игорь Косякин, Дмитрий Черных. Об одной модели документооборота // журнал «Открытые системы», №1, 2007. ВладимирБаласанян. Концепция системы автоматизации отечественного документооборота // журнал «Открытые системы», №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] |