«Әділет СК» ЖШС – нің тіркелген құжаттарын жеке және заңды тұлғалары бойынша есепке алу және талдауға арналған бағдарламалық қамтама

Автор: Пользователь скрыл имя, 22 Октября 2011 в 18:29, дипломная работа

Описание работы

Дипломдық жобаның өзектілігі: сақтандыру компаниясының қызметкерлерінің, физикалық және заңды тұлғалардың құжататрын рәсімдеуге қажетті автоматтандыру жүйесі, яғни ол белгілі бір дәрежеде компанияның жұмыс тиімділігін арттырады, сонымен бірге сақтандыру жағдайына байланысты нарықтық бәселестіктіде арттарады.
Ғылыми жаңалық мынадан тұрады, яғни алгоритмдік есептің жүйелерін шешу жолдары қарастырылған, сондай-ақ берілгендер қорындағы ақпараттық ағымдар мен байланыстардың негізгі қағидалары анықталған. DELPHI тілдік бағдарламасымен объективті-түзеткіштер өңделген. Программисттерге және дербес компьютерді қолданушыларға арнайы инструкциялар жасалған.

Содержание

КІРІСПЕ............................................................................................................... 8
1 Алға қойған міндеттер............................................................ 10
1.1 Ақпараттық жүйелерге шолу және берілгендерді талдау................ 10
1.2 БҚ өңдеудің негіздемелері................................................................... 13
1.3 «Әділет СК» ЖШС жеке және заңды тұлғалардың құжаттарын тіркеу және талдаудың бағдарламалық қамтамасыз етілуін өңдеу» тақырыбына техникалық тапсырма.......................................

14
1.3.1 Бағдарламаны тағайындау................................................................... 14
1.3.2 Қызметтік талаптар.............................................................................. 14
1.3.3 Кіруші ақпараттық берілгендер.......................................................... 14
1.3.4 Шығатын берілгендер.......................................................................... 15
1.3.5 Сенімділігіне қойылатын талаптар..................................................... 15
1.3.6 Техникалық және жүйелі бағдарламалық құралдарға қойылатын талаптар.................................................................................................
15
1.3.7 Ақпараттық сәйкестендіруге қойылатын талаптар........................... 15
2 БАҒДАРЛАМАЛЫҚ ҚАМТАМАСЫЗ ЕТУДІҢ ЖОБАЛАНУЫ... 16
2.1 Зерттеу объектісін талдау.................................................................... 16
2.1.1 Жасалатын бағдарламаның тағайындау............................................. 18
2.1.2 Құрылымдық жобалау......................................................................... 19
2.1.3 Ағымдық ақпараттық талдау............................................................... 22
2.2 Бағдарламалық және аппараттық құралдарды таңдау және негіздеу..................................................................................................
26
2.2.1 Бағдарламалық қамтамасыз етуді қызмет етуіне қарай таңдау....... 26
2.2.2 Жалпы ортақ бағдарламалық қамтамасыз етуді таңдау................... 31
2.2.3 Арнайы бағдарламалық қамтамасыз етуді таңдау............................ 33
2.2.4 Аппараттық құралдарды таңдау......................................................... 36
3 ПРОГРАММАЛЫҚ ҚАМТАМАССЫЗ ЕТУДІ ІСКЕ АСЫРУ....... 38
3.1 Шешудің алгоритмін өңдеу................................................................. 38
3.1.1 Модульдер қызметтері мен мәліметтер құрылымдарының суреттелуі, модульдер мен блоктар арасындағы байланыстар........
39
3.1.2 Файлдық жүйенің логикалық және физикалық құрылымы............. 45
3.1.3 Кластық интерфейстің суреттелуі...................................................... 49
3.2 Ақпараттық модульдер мен жалпы бағдарламаны алып қою......... 53
3.3 Бақылау мысалында тестілеу.............................................................. 54
3.4 Құжаттандыру....................................................................................... 56
3.4.1 Пайдаланушыға нұсқаулама................................................................ 56
3.4.2 Программалаушыға нұсқаулама......................................................... 57
4 ТІРШІЛІК ҚАУІПСІЗДІГІ................................................................... 58
4.1 Өндірістің зиянды және қауіпті факторларын таңдау...................... 58
4.2 Санитарлық техникалық іс-шаралар.................................................. 59
4.3 Еңбек шартының анализі..................................................................... 60
4.4 Жарықтандыруды есептеу................................................................... 63
4.5 Өндірістегі шу....................................................................................... 67
4.6 Жабдықтарды құру, жөндеу кезінде техникалық қауіпсіздік.......... 68
4.7 Электр қауіпсіздігі................................................................................ 69
4.8 Өртке қарсы іс-шаралар....................................................................... 70
4.9 Төтенше жағдай кезіндегі тіршілік қауіпсіздігі................................ 71
4.10 Желдету жүйесін есептеу..................................................................... 72
5 ТЕХНИКА-ЭКОНОМИКАЛЫҚ НЕГІЗДЕМЕ ЖӘНЕ БИЗНЕС ЖОСПАР ..............................................................................................
75
5.1 Объект құрылысын техника-экономикалық негіздеу....................... 75
5.2 БИЗНЕС-ЖОСПАР.............................................................................. 86
5.2.1 Аннотация............................................................................................. 86
5.2.2 Түйін...................................................................................................... 86
5.2.3 Кәсіпорын сипаттамасы....................................................................... 86
5.2.4 Өнімнің сипаттамасы........................................................................... 87
5.2.5 Маркетинг жоспары............................................................................. 87
5.2.6 Өндірістік жоспар................................................................................. 88
5.2.7 Ұйымдастырушылық жоспар.............................................................. 89
5.2.8 Шығындарды болжау........................................................................... 90
5.2.9 Жұмыстардың орындалу тізбесі......................................................... 91
5.2.10 Жобаның тәуекелдігін талдау............................................................. 91
ҚОРЫТЫНДЫ.................................................................................................. 93
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ................................................ 94
ҚОСЫМША

Скачать полностью (931.92 Кб) Сколько стоит заказать работу?

Работа содержит 13 файлов

13 ПРИЛОЖЕНИЕ В.doc

— 349.00 Кб (Открыть, Скачать)

1 Титул.doc

— 92.50 Кб (Открыть, Скачать)

2 Анотация.doc

— 21.00 Кб (Открыть, Скачать)

3 обознач и сокр.doc

— 20.00 Кб (Открыть, Скачать)

4 СОДЕРЖАНИЕ.doc

— 74.00 Кб (Открыть, Скачать)

5 ВВЕДЕНИЕ.doc

— 32.00 Кб (Открыть, Скачать)

6 Диплом .doc

— 1.18 Мб (Открыть, Скачать)

7 БЖД.doc

— 227.00 Кб (Открыть, Скачать)

8 Экономика.doc

— 278.50 Кб (Открыть, Скачать)

9 Бизнес план.doc

— 107.00 Кб (Открыть, Скачать)

10 Список литературы.doc

— 34.00 Кб (Открыть, Скачать)

11 ПРИЛОЖЕНИЕ А.doc

— 25.50 Кб (Открыть, Скачать)

12 ПРИЛОЖЕНИЕ Б.doc

— 253.00 Кб (Скачать)

end.

unit Unit_MAIN;

interface

uses

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

Dialogs, Menus, StdCtrls;

type

TForm_MAIN = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

Label1: TLabel;

N18: TMenuItem;

N19: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N19Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_MAIN: TForm_MAIN;

implementation

Uses Unit_COMPONENTS, Unit_CLIENT, Unit_CONTRACTS, Unit_AGENTS, Unit_CURRENCY, Unit_AVTO,

Unit_PAYMENTS, Unit_PROLONGS, Unit_USERS, Unit_RISKS,Unit_PAYS,

Unit_REPORT1, Unit_REPORT2, Unit_ABOUT;

{$R *.dfm}

procedure TForm_MAIN.N2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm_MAIN.N4Click(Sender: TObject);

begin

Form_CLIENTS.ShowModal;

end;

procedure TForm_MAIN.N5Click(Sender: TObject);

begin

Form_CONTRACTS.ShowModal;

end;

procedure TForm_MAIN.N11Click(Sender: TObject);

begin

Form_AGENTS.ShowModal;

end;

procedure TForm_MAIN.N10Click(Sender: TObject);

begin

Form_CURRENCY.ShowModal;

end;

procedure TForm_MAIN.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Application.Terminate;

end;

procedure TForm_MAIN.N6Click(Sender: TObject);

begin

Form_COMPONENTS.Query_CARS.Active := False;

Form_COMPONENTS.Query_CARS.SQL.Text := 'SELECT * FROM CARS';

Form_COMPONENTS.Query_CARS.Active := True;

Form_AVTO.ShowModal;

end;

procedure TForm_MAIN.N7Click(Sender: TObject);

begin

Form_PAYMENTS.SpeedButton1.Enabled := False;

Form_PAYMENTS.ShowModal;

end;

procedure TForm_MAIN.N8Click(Sender: TObject);

begin

Form_COMPONENTS.Query_PROLONGS.Active := False;

Form_COMPONENTS.Query_PROLONGS.SQL.Text:='SELECT ID, DATA_KON, DATA_EVENTS, NOMER FROM PROLONGS P, CONTRACTS C WHERE P.CONTRACTS_ID = C.ID';

Form_COMPONENTS.Query_PROLONGS.Active := True;

Form_PROLONGS.ShowModal;

end;

procedure TForm_MAIN.N12Click(Sender: TObject);

begin

Form_USERS.ShowModal;

end;

procedure TForm_MAIN.N13Click(Sender: TObject);

begin

Form_RISKS.ShowModal;

end;

procedure TForm_MAIN.N15Click(Sender: TObject);

begin

Form_COMPONENTS.Query_CONTRACTS.Active:=False;

Form_COMPONENTS.Query_CONTRACTS.Active:=True;

Form_REPORT1.QuickRep1.Preview;

end;

procedure TForm_MAIN.N16Click(Sender: TObject);

begin

Form_COMPONENTS.Query_PAYS.Active := False;

Form_COMPONENTS.Query_PAYS.SQL.Text := 'SELECT ID, SUMMA_PAYS, DATA_PAYS, NOMER FROM PAYS, CONTRACTS C WHERE PAYS.CONTRACTS_ID=C.ID';

Form_COMPONENTS.Query_PAYS.Active := True;

Form_PAYS.ShowModal;

end;

procedure TForm_MAIN.N17Click(Sender: TObject);

begin

Form_REPORT2.Query1.Active:=False;

Form_REPORT2.Query1.Active:=True;

Form_REPORT2.QuickRep1.Preview;

end;

procedure TForm_MAIN.N19Click(Sender: TObject);

begin

Form_ABOUT.ShowModal;

end;

end.

unit Unit_PAYMENTS;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ComCtrls, Buttons;

type

TForm_PAYMENTS = class(TForm)

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

Edit1: TEdit;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

procedure Edit1Change(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_PAYMENTS: TForm_PAYMENTS;

implementation

Uses Unit_COMPONENTS;

{$R *.dfm}

procedure TForm_PAYMENTS.Edit1Change(Sender: TObject);

Var

s:string;

i:integer;

begin

if length(Edit1.Text) > 0 then

s:=Edit1.Text;

if length(Edit1.Text)>=1 then

for i:=1 to length(Edit1.Text) do

if (ord(s[i])>47) and (ord(s[i])<=57) or (ord(s[i])=44)

or (ord(s[i])=45) then

begin

end

else

Delete(s,i,1);

Edit1.Text:=s;

end;

procedure TForm_PAYMENTS.SpeedButton3Click(Sender: TObject);

begin

DateTimePicker1.Date := Form_COMPONENTS.Query_PAYMENTS.FieldByName('DATA_VZNOSA').AsDateTime;

Edit1.Text := Form_COMPONENTS.Query_PAYMENTS.FieldByName('SUMMA_VZNOSA').AsString;

end;

procedure TForm_PAYMENTS.SpeedButton4Click(Sender: TObject);

Var

ID:Integer;

begin

ID := Form_COMPONENTS.Query_PAYMENTS.FieldByName('ID').AsInteger;

Form_COMPONENTS.Query_PAYMENTS.Active := False;

Form_COMPONENTS.Query.SQL.Text := 'UPDATE PAYMENTS SET DATA_VZNOSA = ' + #39 + DateToStr(DateTimePicker1.Date) + #39+','+

'SUMMA_VZNOSA = ' + Edit1.Text + ' WHERE ID = ' + IntToStr(ID);

Form_COMPONENTS.Query.ExecSQL;

Form_COMPONENTS.Query_PAYMENTS.Active := True;

end;

procedure TForm_PAYMENTS.SpeedButton1Click(Sender: TObject);

begin

Form_COMPONENTS.Query.Active := False;

Form_COMPONENTS.Query.SQL.Text := 'SELECT MAX(ID) from PAYMENTS';

Form_COMPONENTS.Query.Active := True;

Form_COMPONENTS.Query_PAYMENTS.Active := False;

Form_COMPONENTS.Table_PAYMENTS.Append;

Form_COMPONENTS.Table_PAYMENTS['ID'] := Form_COMPONENTS.DataSource1.DataSet.Fields[0].AsInteger+1;

Form_COMPONENTS.Table_PAYMENTS['DATA_VZNOSA'] := DateTimePicker1.Date;

Form_COMPONENTS.Table_PAYMENTS['SUMMA_VZNOSA'] := StrToFloat(Edit1.Text);

Form_COMPONENTS.Table_PAYMENTS['CONTRACTS_ID'] := Tag;

Form_COMPONENTS.Table_PAYMENTS.Post;

Form_COMPONENTS.Query_PAYMENTS.Active := True;

end;

procedure TForm_PAYMENTS.SpeedButton2Click(Sender: TObject);

Var

ID:Integer;

begin

If MessageDlg('Удалить запись?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

ID := Form_COMPONENTS.Query_PAYMENTS.FieldByName('ID').AsInteger;

Form_COMPONENTS.Query_PAYMENTS.Active := False;

Form_COMPONENTS.Query.SQL.Text := 'DELETE FROM PAYMENTS WHERE ID = ' + IntToStr(ID);

Form_COMPONENTS.Query.ExecSQL;

Form_COMPONENTS.Query_PAYMENTS.Active := True;

end;

procedure TForm_PAYMENTS.SpeedButton5Click(Sender: TObject);

begin

Close;

end;

end.

unit Unit_PAYS;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids;

type

TForm_PAYS = class(TForm)

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_PAYS: TForm_PAYS;

implementation

Uses Unit_COMPONENTS, Unit_ADD_EDIT_PAYS;

{$R *.dfm}

procedure TForm_PAYS.Button4Click(Sender: TObject);

begin

Close;

end;

procedure TForm_PAYS.Button1Click(Sender: TObject);

begin

Form_ADD_EDIT_PAYS.Tag := 1; // Добавление

Form_ADD_EDIT_PAYS.DateTimePicker1.Date := Date;

Form_ADD_EDIT_PAYS.Button1.Caption := 'Добавить';

Form_ADD_EDIT_PAYS.Caption := 'Добавление';

Form_ADD_EDIT_PAYS.ComboBox_POLIS.Items.Clear;

Form_COMPONENTS.Query_CONTRACTS.First;

While not Form_COMPONENTS.Query_CONTRACTS.Eof do

begin

Form_ADD_EDIT_PAYS.ComboBox_POLIS.Items.Add(Form_COMPONENTS.Query_CONTRACTS.FieldByName('NOMER').AsString);

Информация о работе «Әділет СК» ЖШС – нің тіркелген құжаттарын жеке және заңды тұлғалары бойынша есепке алу және талдауға арналған бағдарламалық қамтама