нення бази даних можливе користування сканером, необхідно так само наявність такого пристрою як CD-ROM і наявності USB.
Здійснення запуск програми, з робочого столу вибравши ярлик з назвою «Project1 - Ярлик»
Список використаних джерел
1. Стивене Р. «Delphi. Готові алгоритми »
2. Фленов М. Є. «Програмування в Delphi очами хакера»
. Фленов М.Є. «Біблія для програміста в середовищі Delphi»
. Культін Н.Б. «Delphi в задачах і прикладах»
. Галісеев Г.В. «Програмування в середовищі Delphi 7»
. Мітчелл К. Керман «Програмування та налагодження в Delphi»
інформаційний програмний страхової облік
Додаток А
Вхідний документ «Паспорт»
Вхідний документ «Свідоцтво про реєстрацію ТЗ»
Вхідний документ «Діагностична карта»
Вихідний документ «Поліс»
Додаток Б
unit Unit1;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, StdCtrls;
=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TLabel ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TLabel; N5Click (Sender: TObject); N7Click (Sender: TObject); N6Click (Sender: TObject); N8Click (Sender: TObject); N4Click (Sender: TObject); N9Click (Sender: TObject); N10Click (Sender: TObject); N11Click (Sender: TObject); N12Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations}
Додаток В
end ;: TForm1; Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unit10;
{$ R * .dfm} TForm1.N5Click (Sender: TObject) ;. Hide; .show ;; TForm1.N7Click (Sender: TObject) ;. Hide; .show ;; TForm1.N6Click (Sender: TObject) ;. Hide; .show ;; TForm1.N8Click (Sender: TObject) ;. Hide; .show ;; TForm1.N4Click (Sender: TObject) ;. Close ;; TForm1.N9Click (Sender: TObject) ; .show; .Hide ;; TForm1.N10Click (Sender: TObject) ;. Show; .Hide ;; TForm1.N11Click (Sender: TObject) ;. Show; .Hide ;; TForm1.N12Click (Sender: TObject) ;. Show; .Hide ;; TForm1.FormCreate (Sender: TObject) ;;. Unit2 ;, Classes, DB, ADODB;=class (TDataModule): TADOConnection ;: TADOTable ;: TADOTable ;: TADOTable ;: TADOTable ;: TDataSource ;: TDataSource ;: TDataSource ;: TDataSource;
{Private declarations}
{Public declarations} ;: TDataModule2;
{$ R * .dfm} .Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;=class (TForm): TDBGrid ;: TDBNavigator ;: TButton ;: TLabel; DBNavigator1Click (Sender: TObject; Button: TNavigateBtn); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3; Unit1, Unit2, Unit4, Unit5, Unit6;
{$ R * .dfm} TForm3.DBNavigator1Click (Sender: TObject; Button:) ;: string; Button of: ButtonName:= nbFirst raquo ;;: ButtonName:= nbPrior raquo ;;:ButtonName:= nbNext raquo ;;: ButtonName:= nbLast raquo ;;: ButtonName:= nbInsert raquo ;;: ButtonName:= nbDelete raquo ;;: ButtonName:= nbEdit raquo ;;: ButtonName:= nbPost raquo ;;: ButtonName:= nbRefresh raquo ;;;; TForm3.Button1Click (Sender: TObject) ;. Hide; .Show ;;. Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;=class (TForm): TDBGrid ;: TDBNavigator ;: TButton ;: TLabel; DBNavigator1Click (Sender: TObject ; Button: TNavigateBtn); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm4; Unit1, Unit2, Unit3, Unit5, Unit6;
{$ R * .dfm} TForm4.DBNavigator1Click (Sender: TObject; Button:) ;: string; Button of: ButtonName:= nbFirst raquo ;;: ButtonName:= nbPrior raquo ;;:ButtonName:= nbNext raquo ;;: ButtonName:= nbLast raquo ;;: ButtonName:= nbInsert raquo ;;: ButtonName:= nbDelete raquo ;;: ButtonName:= nbEdit raquo ;;: ButtonName:= laquo ; nbPost raquo ;;: ButtonName:= nbRefresh raquo ;;;; TForm4.Button1Click (Sender: TObject) ;. Hide; .Show ;;. Unit5 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;=class (TForm): ...
