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

Автор: Пользователь скрыл имя, 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
ҚОСЫМША

Работа содержит 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 Кб (Скачать)

      Form_COMPONENTS.Query_CONTRACTS.Next;

   end;

Form_ADD_EDIT_PAYS.ShowModal;

end; 

procedure TForm_PAYS.Button2Click(Sender: TObject);

begin

Form_ADD_EDIT_PAYS.Tag := 2; // Редактирование

Form_ADD_EDIT_PAYS.DateTimePicker1.Date := Form_COMPONENTS.Query_PAYS.FieldByName('DATA_PAYS').AsDateTime;

Form_ADD_EDIT_PAYS.Button1.Caption := 'Редактировать';

Form_ADD_EDIT_PAYS.Caption := 'Редактирование';

Form_ADD_EDIT_PAYS.ComboBox_POLIS.Text := Form_COMPONENTS.Query_PAYS.FieldByName('NOMER').AsString;

Form_ADD_EDIT_PAYS.Edit_SUMMA.Text := Form_COMPONENTS.Query_PAYS.FieldByName('SUMMA_PAYS').AsString;

Form_ADD_EDIT_PAYS.ComboBox_POLIS.Tag := Form_COMPONENTS.Query_PAYS.FieldByName('ID').AsInteger; 

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);

      Form_COMPONENTS.Query_CONTRACTS.Next;

  end;

Form_ADD_EDIT_PAYS.ShowModal; 

end; 

procedure TForm_PAYS.Button3Click(Sender: TObject);

Var

   ID:Integer;

begin

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

   begin

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

      Form_COMPONENTS.Query_PAYS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'Delete from PAYS Where ID = '+IntToStr(ID);

      Form_COMPONENTS.Query.ExecSQL;

      ShowMessage('Запись удалена!');

     

      Form_COMPONENTS.Query_PAYS.Active := True;

   end;

end;

end. 
 

unit Unit_PROLONGS; 

interface 

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls; 

type

  TForm_PROLONGS = class(TForm)

    DBGrid1: TDBGrid;

    Panel1: TPanel;

   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_PROLONGS: TForm_PROLONGS; 

implementation

uses Unit_COMPONENTS, Unit_ADD_EDIT_PROLONGS, DB;

{$R *.dfm} 

procedure TForm_PROLONGS.Button4Click(Sender: TObject);

begin

Close;

end; 

procedure TForm_PROLONGS.Button1Click(Sender: TObject);

begin

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

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

Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Text := '';

Form_ADD_EDIT_PROLONGS.DateTimePicker1.Date := Date;

Form_ADD_EDIT_PROLONGS.DateTimePicker2.Date := Date; 

Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Items.Clear;

Form_COMPONENTS.Query_CONTRACTS.First;

While not Form_COMPONENTS.Query_CONTRACTS.Eof do

   begin

      Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Items.Add(Form_COMPONENTS.Query_CONTRACTS.FieldByName('NOMER').AsString);

      Form_COMPONENTS.Query_CONTRACTS.Next;

   end;

Form_ADD_EDIT_PROLONGS.DateTimePicker2.Date := Date;

Form_ADD_EDIT_PROLONGS.ShowModal;

end; 

procedure TForm_PROLONGS.Button2Click(Sender: TObject);

begin

Form_ADD_EDIT_PROLONGS.Tag := 2; //Редактирование

Form_ADD_EDIT_PROLONGS.Button1.Caption := 'Редактировать';

Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Items.Clear;

Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Tag := Form_COMPONENTS.Query_PROLONGS.FieldByName('ID').AsInteger;

Form_COMPONENTS.Query_CONTRACTS.First;

While not Form_COMPONENTS.Query_CONTRACTS.Eof do

   begin

      Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Items.Add(Form_COMPONENTS.Query_CONTRACTS.FieldByName('NOMER').AsString);

      Form_COMPONENTS.Query_CONTRACTS.Next;

  end; 

Form_ADD_EDIT_PROLONGS.ComboBox_NOMER_POLISA.Text := Form_COMPONENTS.Query_PROLONGS.FieldByName('NOMER').AsString;

Form_ADD_EDIT_PROLONGS.DateTimePicker1.Date := Form_COMPONENTS.Query_PROLONGS.FieldByName('DATA_KON').AsDateTime;

Form_ADD_EDIT_PROLONGS.DateTimePicker2.Date := Date;

Form_ADD_EDIT_PROLONGS.ShowModal; 

end; 

procedure TForm_PROLONGS.Button3Click(Sender: TObject);

Var

   ID:Integer;

begin

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

   begin

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

      Form_COMPONENTS.Query_PROLONGS.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'Delete from PROLONGS Where ID = '+IntToStr(ID);

      Form_COMPONENTS.Query.ExecSQL;

      ShowMessage('Запись удалена!');

     

      Form_COMPONENTS.Query_PROLONGS.Active := True;

   end;

end;

end. 
 

unit Unit_USERS; 

interface 

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, DB, DBTables; 

type

  TForm_USERS = class(TForm)

    DBGrid1: TDBGrid;

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Edit1: TEdit;

    Table_USERS: TTable;

    DataSource_USERS: TDataSource;

    Label2: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    procedure DataSource_USERSDataChange(Sender: TObject; Field: TField);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_USERS: TForm_USERS; 

implementation

Uses Unit_COMPONENTS;

{$R *.dfm} 

procedure TForm_USERS.DataSource_USERSDataChange(Sender: TObject;

  Field: TField);

begin

Edit1.Text := Table_USERS.FieldByName('USER').AsString;

Edit2.Text := Table_USERS.FieldByName('PASSWORD').AsString;

end; 

procedure TForm_USERS.Button1Click(Sender: TObject);

Var

   ID:Integer;

   USER,PASSWORD:String;

begin

Form_COMPONENTS.Query.Active := False;

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

Form_COMPONENTS.Query.Active := True;

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

USER := Edit1.Text;

PASSWORD := Edit2.Text; 

Table_USERS.Append;

Table_USERS['ID'] := ID;

Table_USERS['USER'] := USER;

Table_USERS['PASSWORD'] := PASSWORD;

Table_USERS.Post;

ShowMessage('Запись добавлена'); 

end; 

procedure TForm_USERS.Button2Click(Sender: TObject);

Var

   USER,PASSWORD:String;

begin

USER := Edit1.Text;

PASSWORD := Edit2.Text; 

Table_USERS.Edit;

Table_USERS['USER'] := USER;

Table_USERS['PASSWORD'] := PASSWORD;

Table_USERS.Post;

ShowMessage('Запись изменена');

end; 

end.

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