втоматизованих інформаційних систем. ФОРУМ: ИНФРА-М, 2006. - 192 с.
. Дарахвелидзе П.Г., Марков Є.П. Програмування в Delphi 7 БХВ-Петербург +2003 - 784с.
. Дронов В.А. «Самовчитель Adobe Dreamweaver» БХВ-Петербург 206. - 320с.
. Карпова, Т.С. «Бази даних: моделі, розробка, реалізація» - СПб .: Питер, 2001. - 304 с.
. Партика Т.Л. Інформаційна безпека. Навчальний посібник для студентів закладів середньої професійної освіти/Т.Л. Партика, І.І. Попов.- 2-е изд., Испр. і доп.- М .: ФОРУМ: ИНФРА-М, 2007. - 368 с.
. Рудаков А.В. Технологія розробки програмних продуктів: Учеб. Посібник для студ. Серед. Проф. Освіти/А.В. Рудаков.- М .: Видавничий центр «Академія», 2005. - 208 с.
. Гігієнічні вимоги до персональних електронно-обчислювальних машин і організації роботи. СанПіН 2.2.2/2.4.1340-03: Постанова Уряду РФ від 30 травня 2003 року № 118//Збори законодавства РФ.- 2003.
. Створення таблиць за допомогою Database Desktop [# justify gt; 14. Borland Database Desktop [# justify gt; 15. Халезіним М.Б. Методичні вказівки з оформлення дипломних робіт: затв. 20.04.2007/М.Б. Халезіним.- Міас, 2007. - 11 с.
ДОДАТОК
Текст програми
Заставка
SplashUnit;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, jpeg, StdCtrls;=class (TForm): TTimer ;: TImage ;: TLabel; FormCreate (Sender: TObject ); Timer1Timer (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean);
{Private declarations}
{Public declarations} ;: TSplashForm;
{$ R * .dfm} TSplashForm.Timer1Timer (Sender: TObject) ;. Enabled:=False ;; TSplashForm.FormCloseQuery (Sender: TObject; CanClose: Boolean);:=Not Timer1.Enabled ;; TSplashForm.FormCreate (Sender: TObject) ;: TLogFont; (Canvas.Font.Handle, SizeOf (TLogFont),LogFont) ;. lfEscapement:=90; .Font.Handle:=CreateFontIndirect (LogFont) ;; end.
Основна форма
unit Osn ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ShellAPI, DB, DBTables, jpeg, ExtCtrls, ComCtrls, Math ,, Mask, Grids, DBGrids, OleCtrls, SHDocVw, Menus, RpRave, RpCon ,, RpConBDE, RpDefine, RpBase, RpSystem;=class (TForm): TDatabase ;: TTable ;: TStringField ;: TDateField ;: TSmallintField ;: TSmallintField ;: TFloatField ;: TSmallintField ;: TStringField ;: TTable ;: TSmallintField ;: TStringField ;: TStringField ;: TStringField ;: TStringField ;: TStringField ;: TFloatField ;: TPageControl ;: TTabSheet ;: TTabSheet ;: TGroupBox ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TComboBox ;: TLabel ;: TButton ;: TGroupBox ;: TMemo ;: TRadioGroup ;: TButton ;: TButton ;: TButton ;: TTimer ;: TDataSource ;: TWebBrowser;:TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TStringField ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TRvSystem ;: TRvTableConnection ;: TRvProject ;: TImage ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; FormCreate ( Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); FormActivate (Sender: TObject); TabSheet2Show (Sender: TObject); Button1Click (Sender: TObject); FormActiv (); ButtonClick (a: integer); Button3Click (Sender: TObject); Button2Click (Sender: TObject ); Button4Click (Sender: TObject); RadioGroup1Click (Sender: TObject); Red_Brow (a: boolean); Timer1Timer (Sender: TObject); PageControl1Change (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender: TObject) ; Button13Click (Sender: TObject); N6Click (Sender: TObject); N3Click (Sender: TObject); N7Click (Sender: TObject); N8Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TOsnow;: TForm ;, err: boolean ;, j, NomerWoprosa, WsegoWoprosow, a, prosto, prawOtw, ozen, rez, k: integer;, NachTime: TDateTime;:array [0..10] of integer ;: array [0..10] of integer;: tsearchrec ;: string; WwodParol, Avtor, UstTime, UstOz;
{$ R * .dfm} TOsnow.FormCreate (Sender: TObject);.Params.Clear;.Params.Add(laquo;PATH=raquo;+ExtractFilePath(ParamStr(0)));.Connected:=false;.Active:=true;.Active:=false;.TableType:=ttParadox;.Active:=true;.Navigate(extractfilepath(paramstr(0))+laquo;AzbukaKompaindex.htmraquo;);
{AssignFile (fil, extractfilepath (paramstr (0)) + oz.001 ); (fil); EInOutError do:=885; .Position:=85; .Position:=60 ; .Position:=45; .Position:=0 ;; end; i lt; gt; 885 then(fil,s);.Position:=strtoint(s);(fil,s);.Position:=strtoint(s);(fil,s);.Position:=strtoint(...
