Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Разработка электронного учебника по предмету "Автоматизированная информационная система"

Разработка электронного учебника по предмету "Автоматизированная информационная система"

Логическая структура программы. Руководство системного программиста, пользователя. Требования к уровню обеспечения информационной безопасности. Цели и задачи защиты данных. Расчет себестоимости и отпускной цены системы. Техника безопасности, охрана труда.

Рубрика	Программирование, компьютеры и кибернетика
Вид	дипломная работа
Язык	русский
Дата добавления	27.06.2014
Размер файла	1,5 M

посмотреть текст работы

скачать работу можно здесь

полная информация о работе

весь список подобных работ

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

radioGroup1.Items.Add(WoprosOtvet2.AsString);

radioGroup1.Items.Add(WoprosOtvet3.AsString);

radioGroup1.Items.Add(WoprosOtvet4.AsString);

radioGroup1.ItemIndex:=otwet[a];

end;

procedure TOsnow.FormActiv();

begin

if NomerWoprosa=WsegoWoprosow then

begin

Button3.Enabled := false;

Button4.Visible := true;

end

else

begin

Button3.Enabled := true;

Button4.Visible := false;

end;

if NomerWoprosa=0 then

Button2.Enabled := false

else

Button2.Enabled := true;

end;

procedure TOsnow.Button1Click(Sender: TObject);

label 1 ;

begin

if Edit1.Text='' then

begin

Application. MessageBox ('Зарегистрируйтесь!',' Предупреждение',mb_OK);

Edit1.SetFocus;

exit;

end;

if ComboBox2.Text='' then

begin

Application.MessageBox('Не выбран тест!','Предупреждение',mb_OK);

ComboBox2.SetFocus;

exit;

end;

TestNach:=true;

Wopros.Active:=false;

Wopros.TableName:=ComboBox2.Text;

Wopros.Active:=true;

GroupBox2.Enabled:=true;

Memo1.Enabled:=true;

RadioGroup1.Enabled:=true;

Button2.Enabled:=true;

Button3.Enabled:=true;

Button4.Enabled:=true;

if Form2.CheckBox1.Checked=true then

begin

Timer1.Enabled:=true;

TimeTest:=Form2.DateTimePicker1.DateTime;

end

else

Timer1.Enabled:=false;

NomerWoprosa := 0;

WsegoWoprosow := Wopros.RecordCount-1;

{if (Osnow.Wopros.RecordCount+1)<WsegoWoprosow then

begin

Application.MessageBox('Записей с вопросами в базе данных меньше, '+

'чем установлено в настройках. '+

'Обратитесь к администратору.' ,'Предупреждение',mb_OK);

Err:=true;

Glaw.Close;

exit;

end; }

{RezTest.StringGrid1.ColCount:=WsegoWoprosow+2;

RezTest.StringGrid1.RowCount:=3; }

Randomize;

for i:=0 to WsegoWoprosow do

begin

prosto:= random(Wopros.RecordCount+1);

for j:=0 to i do

if (prosto=Tekwopros[j])or(prosto=0) then goto 1; // проверка на повторное вхождение вопроса

Tekwopros[i]:= prosto;

otwet[i]:= -1;

memo1.Lines.Add(inttostr(Tekwopros[i]));

end;

FormActiv();

ButtonClick(NomerWoprosa);

end;

procedure TOsnow.Button3Click(Sender: TObject);

begin

NomerWoprosa:=NomerWoprosa+1;

FormActiv();

ButtonClick(NomerWoprosa);

end;

procedure TOsnow.Button2Click(Sender: TObject);

begin

NomerWoprosa:=NomerWoprosa-1;

FormActiv();

ButtonClick(NomerWoprosa);

end;

procedure TOsnow.Button4Click(Sender: TObject);

begin

if Form2.CheckBox1.Checked=true then

Timer1.Enabled:=false;

Timer1.Enabled:=False;

Rezultati.Active:=true;

Rezultati.Append;

RezultatiFIO.Value:=Edit1.Text+' ' +Edit2.Text+' ' +Edit3.Text;

RezultatiGruppa.Value:=Edit4.Text;

RezultatiDate.Value:=Date;

RezultatiTest.Value:=ComboBox2.Text;

prawOtw:=0;

for i:=0 to WsegoWoprosow do

begin

Wopros.RecNo := Tekwopros[i];

if WoprosRightOtv.AsInteger=otwet[i]+1 then

prawOtw:=prawOtw+1;

end;

RezultatiKolPrawOtw.Value:=prawOtw;

RezultatiBall.Value:=roundTo((prawOtw*100)/(WsegoWoprosow+1),-2);

{Osnow.Nastroiki.Active:=true;

Osnow.Nastroiki.Last; }

ozen:=0;

if ((prawOtw*100)/(WsegoWoprosow+1))>= Form4.TrackBar1.Position then

ozen:=5

else

if ((prawOtw*100)/(WsegoWoprosow+1))>= Form4.TrackBar2.Position then

ozen:=4

else

if ((prawOtw*100)/(WsegoWoprosow+1))>= Form4.TrackBar3.Position then

ozen:=3

else

ozen:=2;

Osnow.RezultatiOzenka.Value:=ozen;

RezultatiKolWopr.Value:=WsegoWoprosow+1;

RezultatiKolPrawOtw.Value:=prawOtw;

Rezultati.Post;

Application.MessageBox(PChar('Правильных ответов '+IntToStr(prawOtw)+' из '+IntToStr(WsegoWoprosow+1)+' вопросов. ),'Результат',mb_OK);

//Rezultati.Active:=false;

TestNach:=false;

Button4.Enabled:=false;

Memo1.Lines.Clear;

RadioGroup1.Items.Clear;

GroupBox2.Enabled:=false;

end;

procedure TOsnow.RadioGroup1Click(Sender: TObject);

begin

otwet[NomerWoprosa]:= RadioGroup1.ItemIndex;

end;

procedure TOsnow.Timer1Timer(Sender: TObject);

begin

TimeTest:=TimeTest-StrToTime('00:00:01');

If TimeToStr(TimeTest)='0:00:00' then

begin

Timer1.Enabled:=false;

Application.MessageBox('Время закончилось!' ,'Предупреждение',mb_OK);

Button4Click(Button4);

exit;

end;

Label14.Caption:=timeToStr(TimeTest);

end;

procedure TOsnow.PageControl1Change(Sender: TObject);

begin

if (TestNach = true ) then

begin

PageControl1.ActivePage:=TabSheet2;

Application.MessageBox('Для перехода на другую страницу необходимо завершить тестирование.','Ошибка',mb_OK);

end;

if PageControl1.ActivePage = TabSheet1 then

WebBrowser1.Navigate(extractfilepath(paramstr(0))+'AzbukaKompa\index.htm');

end;

procedure TOsnow.N2Click(Sender: TObject);

begin

Parol.Edit1.Clear;

Parol.Show;

end;

procedure TOsnow.N5Click(Sender: TObject);

begin

AvtorForm .Show;

end;

procedure TOsnow.Button13Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TOsnow.N6Click(Sender: TObject);

var

Vf: file;

j:integer;

begin

j:=ShellExecute(handle, 'open','help/index.htm',Nil,Nil,SW_SHOWNORMAL);

end;

procedure TOsnow.N3Click(Sender: TObject);

begin

Osnow.Close;

end;

procedure TOsnow.N7Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet1;

end;

procedure TOsnow.N8Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet2;

end;

end.

Настройки

unit Nastr;

interface

uses

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

Dialogs, StdCtrls, ShellAPI, DB, DBTables, jpeg, ExtCtrls, ComCtrls, Math,

DBCtrls, Mask, Grids, DBGrids, OleCtrls, SHDocVw, Menus, RpRave, RpCon,

RpConDS, RpConBDE, RpDefine, RpBase, RpSystem;

type

TAdm = class(TForm)

Database1: TDatabase;

Rezultati: TTable;

RezultatiFIO: TStringField;

RezultatiDate: TDateField;

RezultatiKolWopr: TSmallintField;

RezultatiKolPrawOtw: TSmallintField;

RezultatiBall: TFloatField;

RezultatiOzenka: TSmallintField;

RezultatiTest: TStringField;

Wopros: TTable;

WoprosKod: TSmallintField;

WoprosVopros: TStringField;

WoprosOtvet1: TStringField;

WoprosOtvet2: TStringField;

WoprosOtvet3: TStringField;

WoprosOtvet4: TStringField;

WoprosRightOtv: TFloatField;

PageControl1: TPageControl;

TabSheet3: TTabSheet;

GroupBox4: TGroupBox;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

DBGrid2: TDBGrid;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit12: TDBEdit;

DBEdit11: TDBEdit;

DBNavigator2: TDBNavigator;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Timer1: TTimer;

TabSheet4: TTabSheet;

DBGrid1: TDBGrid;

Label33: TLabel;

DBEdit1: TDBEdit;

Label34: TLabel;

DBEdit2: TDBEdit;

Label35: TLabel;

DBEdit6: TDBEdit;

Label36: TLabel;

DBEdit4: TDBEdit;

DBNavigator1: TDBNavigator;

Button5: TButton;

Button6: TButton;

DataSource2: TDataSource;

ComboBox1: TComboBox;

Label15: TLabel;

Button12: TButton;

Button18: TButton;

RezultatiGruppa: TStringField;

Button13: TButton;

RvSystem1: TRvSystem;

RvTableConnection1: TRvTableConnection;

RvProject1: TRvProject;

GroupBox1: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

DataSource1: TDataSource;

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure TabSheet3Show(Sender: TObject);

procedure Button12Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure DataSource3StateChange(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

procedure Button11Click(Sender: TObject);

procedure Red_Brow(a: boolean);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure PageControl1Change(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button13Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure DataSource1StateChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Adm: TAdm;

TekForm:TForm;

TestNach, err: boolean;

i, j, NomerWoprosa, WsegoWoprosow, a, prosto, prawOtw, ozen, rez, k : integer;

TimeTest,NachTime : TDateTime;

Tekwopros : array [0..10] of integer;

otwet : array [0..10] of integer;

sr:tsearchrec;

resKOD : string;

implementation

uses WwodParol, Avtor, Osn, UstOz, UstTime, UstParol;

{$R *.dfm}

procedure TAdm.Red_Brow(a: boolean);

begin

DBEdit7.ReadOnly:=a;

DBEdit8.ReadOnly:=a;

DBEdit9.ReadOnly:=a;

DBEdit10.ReadOnly:=a;

DBEdit11.ReadOnly:=a;

DBEdit12.ReadOnly:=a;

End;

procedure TAdm.FormCreate(Sender: TObject);

var

fil: TextFile;

S: string;

begin

Database1.Params.Clear;

Database1.Params.Add('PATH='+ExtractFilePath(ParamStr(0)));

Database1.Connected:=false;

Rezultati.Active:=true;

Wopros.Active:=false;

Wopros.TableType:=ttParadox;

Wopros.Active:=true;

PageControl1.ActivePage:=TabSheet3;

end;

procedure TAdm.FormActivate(Sender: TObject);

begin

Wopros.Active:=false;

Wopros.TableType:=ttParadox;

Wopros.Active:=true;

end;

procedure TAdm.TabSheet3Show(Sender: TObject);

begin

ComboBox1.Clear;

res:=FindFirst(extractfilepath(paramstr(0))+'*.db',faanyfile,sr);

while res=0 do

begin

if (sr.name='Nastroiki.DB')or(sr.name='Polz.DB')or(sr.name='Rezult.DB')or(sr.name='Wopr.DB') then

else

begin

ComboBox1.Items.Add(sr.name);

end;

res:=findnext(sr);

end;

findclose(sr);

end;

procedure TAdm.Button12Click(Sender: TObject);

var

ii: integer;

begin

k:=0;

s:=inputbox('Ввод данных','Введите имя файла нового теста.','');

if s='' then

begin

application.MessageBox(pchar('Имя БД теста не введено. Создание теста прекращено.'),'Предупреждение',mb_ok);

exit;

end

else

begin

if (pos('.',s)>0) then delete(s,pos('.',s),1);

for ii:=0 to combobox1.Items.Count-1 do

if combobox1.Items[ii]=s+'.db' then

begin

j:=application.MessageBox(pchar('БД с таким именем уже существует. Заменить БД?'),'Вопрос',mb_yesno);

if j=7 then

begin

application.MessageBox(pchar('Создание теста прекращено.'),'Предупреждение',mb_ok);

exit;

end

else begin k:=2223;break;end;

end;

j:=0;

Wopros.Active:=false;

Wopros.EmptyTable;

ComboBox1.Items.Add(s+'.db');

ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;

Wopros.TableName:=ComboBox1.Text;

copyfile(pchar(extractfilepath(paramstr(0))+'Wopr.db'),pchar(extractfilepath(paramstr(0))+s+'.db'),false);

Wopros.Active:=true;

end;

procedure TAdm.Button18Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить базy данных?'),'Удаление записи',mb_YesNo) = id_Yes then

begin

if ComboBox1.Text<>'' then

try

Wopros.Active:=false;

assignfile(f,extractfilepath(paramstr(0))+ComboBox1.Text);

erase(f);

s:=ComboBox1.Text;

delete(s,length(s)-2,3);

ComboBox1.Items.Delete(ComboBox1.ItemIndex);

ComboBox1.ItemIndex:=0;

Wopros.TableName:=ComboBox1.Text;

Wopros.Active:=true;

except

Application.MessageBox('Невозможно удалить действующую базу данных','Предупреждение',mb_ok)

end

else

Application.MessageBox('Не выбран файл для удаления','Предупреждение',mb_ok);

end;

procedure TAdm.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text='' then

begin

Button7.Enabled:=false;

Button8.Enabled:=false;

Button9.Enabled:=false;

Button10.Enabled:=false;

Button11.Enabled:=false;

DBNavigator2.Enabled:=false;

Button18.Enabled:=false;

DBEdit7.ReadOnly:=false;

DBEdit8.ReadOnly:=false;

DBEdit9.ReadOnly:=false;

DBEdit10.ReadOnly:=false;

DBEdit11.ReadOnly:=false;

DBEdit12.ReadOnly:=false;

end

else

begin

Wopros.Active:=false;

Wopros.TableName:=ComboBox1.Text;

Wopros.Active:=true;

Button18.Enabled:=true;

end;

procedure TAdm.DataSource3StateChange(Sender: TObject);

var

ss : boolean;

begin

ss:=((Wopros.State = dsEdit) or (Wopros.State = dsInsert));

Button7.Enabled:=not ss;

Button8.Enabled:=not ss;

Button9.Enabled:=not ss;

Button10.Enabled:=ss;

Button11.Enabled:=ss;

DBNavigator2.Enabled:=not ss;

Button12.Enabled:=not ss;

Button18.Enabled:=not ss;

end;

procedure TAdm.Button7Click(Sender: TObject);

begin

Red_Brow(false);

Wopros.Append;

DBEdit7.SetFocus;

end;

procedure TAdm.Button8Click(Sender: TObject);

begin

Red_Brow(false);

Wopros.Edit;

DBEdit7.SetFocus;

end;

procedure TAdm.Button9Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись из базы данных?'),'Удаление записи',mb_YesNo) = id_Yes then

begin

try

Wopros.Delete;

except

on EDBEngineError do

begin

ShowMessage('Сведения удалять нельзя. ');

Exit;

end;

procedure TAdm.Button10Click(Sender: TObject);

begin

if Trim(DBEdit7.Text) = '' then

begin

Application.MessageBox('Для записи данных в таблицу поле Вопрос должно быть заполнено.','Предупреждение',mb_OK);

DBEdit7.SetFocus;

end

else

if (Trim(DBEdit8.Text) = '') then

begin

Application.MessageBox('Для записи данных в таблицу поле Вариант 1 должно быть заполнено.','Предупреждение',mb_OK);

DBEdit8.SetFocus;

end

else

if Trim(DBEdit9.Text) = '' then

begin

Application.MessageBox('Для записи данных в таблицу поле Вариант 2 должно быть заполнено.','Предупреждение',mb_OK);

DBEdit9.SetFocus;

end

else

if Trim(DBEdit10.Text) = '' then

begin

Application.MessageBox('Для записи данных в таблицу поле Вариант 3 должно быть заполнено.','Предупреждение',mb_OK);

DBEdit10.SetFocus;

end

else

if Trim(DBEdit12.Text) = '' then

begin

Application.MessageBox('Для записи данных в таблицу поле Вариант 4 должно быть заполнено.','Предупреждение',mb_OK);

DBEdit12.SetFocus;

end

else

if Trim(DBEdit11.Text) = '' then

begin

Application.MessageBox('Для записи данных в таблицу поле Номер ответа должно быть заполнено.','Предупреждение',mb_OK);

DBEdit11.SetFocus;

end

else

if (StrToInt(DBEdit11.Text)<>1)and(StrToInt(DBEdit11.Text)<>2)and(StrToInt(DBEdit11.Text)<>3)and(StrToInt(DBEdit11.Text)<>4) then

begin

Application.MessageBox('№ ответа должен быть равен 1, 2,3 или 4.','Предупреждение',mb_OK);

DBEdit11.Text:='';

DBEdit11.SetFocus;

end

else

begin

Wopros.Post;

Red_Brow(true);

end;

procedure TAdm.Button11Click(Sender: TObject);

begin

Wopros.Cancel;

Red_Brow(true);

end;

procedure TAdm.Button5Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить запись из базы данных?'),'Удаление записи',mb_YesNo) = id_Yes then

begin

try

Rezultati.Delete;

except

on EDBEngineError do

begin

ShowMessage('Сведения удалять нельзя. ');

Exit;

end;

procedure TAdm.Button6Click(Sender: TObject);

var

i: integer;

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить ВСЕ записи из базы данных?'),'Удаление записей',mb_YesNo) = id_Yes then

begin

try

Rezultati.First;

for i:=1 to Rezultati.RecordCount do

begin

Rezultati.Delete;

end;

except

on EDBEngineError do

begin

Rezultati.Next;

end;

procedure TAdm.PageControl1Change(Sender: TObject);

begin

if (Wopros.State = dsEdit) or (Wopros.State = dsInsert) then

begin

PageControl1.ActivePage:=TabSheet3;

Application.MessageBox('Для перехода на другую страницу необходимо завершить редактирование или ввод новых данных.','Ошибка',mb_OK);

end;

procedure TAdm.N2Click(Sender: TObject);

begin

Parol.Edit1.Clear;

Parol.Show;

end;

procedure TAdm.N5Click(Sender: TObject);

begin

AvtorForm .Show;

end;

procedure TAdm.Button13Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TAdm.N6Click(Sender: TObject);

var

Vf: file;

j:integer;

begin

j:=ShellExecute(handle, 'open','help/index.htm',Nil,Nil,SW_SHOWNORMAL);

end;

procedure TAdm.Button1Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TAdm.Button2Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TAdm.Button3Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TAdm.DataSource1StateChange(Sender: TObject);

var

ss : boolean;

begin

ss:=((Wopros.State = dsEdit) or (Wopros.State = dsInsert));

Button7.Enabled:=not ss;

Button8.Enabled:=not ss;

Button9.Enabled:=not ss;

Button10.Enabled:=ss;

Button11.Enabled:=ss;

DBNavigator2.Enabled:=not ss;

end;

end.

Установка пароля

unit UstParol;

interface

uses

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

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

GroupBox7: TGroupBox;

Label31: TLabel;

Label32: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Button20: TButton;

Button14: TButton;

procedure Button20Click(Sender: TObject);

procedure Button14Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

resKOD : string;

f: TextFile;

S: string;

implementation

{$R *.dfm}

procedure TForm3.Button20Click(Sender: TObject);

begin

resKOD:=edit5.Text;

assignfile(f,extractfilepath(paramstr(0))+'p.001');

reset(f);

read(f,s);

closefile(f);

if resKOD<>s then

begin

application.MessageBox('Неверный старый пароль!','Ошибка',mb_OK);

edit5.Clear;

edit6.Clear;

edit5.SetFocus;

exit;

end;

assignfile(f,extractfilepath(paramstr(0))+'p.001');

rewrite(f);

resKOD:=edit6.Text;

write(f,resKOD);

closefile(f);

application.MessageBox('Пароль изменен!','Сообщение',mb_OK);

edit5.Clear;

edit6.Clear;

Form3.Close;

end;

procedure TForm3.Button14Click(Sender: TObject);

begin

edit5.Clear;

edit6.Clear;

Form3.Close;

end;

end.

Проверка пароля

unit WwodParol;

interface

uses

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

Dialogs, StdCtrls;

type

TParol = class(TForm)

Button1: TButton;

Edit1: TEdit;

Label3: TLabel;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Parol: TParol;

s1,res1,s,s_:string;

h,j,res:integer;

sr:tsearchrec;

fil,fill,realF,f:textfile;

implementation

uses Osn, Nastr;

{$R *.dfm}

procedure TParol.FormCreate(Sender: TObject);

begin

res:=FindFirst(extractfilepath(paramstr(0))+'p.001',faanyfile,sr);

while res=0 do

begin

s_:=sr.name;

res:=findnext(sr);

end;

findclose(sr);

assignfile(f,extractfilepath(paramstr(0))+'p.001');

reset(f);

read(f,s);

closefile(f);

end;

procedure TParol.Button1Click(Sender: TObject);

begin

if s=Edit1.Text then

begin

Adm.Show;

hide;

end

else

begin

application.MessageBox('Неверный пароль!','Ошибка',mb_OK);

end;

procedure TParol.Button2Click(Sender: TObject);

begin

Parol.Close;

end;

procedure TParol.FormShow(Sender: TObject);

begin

res:=FindFirst(extractfilepath(paramstr(0))+'p.001',faanyfile,sr);

while res=0 do

begin

s_:=sr.name;

res:=findnext(sr);

end;

findclose(sr);

assignfile(f,extractfilepath(paramstr(0))+'p.001');

reset(f);

read(f,s);

closefile(f);

end;

end.

index.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Документ Без Имени</title>

<!--

.стиль16 { color: #0000FF;

font-size: 14px;

font-weight: bold;

}

.стиль24 {font-size: 14px; color: #0000FF; }

.стиль26 {font-weight: bold; font-size: 14px;}

.стиль27 {font-size: 14px}

.стиль28 {color: #0000FF}

.стиль29 {color: #0000FF; font-size: 14px; font-weight: bold; }

.style4 { color: #000000;

}

-->

</style>

</head>

<body>

<cite><a href="Vvedenie.html" target="mainFrame">Введение</a></cite>

<cite><a href="11.html" target="mainFrame">Глава 1. Общая характеристика АИС</a></cite>

<cite><a href="11.html" target="mainFrame">1.1. АИС: основные понятия и </a></cite><cite><a href="11.html" target="mainFrame">определения</a></cite>

<cite><a href="12.html" target="mainFrame">1.2. Информационные потоки и </a></cite><cite><a href="12.html" target="mainFrame">необходимость их автоматизаци</a></cite>

<cite><a href="131.html" target="mainFrame">1.3. Состав и структура АИС</a> </cite>

<cite><a href="131.html" target="mainFrame">1.3.1. Состав АИС</a></cite>

<cite><a href="132.html" target="mainFrame">1.3.2. Структура АИС</a></cite>

<cite><a href="14.html" target="mainFrame">1.4. Методы, стадии и этапы</a></cite><cite><a href="14.html" target="mainFrame"> создания АИС</a> </cite>

<cite><a href="141.html" target="mainFrame">1.4.1. Методы разработки</a></cite>

<cite><a href="142.html" target="mainFrame">1.4.2. Основные стадии </a></cite><cite><a href="142.html" target="mainFrame">создания АИС</a></cite>

<cite><a href="141.html" target="mainFrame">1.4.3.</a><a href="143.html" target="mainFrame"> Содержание этапов </a></cite><cite><a href="143.html">создания АС на различных</a></cite><cite><a href="143.html">стадиях</a></cite>

<cite><a href="21.html" target="mainFrame">Глава 2. Типовые средства АИС</a></cite>

<cite><a href="21.html" target="mainFrame"> 2.1. Информационное обеспечение</a> </cite>

<cite><a href="21.html" target="mainFrame">2.1.1.</a><a href="21.html" target="mainFrame"> Принципы создания </a></cite><cite><a href="21.html" target="mainFrame">информационного обеспечения</a></cite>

<cite><a href="212.html" target="mainFrame">2.1.2.</a><a href="212.html" target="mainFrame"> Базы данных</a></cite>

<cite><a href="213.html" target="mainFrame">2.1.3.</a><a href="213.html" target="mainFrame"> Файлы операционной</a> </cite><cite><a href="213.html">системы</a></cite>

<cite><a href="214.html" target="mainFrame">2.1.4.</a><a href="214.html" target="mainFrame"> Форматная база</a></cite>

<cite><a href="2115.html" target="mainFrame">2.1.5.</a><a href="2115.html" target="mainFrame"> Лексическая база</a></cite>

<cite><a href="216.html" target="mainFrame">2.1.6.</a><a href="216.html" target="mainFrame"> Языковые средства</a></cite>

<cite><a href="221.html" target="mainFrame">2.2. Математическое обеспечение</a> </cite>

<cite><a href="221.html" target="mainFrame">2.2.1. Назначение, остав и </a></cite><cite><a href="221.html">структура математического </a></cite><cite><a href="221.html">обеспечения (МО)</a></cite>

<cite><a href="222.html" target="mainFrame">2.2.2.</a><a href="222.html" target="mainFrame"> Формализация и </a></cite><cite><a href="222.html">моделирование</a></cite>

<cite><a href="223.html" target="mainFrame">2.2.3.</a><a href="223.html" target="mainFrame"> Модели и алгоритмы</a></cite><cite><a href="223.html">обработки информации</a></cite>

<cite><a href="224.html" target="mainFrame">2.2.4.</a><a href="224.html" target="mainFrame"> Краткая характеристика</a></cite><cite><a href="224.html" target="mainFrame">метода исследования операции</a></cite>

<cite><a href="225.html" target="mainFrame">2.2.5. Использование метода </a></cite><cite><a href="225.html" target="mainFrame">линейного программирования </a></cite>

<cite><a href="231.html" target="mainFrame">2.3.</a><a href="231.html" target="mainFrame"> Программное обеспечение </a> </cite>

<cite><a href="231.html" target="mainFrame">2.3.1. Назначение и состав </a></cite><cite><a href="231.html">программного обеспечения (ПО)</a></cite>

<cite><a href="241.html" target="mainFrame">2.4.</a><a href="241.html" target="mainFrame"> Техническое обеспечение</a> </cite>

<cite><a href="241.html" target="mainFrame">2.4.1. Состав, структура и </a></cite><cite><a href="241.html" target="mainFrame">функции ТС в АС</a></cite>

<cite><a href="242.html" target="mainFrame">2.4.2. Средства сбора и передачи </a></cite><cite><a href="242.html" target="mainFrame">информации (ССП)</a></cite>

<cite><a href="243.html" target="mainFrame">2.4.3.Средства подготовки и регистрации информации (СПР)</a></cite>

<cite><a href="244.html" target="mainFrame">2.4.4.</a><a href="244.html" target="mainFrame"> Средства хранения и </a></cite><cite><a href="244.html">обработки информации (СХО)</a></cite>

<cite><a href="245.html" target="mainFrame">2.4.5.</a><a href="245.html" target="mainFrame"> Средства вывода и </a></cite><cite><a href="245юреьд">воспроизведения информации (СВВ)</a></cite>

<cite><a href="246.html" target="mainFrame">2.4.6. Выбор технических средств</a></cite><cite><a href="246.html" target="mainFrame">для решения конкретных задач</a></cite>

<cite><a href="25.html" target="mainFrame">2.5. Правовое, организационное, </a></cite><a href="25.HTML" target="mainFrame"><cite>методическое</cite>, <cite>эргономическое обеспечение</cite></a>

<cite><a href="26.html" target="mainFrame">2.6. Функциональные подсистемы АИС</a> </cite>

<cite><a href="26.html" target="mainFrame">2.6.1. Организационные формы </a></cite><cite><a href="26.html" target="mainFrame">функциональной части АИС</a></cite>

<cite><a href="262.html" target="mainFrame">2.6.2.</a><a href="262.html" target="mainFrame"> Подсистема сбора</a></cite> <cite><a href="262.html" target="mainFrame"> информации</a></cite>

<cite><a href="263.html" target="mainFrame">2.6.3.</a><a href="263.html" target="mainFrame"> Подсистема</a> </cite><cite><a href="263.html" target="mainFrame">представления </a></cite><cite><a href="263.html" target="mainFrame">и обработки информации</a></cite>

<cite><a href="264.html" target="mainFrame">2.6.4.</a><a href="264.html" target="mainFrame"> Подсистема выдачи </a></cite><cite><a href="264.html" target="mainFrame">информации</a></cite>

<cite><a href="265.html" target="mainFrame">2.6.5.</a><a href="265.html" target="mainFrame"> Функциональные </a></cite><cite><a href="265.html" target="mainFrame">подсистемы АСУ</a></cite>

<cite><a href="31.html" target="mainFrame">Глава 3. Особенности функционирования</a></cite><cite><a href="31.html" target="mainFrame">автоматизированных информационных систем</a></cite>

<cite><a href="321.html" target="mainFrame">3.2.</a><a href="321.html" target="mainFrame"> Эффективность </a></cite><cite><a href="321.html" target="mainFrame">АИС</a></cite><cite><a href="321.html"> </a> </cite>

<cite><a href="321.html" target="mainFrame">3.2.1. Эффективность и качество</a></cite>

<cite><a href="322.html" target="mainFrame">3.2.2.</a><a href="322.html" target="mainFrame"> Методика оценки </a></cite><cite><a href="322.html" target="mainFrame"> расчета </a></cite><cite><a href="322.html" target="mainFrame">экономической эффективности </a></cite><cite><a href="322.html" target="mainFrame">создаваемой АИС</a></cite>

<cite><a href="33.html" target="mainFrame">3.3. Стандартизация и сертификация</a> </cite>

<cite><a href="331.html" target="mainFrame">3.3.1 Организационно-правовые</a></cite><cite><a href="331.html" target="mainFrame"> документы в области </a></cite><cite><a href="331.html" target="mainFrame">стандартизации и </a></cite><cite><a href="331.html" target="mainFrame">сертификации.</a></cite>

<cite><a href="332.html" target="mainFrame">3.3.2. Порядок проведения сертификации</a></cite>

<cite><a href="333.html" target="mainFrame">3.3.3.</a><a href="333.html" target="mainFrame"> Базовые нормативные </a></cite><cite><a href="333.html" target="mainFrame">документы по обеспечению </a></cite><cite><a href="333.html" target="mainFrame">качества АИС</a></cite>

<cite><a href="34.html" target="mainFrame">3.4. Тенденции развития АИС</a></cite>

<cite><a href="Zakl.html" target="mainFrame">Заключение</a></cite>

<cite><a href="kontr 1.html" target="mainFrame">Контрольные вопросы к Главе 1</a></cite>

<cite><a href="kontr 2.html" target="mainFrame">Контрольные вопросы к Главе 2 </a></cite>

<cite><a href="kontr 3.html" target="mainFrame">Контрольные вопросы к Главе 3 </a></cite>

Страница:

дипломная работа "Разработка электронного учебника по предмету "Автоматизированная информационная система"" скачать

Подобные документы

Разработка обучающей и тестирующей системы по информационной безопасности
Создание Windows-приложения для проведения обучения и тестирования студентов по информационной безопасности. Алгоритм решения задачи, блок-схема работы программы, выбор языка программирования Delphi. Охрана труда программиста, обязанности пользователя.

дипломная работа [4,8 M], добавлен 04.06.2013
База данных технологического оборудования для производства печатных плат
Базы данных для учета и контроля оборудования по производству печатных плат. Требования к системе, анализ предметной области. Информационные потребности пользователя. Логическая структура программы, алгоритм ее работы. Руководство системного программиста.

курсовая работа [786,5 K], добавлен 24.02.2015
Совершенствование системы защиты персональных данных ОАО "Альфа Банк"
Характеристика комплекса задач и обоснование необходимости совершенствования системы обеспечения информационной безопасности и защиты информации на предприятии. Разработка проекта применения СУБД, информационной безопасности и защиты персональных данных.

дипломная работа [2,6 M], добавлен 17.11.2012
Совершенствование системы информационной безопасности в помещениях ОАО "Расчет"
Анализ рисков информационной безопасности. Оценка существующих и планируемых средств защиты. Комплекс организационных мер обеспечения информационной безопасности и защиты информации предприятия. Контрольный пример реализации проекта и его описание.

дипломная работа [4,5 M], добавлен 19.12.2012
Технология создания электронного учебника "Основы информационной безопасности"
Использование программы Microsoft Word 2010 при создании электронного учебника. Структура учебника, навигация, полнотекстный поиск, защита информации от изменений. Алгоритм разработки программного продукта. Описание технологических средств учебника.

контрольная работа [196,9 K], добавлен 06.05.2014
Разработка интерактивного учебника "1С предприятие"
Сущность интерактивного учебника и требования, предъявляемые к нему. Программное обеспечение управления предприятием. Архитектура учебника "1С предприятие" и логическая структура программы. Методы хранения баз данных. Составление руководства пользователя.

дипломная работа [1,7 M], добавлен 23.04.2015
Проектирование системы защиты хранения данных в информационной базе
Основные угрозы по отношению к информации. Понятия, методы и способы обеспечения защиты данных. Требования к системе защиты. Механизм авторизации в информационной базе для определения типа пользователя. Работа администратора с системой безопасности.

курсовая работа [201,1 K], добавлен 24.06.2013
Автоматизированная информационная система "Учёт касс"
Разработка автоматизированной информационной системы "Учет Касс". Информационная база задачи, входная и выходная информация и система меню. Описание программы для пользователя. Форма документа для ввода в эксплуатацию. Системные требования к программе.

курсовая работа [927,6 K], добавлен 23.01.2015
Организация рабочего места техника, оператора, системного программиста ГБОУ АО СПО "Астраханский промышленный колледж"
Режим работы, структура и функциональные задачи ГБОУ АО СПО "Астраханский промышленный колледж". Должностные инструкции техника, оператора, системного программиста. Аппаратное обеспечение и сетевые ресурсы учреждения. Требования к технике безопасности.

отчет по практике [792,5 K], добавлен 10.06.2014
Автоматизированная информационная система учета экономической деятельности производственного предприятия
Анализ принципов автоматизированного рабочего места. Определение структурной схемы и программного обеспечения. Обоснования создания информационной системы "Компьютерная фирма". Руководство пользователя. Задачи базы данных. Форма "Материальный отчет".

дипломная работа [4,2 M], добавлен 05.10.2015

Другие документы, подобные "Разработка электронного учебника по предмету "Автоматизированная информационная система""

весь список подобных работ

скачать работу можно здесь

сколько стоит заказать работу?

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.