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

Автор: Пользователь скрыл имя, 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_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('VALUTA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VID_DOGOVORA.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('VID_DOGOVORA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('AGENT').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('RISK').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.DateTimePicker1.Date := Form_COMPONENTS.Query_CONTRACTS.FieldByName('DATA_NACH').AsDateTime;

      Form_ADD_EDIT_LOOK_CONTRACTS.DateTimePicker2.Date := Form_COMPONENTS.Query_CONTRACTS.FieldByName('DATA_KON').AsDateTime;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAKZT.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('SUMMA_IN_TENGE').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAVAL.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('SUMMA_IN_VAL').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAKZT.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('PREMIA_IN_TENGE').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAVAL.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('PREMIA_IN_VAL').AsString; 

      Form_ADD_EDIT_LOOK_CONTRACTS.ShowModal;

   end;

end; 

procedure TForm_CONTRACTS.BitBtn3Click(Sender: TObject);

begin

if Form_COMPONENTS.Query_CONTRACTS.RecordCount > 0 Then

   Begin

      if MessageDlg('Удалить выбранную запись?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

         Begin

            Form_COMPONENTS.Query_CONTRACTS.Active := False;

            Form_COMPONENTS.Query.SQL.Text := 'DELETE FROM CONTRACTS WHERE ID = '+ Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsString;

            Form_COMPONENTS.Query.ExecSQL;

            Form_COMPONENTS.Query_CONTRACTS.Active := True;

         end

    end;

end; 

procedure TForm_CONTRACTS.BitBtn6Click(Sender: TObject);

begin

if Form_COMPONENTS.Query_CONTRACTS.RecordCount > 0 Then

   Begin

      Form_PAYMENTS.Tag := Form_COMPONENTS.Query_CONTRACTS.FieldByName('NOMER').AsInteger;

      Form_PAYMENTS.ShowModal;

   end;

end; 

procedure TForm_CONTRACTS.Button1Click(Sender: TObject);

begin

if Form_COMPONENTS.Query_CONTRACTS.RecordCount > 0 Then

   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 and P.CONTRACTS_ID = '+Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsString;

      Form_COMPONENTS.Query_PROLONGS.Active := True;

      Form_PROLONGS.ShowModal;

   end;    

end; 

procedure TForm_CONTRACTS.Button2Click(Sender: TObject);

begin

if Form_COMPONENTS.Query_CONTRACTS.RecordCount > 0 Then

   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 AND PAYS.CONTRACTS_ID = ' + Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsString;

      Form_COMPONENTS.Query_PAYS.Active := True;

      Form_PAYS.ShowModal;

   end;

end; 

procedure TForm_CONTRACTS.BitBtn4Click(Sender: TObject);

begin

if Form_COMPONENTS.Query_CONTRACTS.RecordCount > 0 Then

   Begin

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_AVTO.Text := '';

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VIN.Text := '';

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER_AVTO.Text := ''; 

      Form_ADD_EDIT_LOOK_CONTRACTS.BitBtn1.Visible := False;

      Form_ADD_EDIT_LOOK_CONTRACTS.Tag := 3; // Просмотр

      Form_ADD_EDIT_LOOK_CONTRACTS.Caption := 'Просмотр';

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Clear;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Clear;

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

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER.Tag := Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger; 

      Form_COMPONENTS.Query_CLIENTS.First;

      Form_COMPONENTS.Table_CURRENCY.First;

      Form_COMPONENTS.Table_AGENTS.First; 

      While not Form_COMPONENTS.Query_CLIENTS.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Items.Add(Form_COMPONENTS.Query_CLIENTS.FieldByName('FIO').AsString);

            Form_COMPONENTS.Query_CLIENTS.Next;

         end; 

      While not Form_COMPONENTS.Table_CURRENCY.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Items.Add(Form_COMPONENTS.Table_CURRENCY.FieldByName('VALUTA').AsString);

            Form_COMPONENTS.Table_CURRENCY.Next;

         end; 

      While not Form_COMPONENTS.Table_AGENTS.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Items.Add(Form_COMPONENTS.Table_AGENTS.FieldByName('AGENT').AsString);

            Form_COMPONENTS.Table_AGENTS.Next;

         end; 

      While not Form_COMPONENTS.Table_RISKS.Eof do

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Items.Add(Form_COMPONENTS.Table_RISKS.FieldByName('RISK').AsString);

            Form_COMPONENTS.Table_RISKS.Next;

         end; 

      Form_COMPONENTS.Table_CARS.Locate('CONTRACTS_ID', Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger, []);

      if Form_COMPONENTS.Table_CARS.FieldByName('CONTRACTS_ID').AsInteger = Form_COMPONENTS.Query_CONTRACTS.FieldByName('ID').AsInteger Then

         begin

            Form_ADD_EDIT_LOOK_CONTRACTS.Edit_AVTO.Text := Form_COMPONENTS.Table_CARS.FieldByName('CAR').AsString;

            Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER_AVTO.Text := Form_COMPONENTS.Table_CARS.FieldByName('NOMER').AsString;

            Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VIN.Text := Form_COMPONENTS.Table_CARS.FieldByName('VIN').AsString;

         end; 

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_NOMER.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('NOMER').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SERIA.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('SERIA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_FIO.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('FIO').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('VALUTA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_VID_DOGOVORA.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('VID_DOGOVORA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_AGENT.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('AGENT').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_RISK.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('RISK').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.DateTimePicker1.Date := Form_COMPONENTS.Query_CONTRACTS.FieldByName('DATA_NACH').AsDateTime;

      Form_ADD_EDIT_LOOK_CONTRACTS.DateTimePicker2.Date := Form_COMPONENTS.Query_CONTRACTS.FieldByName('DATA_KON').AsDateTime;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAKZT.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('SUMMA_IN_TENGE').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_SUMMAVAL.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('SUMMA_IN_VAL').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAKZT.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('PREMIA_IN_TENGE').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.Edit_PREMIAVAL.Text := Form_COMPONENTS.Query_CONTRACTS.FieldByName('PREMIA_IN_VAL').AsString; 
 

      Form_ADD_EDIT_LOOK_CONTRACTS.ShowModal;

   end;

end;

end.

unit Unit_CURRENCY; 

interface 

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids; 

type

  TForm_CURRENCY = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    procedure DBGrid1DblClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_CURRENCY: TForm_CURRENCY; 

implementation

Uses Unit_COMPONENTS, Unit_ADD_EDIT_LOOK_CONTRACTS;

{$R *.dfm} 

procedure TForm_CURRENCY.DBGrid1DblClick(Sender: TObject);

begin

if DBGrid1.Tag = 1 Then

   begin

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.Text := Form_COMPONENTS.Table_CURRENCY.FieldByName('VALUTA').AsString;

      Form_ADD_EDIT_LOOK_CONTRACTS.ComboBox_VALUTA.SetFocus;

      Close;

   end;

end;

end. 
 

unit Unit_LOGIN; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons; 

type

  TForm_LOGIN = class(TForm)

    ComboBox_USERS: TComboBox;

    Label1: TLabel;

    Label2: TLabel;

    Edit_Password: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure FormActivate(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure ComboBox_USERSChange(Sender: TObject);

    procedure Edit_PasswordKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_LOGIN: TForm_LOGIN; 

implementation 

{$R *.dfm}

uses Unit_COMPONENTS, Unit_MAIN, Unit_USERS; 

procedure TForm_LOGIN.FormActivate(Sender: TObject);

begin

   Form_USERS.Table_USERS.Active := True;

   ComboBox_USERS.Items.Clear; 

   While not (Form_USERS.Table_USERS.Eof) do

      begin

         ComboBox_USERS.Items.Add(Form_USERS.Table_USERS.FieldByName('USER').AsString);

         Form_USERS.Table_USERS.Next;

      end;

end; 

procedure TForm_LOGIN.BitBtn2Click(Sender: TObject);

begin

   Close;

end; 

procedure TForm_LOGIN.BitBtn1Click(Sender: TObject);

begin

   Form_USERS.Table_USERS.Locate('ID',ComboBox_USERS.Tag, []);

   if Edit_Password.Text = Form_USERS.Table_USERS.FieldByName('Password').AsString Then

      Form_MAIN.ShowModal

   else ShowMessage('Неверный  пароль или имя пользователя!');

end; 

procedure TForm_LOGIN.ComboBox_USERSChange(Sender: TObject);

begin

   ComboBox_USERS.Tag := Form_USERS.Table_USERS.FieldByName('ID').AsInteger;

end; 

procedure TForm_LOGIN.Edit_PasswordKeyPress(Sender: TObject;

  var Key: Char);

begin

if Key = #13 Then BitBtn1.SetFocus;

end;

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