Создание базы данных "Электронный каталог книг библиотеки ЭТОК"

Строго запрещается:

трогать разъемы соединительного кабеля;

прикасаться к питающим проводам и устройствам заземления;

прикасаться к экрану и тыльной стороне монитора;

класть книги, тетради на монитор и клавиатуру;

работать во влажной одежде и влажными руками.

входить в помещение, где находится вычислительная техника без разрешения руководителя;

не включать без разрешения оборудование.

не прыгать, не бегать (не пылить).

Хорошо запомните, где находится огнетушитель. При появлении запаха гари немедленно прекратите работу, выключите аппаратуру и сообщите об этом руководителю.

Перед началом работы:

убедитесь в отсутствие видимых повреждений рабочего места;

сядьте так, чтобы линия взора приходилась в центр экрана, и можно было бы пользоваться клавиатурой не наклоняясь;

хорошо разберитесь в особенностях применяемой в работе аппаратуры.

работа вблизи экрана неблагоприятно действует на зрение, вызывает усталость и снижает работоспособность.

Поэтому надо работать:

на расстоянии 60-70 см, соблюдая правильную посадку, не сутулясь и не наклоняясь;

работники, имеющие очки для постоянного ношения, обязательно должны работать за мониторами в очках.

Работа на компьютере требует большого внимания, четких действий и самоконтроля. Поэтому нельзя работать:

при недостаточном освещении;

при плохом самочувствии.

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

Периодически отдыхать. Каждый час вставать из-за компьютера на 5-10 минут (походить, попить чай, сделать гимнастику для глаз).

Во время работы:

строго выполняйте все указанные выше правила, а также текущие указания руководителя;

следите за исправностью аппаратуры и прекращайте работу при проявлении необычного звука или самопроизвольного отключения аппаратуры;

не пользуйтесь аппаратурой, если не подключено напряжение;

работайте на клавиатуре чистыми руками;

не вставайте со своих мест, когда в кабинет входит посетитель.

Вы должны:

знать и помнить эти правила;

точно следовать указаниям руководителя, чтобы избежать несчастных случаев;

успешно овладеть знаниями, умениями и навыками в работе с вычислительной техникой;

сберечь государственное имущество.

Требования к работающим

До начала работы

Произвести осмотр оборудования, обратив особое внимание

на следующее:

а) крышки мониторов, системного блока должны быть накрыты;

б) оболочки питающих проводов, шнуров, шлангов должны быть исправны и входить в корпуса приборов, вилок, разъёмов.

Убрать с рабочего места все лишние предметы, приборы, мешающие работе.

Во время работы

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

По окончании работы

Завершить работу.

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

Убрать рабочее место.

Заключение

В данном дипломном проекте разработана программа для работы с базами данных в библиотеке ЭТОК. Рассчитан и разработан алгоритм, блок схема, по которой и составлена (написана) программа.

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

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



Список литературы

1. Глухих И.Н., Семихин Д.В. Компьютерные продукты. Тюменский государственный университет, 2003 г.

2. Архангельский А.Я. Delphi 7 справочное пособие. Москва БИНОМ, 2003 г.

3. Баженова И.Ю. Delphi 7 самоучитель программиста. Москва КУДИЦ-ОБРАЗ, 2003 г.

4. ГОСТ 2. 105-95 ЕСКД. Общие требования к текстовым документам

5. ГОСТ 2. 004-68 ЕСКД. Общие требования к выполнению конструкторских и технологических документов на печатных графических устройствах вывода ЭВМ

6. ГОСТ 2. 104-68 ЕСКД. Основные надписи

7. ГОСТ 2. 106-96 ЕСКД. Текстовые документы

8. ГОСТ 2. 301-68 ЕСКД. Форматы



Приложения

Приложение А (обязательное)

Код программы UnitUnit1; InterfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, ToolWin, ComCtrls, Menus, AppEvnts, StdCtrls, RpDefine, RpCon, RpConDS, RpConBDE, RpRave, Buttons, ImgList, RpRender, RpRenderHTML, RpRenderPDF, RpRenderText, RpSystem, RpRenderPrinter, RpBase, RpFiler, RpRenderCanvas, RpRenderPreview, Mask, dbcgrids, StdActns, ActnList, DBActns, ExtActns, ActnMan, ActnCtrls, ActnMenus, XPStyleActnCtrls, dblookup;

type

TForm1 = class (TForm)

Table1: TTable;

DataSource1: TDataSource;

ApplicationEvents1: TApplicationEvents;

RvProject1: TRvProject;

Query1: TQuery;

Database1: TDatabase;

ImageList1: TImageList;

RvRenderText1: TRvRenderText;

RvRenderText2: TRvRenderText;

RvQueryConnection1: TRvQueryConnection;

RvSystem1: TRvSystem;

Query2: TQuery;

Panel1: TPanel;

Edit1: TEdit;

ControlBar1: TControlBar;

ToolBar1: TToolBar;

ToolBar2: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton6: TToolButton;

ToolButton8: TToolButton;

ToolButton10: TToolButton;

ToolBar3: TToolBar;

ToolButton11: TToolButton;

Splitter2: TSplitter;

Panel2: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

ListBox1: TListBox;

DBGrid1: TDBGrid;

ToolBar4: TToolBar;

ToolButton4: TToolButton;

ToolButton12: TToolButton;

ToolButton14: TToolButton;

ToolButton16: TToolButton;

ToolButton18: TToolButton;

ActionList1: TActionList;

EditCut1: TEditCut;

EditCopy1: TEditCopy;

EditPaste1: TEditPaste;

EditSelectAll1: TEditSelectAll;

EditUndo1: TEditUndo;

EditDelete1: TEditDelete;

DataSetFirst1: TDataSetFirst;

DataSetPrior1: TDataSetPrior;

DataSetNext1: TDataSetNext;

DataSetLast1: TDataSetLast;

DataSetInsert1: TDataSetInsert;

DataSetDelete1: TDataSetDelete;

DataSetEdit1: TDataSetEdit;

DataSetPost1: TDataSetPost;

DataSetCancel1: TDataSetCancel;

DataSetRefresh1: TDataSetRefresh;

ToolBar5: TToolBar;

ToolButton19: TToolButton;

ToolButton20: TToolButton;

ToolButton21: TToolButton;

ToolButton22: TToolButton;

ToolButton23: TToolButton;

ToolButton24: TToolButton;

ToolButton25: TToolButton;

ToolButton26: TToolButton;

ToolButton27: TToolButton;

ToolButton28: TToolButton;

ToolButton29: TToolButton;

ListBox2: TListBox;

ListControlSelectAll1: TListControlSelectAll;

ListControlClearSelection1: TListControlClearSelection;

ListControlMoveSelection1: TListControlMoveSelection;

ListControlMoveSelection2: TListControlMoveSelection;

Label11: TLabel;

CheckBox1: TCheckBox;

ComboBox1: TComboBox;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

PopupMenu1: TPopupMenu;

N41: TMenuItem;

N42: TMenuItem;

PopupMenu2: TPopupMenu;

N43: TMenuItem;

N44: TMenuItem;

N46: TMenuItem;

N47: TMenuItem;

ActionMainMenuBar1: TActionMainMenuBar;

ActionManager1: TActionManager;

FileExit1: TFileExit;

Action1: TAction;

Action2: TAction;

Action3: TAction;

Action4: TAction;

Action5: TAction;

Action6: TAction;

Action7: TAction;

Action8: TAction;

Action9: TAction;

Action10: TAction;

Action11: TAction;

Action12: TAction;

ToolButton5: TToolButton;

Action13: TAction;

StatusBar1: TStatusBar;

Action15: TAction;

ToolButton7: TToolButton;

Action14: TAction;

Action16: TAction;

Action17: TAction;

Table2: TTable;

DataSource2: TDataSource;

Panel7: TPanel;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

Action18: TAction;

Action19: TAction;

Table3: TTable;

Action20: TAction;

Action21: TAction;

SpeedButton8: TSpeedButton;

Action22: TAction;

SpeedButton9: TSpeedButton;

Action23: TAction;

SpeedButton10: TSpeedButton;

Action24: TAction;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

Action25: TAction;

Action26: TAction;

SpeedButton13: TSpeedButton;

Action27: TAction;

SpeedButton14: TSpeedButton;

Action28: TAction;

SpeedButton15: TSpeedButton;

Action29: TAction;

SpeedButton16: TSpeedButton;

Action30: TAction;

SpeedButton17: TSpeedButton;

Action31: TAction;

SpeedButton18: TSpeedButton;

Action32: TAction;

SpeedButton19: TSpeedButton;

Label12: TLabel;

Action33: TAction;

Action34: TAction;

Table4: TTable;

Table5: TTable;

Table6: TTable;

Table7: TTable;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

DataSource6: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBEdit2: TDBEdit;

Label5: TLabel;

DBEdit3: TDBEdit;

Label6: TLabel;

Table8: TTable;

DataSource7: TDataSource;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit4: TDBEdit;

Label8: TLabel;

DBEdit5: TDBEdit;

Label9: TLabel;

DataSource8: TDataSource;

Table9: TTable;

Table10: TTable;

DataSource9: TDataSource;

DBEdit6: TDBEdit;

Label10: TLabel;

Label13: TLabel;

Label14: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBLookupComboBox3: TDBLookupComboBox;

DBLookupComboBox4: TDBLookupComboBox;

Label15: TLabel;

DBEdit7: TDBEdit;

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

SpeedButton22: TSpeedButton;

SpeedButton23: TSpeedButton;

SpeedButton24: TSpeedButton;

Action35: TAction;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

Label16: TLabel;

Procedure ApplicationEvents1Hint (Sender: TObject);

Procedure FormCreate (Sender: TObject);

Procedure FormClose (Sender: TObject; var Action: TCloseAction);

Procedure Table2BeforeDelete (DataSet: TDataSet);

Procedure DbPaste;

Procedure Table2BeforePost (DataSet: TDataSet);

Procedure Table2BeforeEdit (DataSet: TDataSet);

Procedure CheckBox1Click (Sender: TObject);

procedure ComboBox1Exit(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure CBAdd;

procedure DBOpen(TName, Pole, Disp: String; NPole: Byte);

procedure ComboBox1CloseUp(Sender: TObject);

procedure ApplicationEvents1ActionUpdate(Action: TBasicAction;

var Handled: Boolean);

procedure N41Click(Sender: TObject);

procedure N43Click(Sender: TObject);

procedure MenuNChecked;

procedure N46Click(Sender: TObject);

procedure N47Click(Sender: TObject);

procedure N42Click(Sender: TObject);

procedure N44Click(Sender: TObject);

procedure Action1Execute(Sender: TObject);

procedure Action2Execute(Sender: TObject);

procedure Action3Execute(Sender: TObject);

procedure Action4Execute(Sender: TObject);

procedure Action5Execute(Sender: TObject);

procedure Action6Execute(Sender: TObject);

procedure Action7Execute(Sender: TObject);

procedure Action8Execute(Sender: TObject);

procedure Action9Execute(Sender: TObject);

procedure Action10Execute(Sender: TObject);

procedure Action11Execute(Sender: TObject);

procedure Action12Execute(Sender: TObject);

procedure Action2Update(Sender: TObject);

procedure Action13Execute(Sender: TObject);

procedure Action15Execute(Sender: TObject);

procedure Action14Execute(Sender: TObject);

procedure Action16Execute(Sender: TObject);

procedure Action17Execute(Sender: TObject);

procedure Action15Update(Sender: TObject);

procedure Table2BeforeOpen(DataSet: TDataSet);

procedure Action18Execute(Sender: TObject);

procedure Action19Execute(Sender: TObject);

procedure Action20Execute(Sender: TObject);

procedure Action4Update(Sender: TObject);

procedure Action21Execute(Sender: TObject);

procedure Action22Execute(Sender: TObject);

procedure Action23Execute(Sender: TObject);

procedure Action24Execute(Sender: TObject);

procedure Action25Execute(Sender: TObject);

procedure Action26Execute(Sender: TObject);

procedure Action27Execute(Sender: TObject);

procedure Action28Execute(Sender: TObject);

procedure Action29Execute(Sender: TObject);

procedure Action30Execute(Sender: TObject);

procedure Action31Execute(Sender: TObject);

procedure Action32Execute(Sender: TObject);

procedure Action33Execute(Sender: TObject);

procedure Action34Execute(Sender: TObject);

procedure Action35Execute(Sender: TObject);

procedure Action35Update(Sender: TObject);

procedure Table4AfterInsert(DataSet: TDataSet);

procedure Table4AfterEdit(DataSet: TDataSet);

private

{ Private declarations }

public

Polzovatel:string;

{ Public declarations }

end;

var

Form1: TForm1;

LPole:string;

implementation

ses unit2,unit3,unit4,unit5,unit7,unit8,unit9;

$R *.dfm}

procedure TForm1.DBOpen(TName, Pole, Disp: String; NPole: Byte);

egin

orm1.ComboBox2.Items.Clear;

orm1.Table2.Filter:='';

form1.Table2.Close;

orm1.Table2.TableName:=TName;

orm1.Table2.Open;

orm1.Table2.Fields[NPole].Visible:=false;

form1.DBGrid1.Fields[0].DisplayLabel:=Disp;

orm1.ComboBox2.Items.Add(Pole);

orm1.ComboBox2.ItemIndex:=0;

orm1.ComboBox3.ItemIndex:=0;

Pole:=Pole

nd;

procedure TForm1.MenuNChecked;

egin

orm1.Action7Execute(self);

orm1.Action8Execute(self);

orm1.Action9Execute(self);

orm1.Action10Execute(self);

orm1.Action11Execute(self);

orm1.Action12Execute(self);

orm1.Action18Execute(self);

form1.N41Click(self);

orm1.N42Click(self);

orm1.N43Click(self);

orm1.N44Click(self);

nd;

procedure TForm1.CBAdd;

egin

f ComboBox1.Items.IndexOf(ComboBox1.Text)=-1 then

omboBox1.Items.Add(ComboBox1.Text);

nd;

procedure TForm1.DbPaste;

egin

orm1.ListBox1.Clear;

orm1.Query2.Open;

f not Query2.IsEmpty then

epeat

orm1.ListBox1.Items.Add(form1.Query2.Fields[0].AsString);

pplication.ProcessMessages;

ntil not form1.Query2.FindNext;

orm1.Query2.FindFirst;

orm1.Query2.Close;

orm1.StatusBar1.Panels[2].Text:='Найдено:'+inttostr(form1.ListBox1.Count);

end;

procedure TForm1.ApplicationEvents1Hint(Sender: TObject);

begin

StatusBar1.Panels[0].Text := Application.Hint;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.RvProject1.ProjectFile:='./Project1.rav';

IniCreate;

DbPaste;

MenuNChecked;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

IniClose;

end;

procedure TForm1.Table2BeforeDelete(DataSet: TDataSet);

begin

if Application.MessageBox(

'Действительно хотите удалить запись?',

'Подтвердите удаление записи',

MB_OKCANCEL+MB_ICONQUESTION) <> IDOK then

Abort;

end;

procedure TForm1.Table2BeforePost(DataSet: TDataSet);

begin

if Application.MessageBox(

'Действительно хотите сохранить запись?',

'Подтвердите сохранение записи',

MB_OKCANCEL+MB_ICONQUESTION) <> IDOK then

Abort;

end;

procedure TForm1.Table2BeforeEdit(DataSet: TDataSet);

begin

if Application.MessageBox(

'Действительно хотите изменить запись?',

'Подтвердите изменение записи',

MB_OKCANCEL+MB_ICONQUESTION) <> IDOK then

Abort;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if form1.CheckBox1.Checked=true then

form1.Table2.Filtered:=true

else

form1.Table2.Filtered:=false;

end;

procedure TForm1.ComboBox1Exit(Sender: TObject);

begin

CBAdd

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if form1.Panel6.Visible=true then

form1.Table2.Locate(LPole,form1.ComboBox1.Text,[loCaseInsensitive,loPartialKey]);

if form1.Panel5.Visible=true then

form1.Table4.Locate('zagl',form1.ComboBox1.Text,[loCaseInsensitive,loPartialKey]);

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

form1.Table2.Filter:=form1.ComboBox2.Text+form1.ComboBox3.Text+QuotedStr(form1.Edit1.Text+'*');

end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);

begin

CBAdd

end;

procedure TForm1.ApplicationEvents1ActionUpdate(Action: TBasicAction;

var Handled: Boolean);

begin

form1.StatusBar1.Panels[1].Text:=form1.Table2.Filter;

form1.StatusBar1.Panels[3].Text:='Выбрано:'+inttostr(form1.ListBox2.Count);

end;

procedure TForm1.N41Click(Sender: TObject);

begin

if form1.N41.Checked=true then

form1.Panel3.Align:=altop;

end;

procedure TForm1.N43Click(Sender: TObject);

begin

if form1.N43.Checked=true then

form1.Panel1.Align:=altop;

end;

procedure TForm1.N46Click(Sender: TObject);

begin

form1.Action12.Checked:=false;

MenuNChecked

end;

procedure TForm1.N47Click(Sender: TObject);

begin

form1.Action11.Checked:=false;

MenuNChecked

end;

procedure TForm1.N42Click(Sender: TObject);

begin

if form1.N42.Checked=true then

form1.Panel3.Align:=albottom

end;

procedure TForm1.N44Click(Sender: TObject);

begin

if form1.N44.Checked=true then

form1.Panel1.Align:=albottom;

end;

procedure TForm1.Action1Execute(Sender: TObject);

begin

form1.Query1.SQL.Text:=format

('SELECT listfld,idnex_p,year_book FROM bookmain.dbf WHERE listfld IN (%s)',

[form1.ListBox2.Items.CommaText]);

form1.Query1.Open;

form1.RvProject1.Execute;

end;

procedure TForm1.Action2Execute(Sender: TObject);

var S:string;

begin

with Form2 do

begin

Caption:='Найти';

ActiveControl := Edit1;

if ShowModal <> idCancel then

begin

if form2.CheckBox1.Checked=true

then S:='%'+form2.edit1.Text+'%'

else S:=form2.edit1.Text+'%';

form1.Query2.SQL.Text:=format(

'SELECT listfld FROM bookmain.dbf WHERE listfld LIKE "%s" ORDER BY listfld',

[S]);

DbPaste;

end;

end;

end;

procedure TForm1.Action3Execute(Sender: TObject);

begin

form4.ShowModal

end;

procedure TForm1.Action4Execute(Sender: TObject);

begin

form1.Panel4.Show;

form1.Panel5.Hide;

form1.Panel6.Hide;

end;

procedure TForm1.Action5Execute(Sender: TObject);

begin

form1.Panel5.Show;

form1.Panel4.Hide;

form1.Panel6.Hide;

form1.DataSetFirst1.DataSource:=form1.DataSource3;

form1.DataSetPrior1.DataSource:=form1.DataSource3;

form1.DataSetNext1.DataSource:=form1.DataSource3;

form1.DataSetLast1.DataSource:=form1.DataSource3;

form1.DataSetInsert1.DataSource:=form1.DataSource3;

form1.DataSetDelete1.DataSource:=form1.DataSource3;

form1.DataSetEdit1.DataSource:=form1.DataSource3;

form1.DataSetPost1.DataSource:=form1.DataSource3;

form1.DataSetCancel1.DataSource:=form1.DataSource3;

form1.DataSetRefresh1.DataSource:=form1.DataSource3;

end;

procedure TForm1.Action6Execute(Sender: TObject);

begin

form1.Panel6.Show;

form1.Panel4.Hide;

form1.Panel5.Hide;

form1.DataSetFirst1.DataSource:=form1.DataSource2;

form1.DataSetPrior1.DataSource:=form1.DataSource2;

form1.DataSetNext1.DataSource:=form1.DataSource2;

form1.DataSetLast1.DataSource:=form1.DataSource2;

form1.DataSetInsert1.DataSource:=form1.DataSource2;

form1.DataSetDelete1.DataSource:=form1.DataSource2;

form1.DataSetEdit1.DataSource:=form1.DataSource2;

form1.DataSetPost1.DataSource:=form1.DataSource2;

form1.DataSetCancel1.DataSource:=form1.DataSource2;

form1.DataSetRefresh1.DataSource:=form1.DataSource2;

end;

procedure TForm1.Action7Execute(Sender: TObject);

begin

if form1.Action7.Checked=false then

form1.ToolBar1.Hide

else form1.ToolBar1.Show;

end;

procedure TForm1.Action8Execute(Sender: TObject);

begin

if form1.Action8.Checked=false then

form1.ToolBar3.Hide

else form1.ToolBar3.Show;

end;

procedure TForm1.Action9Execute(Sender: TObject);

begin

if form1.Action9.Checked=false then

form1.ToolBar4.Hide

else form1.ToolBar4.Show;

end;

procedure TForm1.Action10Execute(Sender: TObject);

begin

if form1.Action10.Checked=false then

form1.ToolBar2.Hide

else form1.ToolBar2.Show;

end;

procedure TForm1.Action11Execute(Sender: TObject);

begin

if form1.Action11.Checked=false then

form1.Panel1.Hide

else form1.Panel1.Show;

end;

procedure TForm1.Action12Execute(Sender: TObject);

begin

if form1.Action12.Checked=false then

form1.Panel3.Hide

else form1.Panel3.Show;

end;

procedure TForm1.Action2Update(Sender: TObject);

begin

if form1.Panel4.Visible=false then

form1.Action2.Enabled:=false

else

form1.Action2.Enabled:=true

end;

procedure TForm1.Action13Execute(Sender: TObject);

begin

form5.ShowModal

end;

procedure TForm1.Action15Execute(Sender: TObject);

begin

form7.ShowModal

end;

procedure TForm1.Action14Execute(Sender: TObject);

begin

DBOpen('city.dbf','city','Города',1)

end;

procedure TForm1.Action16Execute(Sender: TObject);

begin

DBOpen('izdat.dbf','izdat','Издательства',1)

end;

procedure TForm1.Action17Execute(Sender: TObject);

begin

DBOpen('mag.dbf','mag','Периодическиеиздания',0)

end;

procedure TForm1.Action15Update(Sender: TObject);

begin

if form1.Panel4.Visible=false then

form1.Action15.Enabled:=false

else

form1.Action15.Enabled:=true

end;

procedure TForm1.Table2BeforeOpen(DataSet: TDataSet);

begin

form1.Action6Execute(self);

end;

procedure TForm1.Action18Execute(Sender: TObject);

begin

if form1.Action18.Checked=false then

form1.Panel7.Hide

else form1.Panel7.Show;

end;

procedure TForm1.Action19Execute(Sender: TObject);

begin

form8.ShowModal

end;

procedure TForm1.Action20Execute(Sender: TObject);

begin

form1.Action5.Visible:=false;

form1.Action6.Visible:=false;

form1.Action19.Visible:=true;

form1.Action20.Visible:=false;

form1.Action35.Visible:=false;

form1.ActionMainMenuBar1.ActionClient.Items[2].Visible:=false;

form1.ActionMainMenuBar1.ActionClient.Items[8].Visible:=false;

form1.Action4Execute(self);

end;

procedure TForm1.Action4Update(Sender: TObject);

begin

if form1.Panel4.Visible=true then begin

form1.Panel1.Enabled:=false;

form1.Panel3.Enabled:=false

end

else begin

form1.Panel1.Enabled:=true;

form1.Panel3.Enabled:=true

end;

end;

procedure TForm1.Action21Execute(Sender: TObject);

begin

DBOpen('avtor.dbf','fam','Фамилия',0);

form1.DBGrid1.Fields[1].DisplayLabel:='Имя';

form1.DBGrid1.Fields[2].DisplayLabel:='Отчество';

form1.Table2.Fields[4].Visible:=false;

form1.ComboBox2.Items.Add('im');

form1.ComboBox2.Items.Add('otch');

end;

procedure TForm1.Action22Execute(Sender: TObject);

begin

DBOpen('words.dbf','word','Ключевыеслова',1)

end;

procedure TForm1.Action23Execute(Sender: TObject);

begin

DBOpen('izdanie.dbf','izdanie','Издания',0)

end;

procedure TForm1.Action24Execute(Sender: TObject);

begin

DBOpen('udk.dbf','rub1','№ 1',0);

form1.DBGrid1.Fields[1].DisplayLabel:='№ 2';

form1.DBGrid1.Fields[2].DisplayLabel:='№ 3';

form1.DBGrid1.Fields[3].DisplayLabel:='№ 4';

form1.DBGrid1.Fields[4].DisplayLabel:='Полныйномер';

form1.DBGrid1.Fields[5].DisplayLabel:='Наименование';

form1.ComboBox2.Items.Add('rub2');

form1.ComboBox2.Items.Add('rub3');

form1.ComboBox2.Items.Add('rub4');

form1.ComboBox2.Items.Add('textnum');

form1.ComboBox2.Items.Add('textcont');

end;

procedure TForm1.Action25Execute(Sender: TObject);

begin

DBOpen('place.dbf','place','Местахранения',1)

end;

procedure TForm1.Action26Execute(Sender: TObject);

begin

DBOpen('seria.dbf','seria','Серия',1)

end;

procedure TForm1.Action27Execute(Sender: TObject);

begin

DBOpen('tom.dbf','tom','Том',1)

end;

procedure TForm1.Action28Execute(Sender: TObject);

begin

DBOpen('seria_role.dbf','role','Рольсерии',1)

end;

procedure TForm1.Action29Execute(Sender: TObject);

begin

DBOpen('rubrica.dbf','name_rubr','Рубрика',0)

end;

procedure TForm1.Action30Execute(Sender: TObject);

begin

DBOpen('kafedra.dbf','kaf','Кафедра',0)

end;

procedure TForm1.Action31Execute(Sender: TObject);

begin

DBOpen('redaktor_role.dbf','red_role','Рольредактора',0)

end;

procedure TForm1.Action32Execute(Sender: TObject);

begin

DBOpen('redaktor.dbf','familia','Фамилия',0);

form1.DBGrid1.Fields[1].DisplayLabel:='Имя';

form1.DBGrid1.Fields[2].DisplayLabel:='Отчество';

form1.ComboBox2.Items.Add('imia');

form1.ComboBox2.Items.Add('otchestvo');

end;

procedure TForm1.Action33Execute(Sender: TObject);

begin

winhelp(form1.Handle,'E-Catalog.hlp',help_context,1)

end;

procedure TForm1.Action34Execute(Sender: TObject);

begin

DBOpen('prep.dbf','fio','ФИО',0);

form1.DBGrid1.Fields[1].DisplayLabel:='Логин';

form1.DBGrid1.Fields[2].DisplayLabel:='Пароль';

form1.Table2.Fields[4].Visible:=false;

form1.Table2.Fields[5].Visible:=false;

end;

procedure TForm1.Action35Execute(Sender: TObject);

begin

form9.ShowModal

end;

procedure TForm1.Action35Update(Sender: TObject);

begin

if form1.Panel4.Visible=false then

form1.Action35.Enabled:=false

else

form1.Action35.Enabled:=true

end;

procedure TForm1.Table4AfterInsert(DataSet: TDataSet);

begin

form1.Table4.Fields[19].AsString:=form1.Polzovatel;

end;

procedure TForm1.Table4AfterEdit(DataSet: TDataSet);

begin

form1.Table4.Fields[20].AsString:=form1.Polzovatel;

end;

end.

unit Unit2;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

CheckBox1: TCheckBox;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses inifiles,classes,forms,sysutils,unit1;

procedure IniCreate;

procedure IniClose;

var

Ini: TIniFile;

implementation

procedure IniCreate;

begin

Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );

try

form1.Caption := Ini.ReadString( 'Form', 'form1.Caption', form1.Caption );

form1.Action7.Checked:=ini.ReadBool('menu','Action7.Checked',true);

form1.Action8.Checked:=ini.ReadBool('menu','Action8.Checked',true);

form1.Action9.Checked:=ini.ReadBool('menu','Action9.Checked',true);

form1.Action10.Checked:=ini.ReadBool('menu','Action10.Checked',true);

form1.Action11.Checked:=ini.ReadBool('menu','Action11.Checked',true);

form1.Action12.Checked:=ini.ReadBool('menu','Action12.Checked',true);

form1.N41.Checked:=ini.ReadBool('popupmenu','N41.Checked',true);

form1.N42.Checked:=ini.ReadBool('popupmenu','N42.Checked',true);

form1.N43.Checked:=ini.ReadBool('popupmenu','N43.Checked',true);

form1.N44.Checked:=ini.ReadBool('popupmenu','N44.Checked',true);

form1.ToolBar1.Top:=ini.ReadInteger('ToolBars','ToolBar1.Top',form1.ToolBar1.Top);

form1.ToolBar2.Top:=ini.ReadInteger('ToolBars','ToolBar2.Top',form1.ToolBar2.Top);

form1.ToolBar3.Top:=ini.ReadInteger('ToolBars','ToolBar3.Top',form1.ToolBar3.Top);

form1.ToolBar4.Top:=ini.ReadInteger('ToolBars','ToolBar4.Top',form1.ToolBar4.Top);

form1.ToolBar1.Left:=ini.ReadInteger('ToolBars','ToolBar1.Left',form1.ToolBar1.Left);

form1.ToolBar2.Left:=ini.ReadInteger('ToolBars','ToolBar2.Left',form1.ToolBar2.Left);

form1.ToolBar3.Left:=ini.ReadInteger('ToolBars','ToolBar3.Left',form1.ToolBar3.Left);

form1.ToolBar4.Left:=ini.ReadInteger('ToolBars','ToolBar4.Left',form1.ToolBar4.Left);

finally

Ini.Free;

end;

end;

procedure IniClose;

begin

Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, '.INI' ) );

try

Ini.WriteString( 'Form', 'form1.Caption', form1.Caption );

ini.WriteBool('menu','Action7.Checked',form1.Action7.Checked=true);

ini.WriteBool('menu','Action8.Checked',form1.Action8.Checked=true);

ini.WriteBool('menu','Action9.Checked',form1.Action9.Checked=true);

ini.WriteBool('menu','Action10.Checked',form1.Action10.Checked=true);

ini.WriteBool('menu','Action11.Checked',form1.Action11.Checked=true);

ini.WriteBool('menu','Action12.Checked',form1.Action12.Checked=true);

ini.WriteBool('popupmenu','N41.Checked',form1.N41.Checked=true);

ini.WriteBool('popupmenu','N42.Checked',form1.N42.Checked=true);

ini.WriteBool('popupmenu','N43.Checked',form1.N43.Checked=true);

ini.WriteBool('popupmenu','N44.Checked',form1.N44.Checked=true);

ini.WriteInteger('ToolBars','ToolBar1.Top',form1.ToolBar1.Top);

ini.WriteInteger('ToolBars','ToolBar2.Top',form1.ToolBar2.Top);

ini.WriteInteger('ToolBars','ToolBar3.Top',form1.ToolBar3.Top);

ini.WriteInteger('ToolBars','ToolBar4.Top',form1.ToolBar4.Top);

ini.WriteInteger('ToolBars','ToolBar1.Left',form1.ToolBar1.Left);

ini.WriteInteger('ToolBars','ToolBar2.Left',form1.ToolBar2.Left);

ini.WriteInteger('ToolBars','ToolBar3.Left',form1.ToolBar3.Left);

ini.WriteInteger('ToolBars','ToolBar4.Left',form1.ToolBar4.Left);

finally

Ini.Free;

end;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

Button1: TButton;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

uses unit1;

{$R *.dfm}

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, CheckLst;

type

TForm5 = class(TForm)

CheckListBox1: TCheckListBox;

Button1: TButton;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5;

implementation

uses unit1;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

begin

form5.CheckListBox1.Items.Add(form1.Action7.Caption);

form5.CheckListBox1.Items.Add(form1.Action8.Caption);

form5.CheckListBox1.Items.Add(form1.Action9.Caption);

form5.CheckListBox1.Items.Add(form1.Action10.Caption);

form5.CheckListBox1.Items.Add(form1.Action11.Caption);

form5.CheckListBox1.Items.Add(form1.Action12.Caption);

form5.CheckListBox1.Items.Add(form1.Action18.Caption);

end;

procedure TForm5.FormActivate(Sender: TObject);

begin

form5.CheckListBox1.Checked[0]:=form1.Action7.Checked;

form5.CheckListBox1.Checked[1]:=form1.Action8.Checked;

form5.CheckListBox1.Checked[2]:=form1.Action9.Checked;

form5.CheckListBox1.Checked[3]:=form1.Action10.Checked;

form5.CheckListBox1.Checked[4]:=form1.Action11.Checked;

form5.CheckListBox1.Checked[5]:=form1.Action12.Checked;

form5.CheckListBox1.Checked[6]:=form1.Action18.Checked;

end;

procedure TForm5.Button1Click(Sender: TObject);

begin

form1.Action7.Checked:=form5.CheckListBox1.Checked[0];

form1.Action8.Checked:=form5.CheckListBox1.Checked[1];

form1.Action9.Checked:=form5.CheckListBox1.Checked[2];

form1.Action10.Checked:=form5.CheckListBox1.Checked[3];

form1.Action11.Checked:=form5.CheckListBox1.Checked[4];

form1.Action12.Checked:=form5.CheckListBox1.Checked[5];

form1.Action18.Checked:=form5.CheckListBox1.Checked[6];

form1.MenuNChecked

end;

end.

unit Unit6;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls;

type

TForm6 = class(TForm)

Image1: TImage;

Label1: TLabel;

Bevel1: TBevel;

private

{Private declarations}

public

{Public declarations}

end;

var

Form6: TForm6;

implementation

uses unit4;

{$R *.dfm}

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls;

type

TForm7 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure ComboBox1Click(Sender: TObject);

procedure TablPole;

private

{Private declarations}

public

{Public declarations}

end;

var

Form7: TForm7;

pole,idpole:string;

num,styl:byte;

implementation

uses unit1;

{$R *.dfm}

procedure TForm7.TablPole;

begin

case styl of

1:form7.ComboBox2.Style:=csDropDown;

2:form7.ComboBox2.Style:=csSimple;

end;

form7.ComboBox2.Clear;

form1.Table1.Open;

if not form1.Table1.IsEmpty then

repeat

form7.ComboBox2.Items.Add(form1.Table1.Fields[num].AsString);

Application.ProcessMessages;

until not form1.Table1.FindNext;

form1.Table1.FindFirst;

end;

procedure TForm7.Button1Click(Sender: TObject);

begin

form1.Query2.Close;

form1.Query2.SQL.Text:=format

('SELECT listfld FROM bookmain.dbf WHERE (%s="%s")',

[idpole,form1.Table1.Lookup(pole,form7.ComboBox2.Text,idpole)]);

form1.Query2.Open;

form1.DbPaste;

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

TablPole;

form7.ComboBox1.ItemIndex:=0;

form7.ComboBox1Click(self);

end;

procedure TForm7.ComboBox1Click(Sender: TObject);

begin

form1.Table1.Close;

case form7.ComboBox1.ItemIndex of

0:begin

form1.Table1.TableName:='bookmain.dbf';

pole:='zagl';

idpole:='zagl';

num:=1;

styl:=1

end;

1:begin

form1.Table1.TableName:='city.dbf';

pole:='city';

idpole:='idcity';

num:=0;

styl:=1

end;

2:begin

form1.Table1.TableName:='izdat.dbf';

pole:='izdat';

idpole:='idizdat';

num:=0;

styl:=1

end;

3:begin

form1.Table1.Close;

form1.Table1.TableName:='mag.dbf';

pole:='mag';

idpole:='idmag';

num:=1;

styl:=1

end;

4:begin

form1.Table1.Close;

form1.Table1.TableName:='bookmain.dbf';

pole:='isbn';

idpole:='isbn';

num:=9;

styl:=2

end;

5:begin

form1.Table1.Close;

form1.Table1.TableName:='bookmain.dbf';

pole:='year_book';

idpole:='year_book';

num:=4;

styl:=2

end;

6:begin

form1.Table1.Close;

form1.Table1.TableName:='bookmain.dbf';

pole:='zagl_sved';

idpole:='zagl_sved';

num:=2;

styl:=2

end;

7:begin

form1.Table1.Close;

form1.Table1.TableName:='seria.dbf';

pole:='seria';

idpole:='idseria';

num:=0;

styl:=1

end;

end;

TablPole;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm8 = class(TForm)

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form8: TForm8;

implementation

uses unit1;

{$R *.dfm}

procedure TForm8.Button2Click(Sender: TObject);

begin

if

(form8.LabeledEdit1.Text=form1.Table3.Lookup

('login',form8.LabeledEdit1.Text,'login'))

and

(form8.LabeledEdit2.Text=form1.Table3.Lookup

('login',form8.LabeledEdit1.Text,'passw'))

then begin

ShowMessage(format('Пользователь %s зарегестрирован',

[form1.Table3.Lookup('login',form8.LabeledEdit1.Text,'fio')]));

form1.Action5.Visible:=true;

form1.Action6.Visible:=true;

form1.Action19.Visible:=false;

form1.Action20.Visible:=true;

form1.Action35.Visible:=true;

form1.ActionMainMenuBar1.ActionClient.Items[2].Visible:=true;

form1.ActionMainMenuBar1.ActionClient.Items[8].Visible:=true;

end

else begin

ShowMessage('Если вы хотите зарегестрироваться обратитесь к администратору');

end;

form8.LabeledEdit1.Text:='';

form8.LabeledEdit2.Text:='';

end;

procedure TForm8.FormActivate(Sender: TObject);

begin

form1.Table3.Open;

end;

end.

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type

TForm9 = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Button1: TButton;

ComboBox1: TComboBox;

Button2: TButton;

Bevel1: TBevel;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form9: TForm9;

implementation

uses unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);

var s:string;

begin

if form9.RadioButton1.Checked=true then

s:='idadd'

else

s:='idedit';

form1.Query2.Close;

form1.Query2.SQL.Text:=format

('SELECT listfld FROM bookmain.dbf WHERE (%s="%s")',

[s,form1.Table3.Lookup('fio',form9.ComboBox1.Text,'id')]);

form1.Query2.Open;

form1.DbPaste;

end;

procedure TForm9.FormCreate(Sender: TObject);

begin

form9.ComboBox1.Clear;

form1.Table3.Open;

if not form1.Table3.IsEmpty then

repeat

form9.ComboBox1.Items.Add(form1.Table3.Fields[1].AsString);

Application.ProcessMessages;

until not form1.Table3.FindNext;

form1.Table3.FindFirst;

end;

end.

Приложение Б (обязательное)

Окна программы

Рисунок 3 - Главное окно



Рисунок 4 - Окно редактирования

Рисунок 5 - Окно таблиц



Рисунок 6 - Окно отчета

Размещено на Allbest.ru

...