Дипломная работа: Разработка базы данных

23. ГОСТ 12.1.038 – 82.ССБТ. Электробезопасность. Предельно – допустимые уровни напряжений прикосновения и токов.

24. СНиП 2.04.05-93 Нормы проектирования. Отопление, вентиляция и кондиционирование. - М.: Стройиздат, 1994-64 с.

25. ДНАОП 0.03-3.14-85 Санітарні норми допустимих рівнів шуму на робочих місцях №3223-85.

26. ГОСТ 12.1.012-90 ССБТ. Вибрационная безопасность. Общие требования. – Введ.01.07.91.

27. ГОСТ 12.2.007.0-75 ССБТ. Изделия электрические. Общие требования безопасности. - Введ.01.01.76.

28. ПУЭ – 87. Правила устройства электроустановок. – М.: Энерогоатомиздат, 1987. –648 с.

29. ГОСТ 14255-69. Аппараты электрические напряжением до 1000В. Оболочки. Степени защиты.

30. ГОСТ 12.1.004-91 ССБТ. Пожарная безопасность. Общие требования. – Введ.01.07.91.

31. РД 34.21.122-87 Инструкция по устройству молниезащиты зданий и сооружений / Минэнерго СССР. - М.: Энергоатомиздат. – 1989. – 58 с.

32. Закон Украины «Об охране окружающей природной среды» от 25.06.91г.

33. Государственный стандарт Украины «Система управления окружающей средой» ISO 14001-97 – К.: ГОСТАНТДАРТ УКРАИНЫ. 1997 – 31 с.

34. Депутат О.П. Коваленко І.В. Мужик І.С. Цивільна оборона – Львів: Афіша, 2000 – 336 с.

35. Атаманюк В.Г. и др. Гражданская оборона – М: Высш. шк., 1987. – 288 с.

ПРИЛОЖЕНИЯ

Приложение А

Формы приложения этапе проектирования

Рисунок А.1 – Форма MainForm на этапе проектирования

Рисунок А.2 – Модуль данных DataModule1 на этапе проектирования

Рисунок А.3 – Форма EditForm на этапе проектирования

Рисунок А.4 – Форма FindForm на этапе проектирования

Рисунок А.5 – Форма DeleteForm на этапе проектирования

Рисунок А.6 – Форма FilterForm на этапе проектирования

Рисунок А.7 – Форма DirSourceForm на этапе проектирования

Рисунок А.8 – Форма PathForm на этапе проектирования

Рисунок А.9 – Форма UserForm на этапе проектирования

Рисунок А.10 – Форма AboutForm на этапе проектирования

Приложение Б

Листинг проекта приложения Lib.dpr

program Lib;

uses

Forms,

Main in 'Main.pas' {MainForm},

DBUnit in 'DBUnit.pas' {DataModule1: TDataModule},

DirSource in 'DirSource.pas' {DirSourceForm},

Edit in 'Edit.pas' {EditForm},

Files in 'Files.pas',

About in 'About.pas' {AboutBox},

Delete in 'Delete.pas' {DeleteForm},

Data in 'Data.pas',

Find in 'Find.pas' {FindForm},

Filter in 'Filter.pas' {FilterForm},

User in 'User.pas' {UserForm},

Path in 'Path.pas' {PathForm};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TDataModule1, DataModule1);

Application.CreateForm(TDirSourceForm, DirSourceForm);

Application.CreateForm(TEditForm, EditForm);

Application.CreateForm(TAboutBox, AboutBox);

Application.CreateForm(TDeleteForm, DeleteForm);

Application.CreateForm(TFindForm, FindForm);

Application.CreateForm(TFilterForm, FilterForm);

Application.CreateForm(TUserForm, UserForm);

Application.CreateForm(TPathForm, PathForm);

Application.Run;

end.

Приложение В

Листинг модуля Main.pas

unit Main;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, Buttons, DBCtrls, ImgList,

ComCtrls, ToolWin, DBActns, ActnList, AppEvnts, Menus, StdActns;

type

TMainForm = class(TForm)

ToolBar1: TToolBar;

TBInsert: TToolButton;

TBDelete: TToolButton;

ImageList1: TImageList;

TBUpdate: TToolButton;

TBFirst: TToolButton;

TBPrev: TToolButton;

TBNext: TToolButton;

TBLast: TToolButton;

ActionList1: TActionList;

DataSetFirst: TDataSetFirst;

DataSetPrior: TDataSetPrior;

DataSetNext: TDataSetNext;

TBRefrash: TToolButton;

DataSetLast: TDataSetLast;

DataSetInsert: TAction;

DataSetDelete: TAction;

DataSetUpdate: TAction;

DataSetRefrash: TAction;

ApplicationEvents1: TApplicationEvents;

FileExit: TFileExit;

MainMenu1: TMainMenu;

HelpAbout: TAction;

mmTable: TMenuItem;

mmFile: TMenuItem;

mmSort: TMenuItem;

mmExit: TMenuItem;

mmFirst: TMenuItem;

mmPrior: TMenuItem;

mmNext: TMenuItem;

mmLast: TMenuItem;

N5: TMenuItem;

mmInsert: TMenuItem;

mmDelete: TMenuItem;

mmUpdate: TMenuItem;

mmRefrash: TMenuItem;

mmHelp: TMenuItem;

SortByNum: TAction;

SortByAut: TAction;

SortByTit: TAction;

SortByLan: TAction;

SortByNo: TAction;

SortDirInc: TAction;

SortDirDec: TAction;

TBOpen: TToolButton;

DataSetOpen: TAction;

mmOpen: TMenuItem;

mmSortByNum: TMenuItem;

mmSortByAut: TMenuItem;

mmSortByTit: TMenuItem;

mmSortByLan: TMenuItem;

mmSortByNo: TMenuItem;

N12: TMenuItem;

mmSortDirInc: TMenuItem;

mmSortDirDec: TMenuItem;

mmAbout: TMenuItem;

DataSetFind: TAction;

DataSetFilter: TAction;

N14: TMenuItem;

mmFind: TMenuItem;

TBFind: TToolButton;

TBSapce2: TToolButton;

DataSetFindNext: TAction;

TBSpace1: TToolButton;

TBFindNext: TToolButton;

mmFindNext: TMenuItem;

TBFilter: TToolButton;

mmFilter: TMenuItem;

DataSetAll: TAction;

TBAll: TToolButton;

mmAll: TMenuItem;

FileUser: TAction;

N18: TMenuItem;

mmUser: TMenuItem;

mmOptions: TMenuItem;

OptColor: TAction;

OptFont: TAction;

FileDataBasePath: TAction;

mmDataBasePath: TMenuItem;

ColorDialog1: TColorDialog;

FontDialog1: TFontDialog;

mmColor: TMenuItem;

mmFont: TMenuItem;

PanelMain: TPanel;

PanelMemo: TPanel;

DBMemo1: TDBMemo;

Panel1: TPanel;

PanelGrid: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

Splitter1: TSplitter;

StatusBar1: TStatusBar;

Edit1: TEdit;

OptConfDel: TAction;

mmOptConfDel: TMenuItem;

N19: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure SaveIniFiles;

procedure RestoreIniFiles;

procedure ApplicationEvents1Hint(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure DBGrid1ColExit(Sender: TObject);

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

procedure Edit1Exit(Sender: TObject);

procedure DataSetInsertExecute(Sender: TObject);

procedure DataSetDeleteExecute(Sender: TObject);

procedure DataSetUpdateExecute(Sender: TObject);

procedure DataSetRefrashExecute(Sender: TObject);

procedure DataSetOpenExecute(Sender: TObject);

procedure DataSetFindExecute(Sender: TObject);

procedure DataSetFindNextExecute(Sender: TObject);

procedure DataSetFilterExecute(Sender: TObject);

procedure DataSetAllExecute(Sender: TObject);

procedure FileDataBasePathExecute(Sender: TObject);

procedure FileUserExecute(Sender: TObject);

procedure OptColorExecute(Sender: TObject);

procedure OptFontExecute(Sender: TObject);

procedure OptConfDelExecute(Sender: TObject);

procedure HelpAboutExecute(Sender: TObject);

private

EditField : Integer;

OpenCounter: Integer;

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

uses DB, ShellAPI, IniFiles, DBUnit,

Edit, About, Files, Delete, Data, Find,

Filter, User, Path;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

begin

Root:=ExtractFilePath(Application.ExeName);

if not DirectoryExists(TmpDir) then

MkDir(TmpDir)

else

DeleteFiles(MainForm.Handle,Concat(Root,TmpDir,'*.*'));

MkDir(BrowseDir);

OpenCounter:=0;

end;

procedure TMainForm.FormActivate(Sender: TObject);

begin

RestoreIniFiles;

if not DataModule1.InitDBParams then Close;

DataModule1.SetAccess;

DataSetInsert.Enabled:=DataModule1.fWriter;

DataSetDelete.Enabled:=DataModule1.fWriter;

DataSetUpdate.Enabled:=DataModule1.fWriter;

DataSetRefrashExecute(Sender);

end;

procedure TMainForm.FormDestroy(Sender: TObject);

begin

DeleteFiles(MainForm.Handle,Concat(Root,TmpDir,'*.*'));

ChDir(Root);

RmDir(TmpDir);

SaveIniFiles;

end;

procedure TMainForm.SaveIniFiles;

var

F : TIniFile;

FN: ANSIString;

begin

FN:=Concat(Root,IniFile);

F:=TIniFile.Create(FN);

with F do

begin

WriteString('DataBase','Server',DataModule1.fServer);

WriteString('DataBase','File',DataModule1.fFile);

WriteString('DataBase','DefaultUser',DBDefaultUser);

WriteString('DataBase','DefaultPassword',DBDefaultPass);

WriteInteger('Window','State',Ord(WindowState));

WriteInteger('Window','Top',BoundsRect.Top);

WriteInteger('Window','Left',BoundsRect.Left);

WriteInteger('Window','Bottom',BoundsRect.Bottom);

WriteInteger('Window','Right',BoundsRect.Right);

WriteInteger('Window','Spliter',PanelMemo.Height);

WriteInteger('Memo','Top',PanelMemo.BoundsRect.Top);

WriteInteger('Memo','Bottom',PanelMemo.BoundsRect.Bottom);

WriteInteger('Grid','Author',DBGrid1.Columns.Items[0].Width);

WriteInteger('Grid','Title',DBGrid1.Columns.Items[1].Width);

WriteInteger('Grid','Language',DBGrid1.Columns.Items[2].Width);

WriteInteger('Grid','Archive',DBGrid1.Columns.Items[3].Width);

WriteInteger('Grid','File',DBGrid1.Columns.Items[4].Width);

WriteInteger('Options','Color',DBMemo1.Color);

WriteBool('Options','ConfDel',ConfirmDelete);

WriteInteger('Font','Charset',DBMemo1.Font.Charset);

WriteInteger('Font','Color',DBMemo1.Font.Color);

WriteInteger('Font','Height',DBMemo1.Font.Height);

WriteString('Font','Name',DBMemo1.Font.Name);

WriteInteger('Font','Pitch',Ord(DBMemo1.Font.Pitch));

WriteInteger('Font','Size',DBMemo1.Font.Size);

WriteBool('Font','Bold',fsBold in DBMemo1.Font.Style);

WriteBool('Font','Italic',fsItalic in DBMemo1.Font.Style);

WriteBool('Font','Underline',fsUnderline in DBMemo1.Font.Style);

WriteBool('Font','StrikeOut',fsStrikeOut in DBMemo1.Font.Style);

Free;

end;

end;

procedure TMainForm.RestoreIniFiles;

var

F : TIniFile;

FN : ANSIString;

WinSt: Byte;

WinTop: Integer;

WinLeft: Integer;

WinBottom: Integer;

WinRight: Integer;

X : LongInt;

S : ShortString;

begin

FN:=Concat(Root,IniFile);

if FileExists(FN) then

begin

F:=TIniFile.Create(FN);

with DataModule1 do

begin

fServer:=F.ReadString('DataBase','Server',DBDefaultServer);

fFile:=F.ReadString('DataBase','File',DBDefaultFile);

end;

DBDefaultUser:=F.ReadString('DataBase','DefaultUser',DBDefaultUser);

DBDefaultPass:=F.ReadString('DataBase',' Default Password',DBD efault Pass);

WinSt:=F.ReadInteger('Window','State',DefaultWinState);

case WinSt of

0: WindowState:=wsNormal;

1: WindowState:=wsMinimized;

2: WindowState:=wsMaximized;

end;

WinTop:=F.ReadInteger('Window','Top',DefaultWinTop);

WinLeft:=F.ReadInteger('Window','Left',DefaultWinLeft);

WinBottom:=F.ReadInteger('Window','Bottom',DefaultWinBottom);

WinRight:=F.ReadInteger('Window','Right',DefaultWinRight);

SetBounds(WinLeft,WinTop,WinRight-WinLeft,WinBottom-WinTop);

PanelMemo.Height:=F.ReadInteger('Window','Spliter',30);

with DBGrid1.Columns do

begin

Items[0].Width:=F.ReadInteger('Grid','Author',DefaultGrid1);

Items[1].Width:=F.ReadInteger('Grid','Title',DefaultGrid2);

Items[2].Width:=F.ReadInteger('Grid','Language',DefaultGrid3);

Items[3].Width:=F.ReadInteger('Grid','Archive',DefaultGrid4);

Items[4].Width:=F.ReadInteger('Grid','File',DefaultGrid5);

end;

X:=F.ReadInteger('Options','Color',DefaultColor);

DBGrid1.Color:=X;

DBMemo1.Color:=X;

Edit1.Color:=X;

ConfirmDelete:=F.ReadBool('Options','ConfDel',ConfirmDelete);

X:=F.ReadInteger('Font','Charset',DefaultFontCharset);

DBGrid1.Font.Charset:=X;

DBMemo1.Font.Charset:=X;

Edit1.Font.Charset:=X;

X:=F.ReadInteger('Font','Color',DefaultFontColor);

DBGrid1.Font.Color:=X;

DBMemo1.Font.Color:=X;

Edit1.Font.Color:=X;

X:=F.ReadInteger('Font','Height',DefaultFontHeight);

DBGrid1.Font.Height:=X;

DBMemo1.Font.Height:=X;

Edit1.Font.Height:=X;

S:=F.ReadString('Font','Name',DefaultFontName);

DBGrid1.Font.Name:=S;

DBMemo1.Font.Name:=S;

Edit1.Font.Name:=S;

X:=F.ReadInteger('Font','Pitch',DefaultFontPitch);

case X of

0:

begin

DBGrid1.Font.Pitch:=fpDefault;

DBMemo1.Font.Pitch:=fpDefault;

Edit1.Font.Pitch:=fpDefault;

end;

1:

begin

DBGrid1.Font.Pitch:=fpFixed;

DBMemo1.Font.Pitch:=fpFixed;

Edit1.Font.Pitch:=fpFixed;

end;

2:

begin

DBGrid1.Font.Pitch:=fpVariable;

DBMemo1.Font.Pitch:=fpVariable;

Edit1.Font.Pitch:=fpVariable;

end;

end;

X:=F.ReadInteger('Font','Size',DefaultFontSize);

DBGrid1.Font.Size:=X;

DBMemo1.Font.Size:=X;

Edit1.Font.Size:=X;

if F.ReadBool('Font','Bold',DefaultFontBold) then

begin

DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsBold];

DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsBold];

Edit1.Font.Style:=Edit1.Font.Style+[fsBold];

end;

if F.ReadBool('Font','Italic',DefaultFontItalic) then

begin

DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsItalic];

DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsItalic];

Edit1.Font.Style:=Edit1.Font.Style+[fsItalic];

end;

if F.ReadBool('Font','Underline',DefaultFontUnderline) then

begin

DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsUnderline];

DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsUnderline];

Edit1.Font.Style:=Edit1.Font.Style+[fsUnderline];

end;

if F.ReadBool('Font','StrikeOut',DefaultFontStrikeOut) then

begin

DBGrid1.Font.Style:=DBGrid1.Font.Style+[fsStrikeOut];

DBMemo1.Font.Style:=DBMemo1.Font.Style+[fsStrikeOut];

Edit1.Font.Style:=Edit1.Font.Style+[fsStrikeOut];

end;

F.Free;

end;

end;

procedure TMainForm.ApplicationEvents1Hint(Sender: TObject);

begin

StatusBar1.SimpleText:=Application.Hint;

end;

procedure TMainForm.RadioGroup1Click(Sender: TObject);

begin

DataSetRefrashExecute(Sender);

end;

procedure TMainForm.RadioGroup2Click(Sender: TObject);

begin

DataSetRefrashExecute(Sender);

end;

procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;

const Rect: TRect; DataCol: Integer; Column: TColumn;

State: TGridDrawState);

begin

if (DataModule1.fWriter) and (gdFocused in State) then

if (Column.Field.FieldName = 'Author') or

(Column.Field.FieldName = 'Title') or

(Column.Field.FieldName = 'Language') then

begin

EditField:=Column.Field.FieldNo-1;

Edit1.Text:=Column.Field.AsString;

with Edit1 do

begin

Left := Rect.Left + DBGrid1.Left;

Top := Rect.Top + DBGrid1.Top+PanelGrid.Top+PanelMain.Top;

Width := Rect.Right - Rect.Left + 2;

Visible := True;

end;

end;

end;

procedure TMainForm.DBGrid1ColExit(Sender: TObject);

var

FldName : ShortString;

begin

if DataModule1.fWriter then

begin

FldName:=DBGrid1.SelectedField.FieldName;

if (FldName = 'Author') or

(FldName = 'Title') or

(FldName = 'Language') then

begin

Edit1.Visible := False;

end;

end;

end;

procedure TMainForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);

var

FldName : ShortString;

begin

if DataModule1.fWriter then

begin

FldName:=DBGrid1.SelectedField.FieldName;

if (FldName = 'Author') or

(FldName = 'Title') or

(FldName = 'Language') then

if (Key <> Chr(9)) then

begin

Edit1.SetFocus;

SendMessage(Edit1.Handle, WM_CHAR, Word(Key), 0);

end;

end;

end;

procedure TMainForm.Edit1Exit(Sender: TObject);

const

NamePre='Update';

ParPre ='ip';

Par: array [1..5] of ShortString=('Aut', 'Tit', 'Lan', 'Typ' ,'Ext');

begin

with DataModule1, DataModule1.IBStoredProc1 do

if IBDataSet1.Fields.Fields[EditField].AsString<>Edit1.Text then

begin

StoredProcName:=NamePre+IBDataSet1.FieldList.Strings[EditField];

ParamByName(ParPre+Par[EditField]).Value:=Edit1.Text;

ParamByName('ipNum').Value:=IBDataSet1.Fields.Fields[0].AsInteger;

Prepare;

ExecProc;

DataSetRefrashExecute(Sender);

end;

end;

procedure TMainForm.DataSetInsertExecute(Sender: TObject);

var

N : Integer;

ArcName: ANSIString;

Stream : TMemoryStream;

Res : Boolean;

begin

if not Assigned (EditForm) then

EditForm:= TEditForm.Create (Application);

with EditForm do

begin

Caption:=InsertWinName;

ShowModal;

if ModalResult=mrOK then

begin

case RadioGroupSource.ItemIndex of

0:

begin

if Trim(EditNewArc.Text)<>'' then

ArcName:=GetNewArcName(EditNewArc.Text+ArcExt)

else

begin

ArcName:=ExtractFileLastDir(EditDir.Text);

ArcName:=GetNewArcName(LibDir+ArcName+ArcExt);

end;

Res:=PackFiles(ArcName,EditDir.Text+'\*.*');

end;

1:

begin

if (Trim(EditNewArc.Text)<>'') then

begin

ArcName:=GetNewArcName(EditNewArc.Text+ArcExt);

Res:=(CopyFiles(Application.Handle,EditArc.Text,ArcName)=0);

end

else

begin

ArcName:=EditArc.Text;

Res:=True;

end;

end;

2:

begin

if Trim(EditNewArc.Text)<>'' then

ArcName:=GetNewArcName(EditNewArc.Text+ArcExt)

else

begin

ArcName:=ExtractFileName(EditFile.Text);

DeleteFileExt(ArcName);

ArcName:=GetNewArcName(LibDir+ArcName+ArcExt);

end;

Res:=PackFiles(ArcName,EditFile.Text);

end;

end;

if Res then

begin

Stream:=TMemoryStream.Create;

Memo1.Lines.SaveToStream(Stream);

DataModule1.CallInsertBook(ComboBoxAut.Text,

ComboBoxTit.Text,

ComboBoxLan.Text,

Stream,

ArcName,

ExtractFileName(EditFile.Text),N);

Stream.Free;

MainForm.DataSetRefrashExecute(Sender);

DataModule1.IBDataSet1.Locate('Number',N,[loPartialKey]);

end;

end;

end;

end;

procedure TMainForm.DataSetDeleteExecute(Sender: TObject);

begin

if ConfirmDelete then

begin

if not Assigned (DeleteForm) then

DeleteForm:= TDeleteForm.Create (Application);

with DeleteForm do

begin

Caption:=DeleteWinName;

ShowModal;

end;

if (DeleteForm.ModalResult = mrYes) then

DataModule1.CallDeleteBook;

end

else

DataModule1.CallDeleteBook;

DataSetRefrashExecute(Sender);

end;

procedure TMainForm.DataSetUpdateExecute(Sender: TObject);

var

N : Integer;

ArcName: ANSIString;

Str : ANSIString;

Stream : TStream;

MStream: TMemoryStream;

Res : Boolean;

begin

if not Assigned (EditForm) then

EditForm:= TEditForm.Create (Application);

with EditForm do

begin

Caption:=EditWinName;

with DataModule1.IBDataSet1 do

begin

N:=Fields.Fields[0].AsInteger;

ComboBoxAut.Text:=Fields.Fields[1].AsString;

ComboBoxTit.Text:=Fields.Fields[2].AsString;

ComboBoxLan.Text:=Fields.Fields[3].AsString;

RadioGroupSource.ItemIndex:=1;

EditDir.Text:='';

EditArc.Text:='';

EditFile.Text:=FieldByName('File').AsString;

Stream:=CreateBLOBStream(FieldByName('Sections'),bmRead);

Memo1.Lines.LoadFromStream(Stream);

EditArc.Text:=FieldByName('Archive').AsString;

Stream.Free;

end;

ShowModal;

if ModalResult=mrOK then

begin

ArcName:=Root+TmpDir+TmpFile+'.rar';

case RadioGroupSource.ItemIndex of

0:

begin

if EditDir.Text<>'' then

begin

ArcName:=Concat(Root+TmpDir+TmpFile);

Res:=PackFiles(ArcName,EditDir.Text+'\*.*');

ArcName:=ArcName+'.rar';

end;

end;

1:

begin

if EditArc.Text<>'' then

begin

ArcName:=EditArc.Text;

Res:=True;

end;

end;

2:

begin

Str:=DataModule1.IBDataSet1.FieldByName('File').AsString;

if EditFile.Text<>Str then

begin

ArcName:=Root+TmpDir+TmpFile+'.rar';

Res:=PackFiles(ArcName,EditFile.Text);

end;

end;

end;

if Res then

begin

MStream:=TMemoryStream.Create;

Memo1.Lines.SaveToStream(MStream);

DataModule1.CallUpDateBook(N, ComboBoxAut.Text,

ComboBoxTit.Text,

ComboBoxLan.Text,

MStream,

ArcName,

ExtractFileName(EditFile.Text));

MStream.Free;

end;

if (RadioGroupSource.ItemIndex<>1) then

DeleteFiles(EditForm.Handle,ArcName);

DataSetRefrashExecute(Sender);

DataModule1.IBDataSet1.Locate('Number',N,[loPartialKey]);

end;

end;

end;

procedure TMainForm.DataSetRefrashExecute(Sender: TObject);

var

S: ShortString;

B: TBookmark;

begin

with DataModule1.IBDataSet1 do

begin

B:=GetBookMark;

Close;

SelectSQL.Clear;

SelectSQL.Add('SELECT * FROM "Library" ');

end;

if SortByNum.Checked then S:=SQLSortBy[0]

else if SortByAut.Checked then S:=SQLSortBy[1]

else if SortByTit.Checked then S:=SQLSortBy[2]

else if SortByLan.Checked then S:=SQLSortBy[3]

else if SortByNo.Checked then S:=SQLSortBy[4];

DataModule1.IBDataSet1.SelectSQL.Add(S);

if (not SortByNo.Checked) then

begin

if SortDirInc.Checked then S:=SqlSortDir[0]

else S:=SqlSortDir[1];

DataModule1.IBDataSet1.SelectSQL.Add(S);

end;

with DataModule1.IBDataSet1 do

begin

Open;

GotoBookmark(B);

FreeBookmark(B);

end;

end;

procedure TMainForm.DataSetOpenExecute(Sender: TObject);

var

ArcPath: ANSIString;

FName : ANSIString;

OpenDir: ShortString;

begin

Inc(OpenCounter);

OpenDir:=Root+TmpDir+IntToStr(OpenCounter)+'\';

MkDir(OpenDir);

ArcPath:=DataModule1.IBDataSet1.FieldByName('Archive').AsString;

UnPackFiles(ArcPath,OpenDir);

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10