Требования безопасности по окончании работы

Не отключайте компьютер, если светиться индикатор работы с жестким диском. Исключение составляют только те случаи, когда программа, которой вы пользовались, безнадежно «повисла» и не желает реагировать ни на какие клавиши, но даже и в этом случае лучше не отключать питание, а воспользоваться кнопкой «Reset» .

Отключение компьютера при работе с винчестером или дискетой может привести не только к физическим разрушениям их магнитного слоя, но и к логическому разрушению хранимой информации.

Отключение компьютера необходимо проводить в следующем порядке:

• — завершить все работающие программы;
• — отключить все внешние устройства;
• — отключить монитор;
• — отключить компьютер (переключателем на корпусе);
• — отключить блок розеток.

Листинг программы

unit Unit1; // главный модуль с основной формой.

interface.

uses.

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

Dialogs, Menus, jpeg, ExtCtrls;

type.

TForm1 = class (TForm).

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

procedure N4Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

//подключенные модули.

uses datamod, Rab, Unit3, UnitVak, help_unit;

{$R *.dfm}.

// пункт меню Выход.

procedure TForm1. N4Click (Sender: TObject);

begin.

Close; // Закрыть программу.

end;

// Пункт меню Анкета.

procedure TForm1. N1Click (Sender: TObject);

begin.

Form2.Show;

end;

// Пункт меню Работодатели.

procedure TForm1. N2Click (Sender: TObject);

begin.

FormRab.Show; // показать форму Работодатели.

FormRab.DBGrid1.DataSource:=dm.ds_z; // указать источник данных для таблицы.

FormRab.DBNavigator1.DataSource:=dm.ds_z;

end;

// Пункт меню Вакансии.

procedure TForm1. N3Click (Sender: TObject);

begin.

FormVak.Show;

end;

// Пункт меню Помощь.

procedure TForm1. N5Click (Sender: TObject);

begin.

FormHelp.show;

end;

end.

// модуль Анкета.

unit datamod;

interface.

uses.

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls;

type.

TForm2 = class (TForm).

DBComboBox1: TDBComboBox;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

Label8: TLabel;

DBEdit8: TDBEdit;

Label9: TLabel;

DBEdit9: TDBEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

DBEdit12: TDBEdit;

Label13: TLabel;

Label14: TLabel;

DBEdit13: TDBEdit;

DBComboBox2: TDBComboBox;

DBCheckBox1: TDBCheckBox;

DBComboBox3: TDBComboBox;

DBNavigator1: TDBNavigator;

Button1: TButton;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form2: TForm2;

var cifri, kod: integer;// переменные для функции val — ограничение ввода только цифр

stroka:string;

implementation.

// подключение модулей.

uses Unit3, STab;

{$R *.dfm}.

// открыть форму FormSTAb с табличным выводом анкет.

procedure TForm2. Button1Click (Sender: TObject);

begin.

FormSTAb.Show;

end;

// ограничить ввод только цифр в поле Возраст.

procedure TForm2. DBEdit6Change (Sender: TObject);

begin.

stroka:=DBEdit6.Field.AsString;

Val (stroka, cifri, kod);

if kod 0 then DBEdit6.Field.Clear;

end;

end.

unit Rab; // модуль с формой Работодатели.

interface.

uses.

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids;

type.

TFormRab = class (TForm).

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

FormRab: TFormRab;

implementation.

// подключенные модули.

uses Unit3, datamod, STab, Unit1;

{$R *.dfm}.

end.

// модуль анкет в табличной форме.

unit STab;

interface.

uses.

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

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

type.

TFormSTAb = class (TForm).

DBGrid1: TDBGrid;

ComboBox1: TComboBox;

Label1: TLabel;

Button1: TButton;

DBNavigator1: TDBNavigator;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

FormSTAb: TFormSTAb;

Implementation.

// подключенные модули.

uses Unit3;

{$R *.dfm}.

procedure TFormSTAb. Button1Click (Sender: TObject);

begin.

// для сортировки выбрано поле из списка.

dm.t_s.IndexFieldNames:=ComboBox1.Text;

end;

end.

unit Unit3; // модуль подключения к базе данных.

interface.

uses.

SysUtils, Classes, DB, ADODB;

type.

Tdm = class (TDataModule).

ADOConnection1: TADOConnection;

ds_s: TDataSource;

t_s: TADOTable;

ds_z: TDataSource;

t_z: TADOTable;

ds_v: TDataSource;

t_v: TADOTable;

t_zDSDesigner: TAutoIncField;

t_zDSDesigner2: TWideStringField;

t_zDSDesigner3: TWideStringField;

t_zDSDesigner4: TWideStringField;

t_zDSDesigner5: TWideStringField;

t_zDSDesigner6: TWideStringField;

t_vDSDesigner: TAutoIncField;

t_vDSDesigner2: TWideStringField;

t_vDSDesigner4: TWideStringField;

t_vDSDesigner5: TIntegerField;

t_vDSDesigner6: TWideStringField;

t_vDSDesigner7: TIntegerField;

t_vDSDesigner8: TBooleanField;

t_vDSDesigner9: TDateTimeField;

t_vDSDesigner10: TIntegerField;

t_sDSDesigner: TAutoIncField;

t_sDSDesigner2: TWideStringField;

t_sDSDesigner3: TWideStringField;

t_sDSDesigner4: TWideStringField;

t_sDSDesigner5: TIntegerField;

t_sDSDesigner6: TWideStringField;

t_sDSDesigner7: TWideStringField;

t_sDSDesigner8: TWideStringField;

t_sDSDesigner9: TWideStringField;

t_sDSDesigner10: TWideStringField;

t_sDSDesigner11: TWideStringField;

t_sDSDesigner12: TBooleanField;

t_sDSDesigner13: TIntegerField;

t_sDSDesigner14: TBCDField;

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

dm: Tdm;

implementation.

{$R *.dfm}.

end.

// модуль таблицы вакансий.

unit UnitVak;

interface.

uses.

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

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

type.

TFormVak = class (TForm).

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

FormVak: TFormVak;

implementation.

uses Unit3;

{$R *.dfm}.

procedure TFormVak. Button1Click (Sender: TObject);

begin.

// сортировка по профессии.

dm.t_v.IndexFieldNames:='Профессия вакансии';

end;

end.

// модуль help.

unit UnitVak;

interface.

uses.

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

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

type.

TFormVak = class (TForm).

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

FormVak: TFormVak;

implementation.

uses Unit3;

{$R *.dfm}.

procedure TFormVak. Button1Click (Sender: TObject);

begin.

dm.t_v.IndexFieldNames:='Профессия вакансии';

end;

end.