Листинг программы. 
Разработка программы "Читальный зал"

unit Unit1;

interface.

uses.

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

Dialogs, StdCtrls, ComCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids,.

RpCon, RpConDS, RpDefine, RpRave, ComObj;

type.

TForm1 = class (TForm).

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

Button1: TButton;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

DataSource2: TDataSource;

DataSource3: TDataSource;

PageControl2: TPageControl;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

PageControl3: TPageControl;

TabSheet10: TTabSheet;

TabSheet11: TTabSheet;

TabSheet12: TTabSheet;

TabSheet13: TTabSheet;

TabSheet14: TTabSheet;

TabSheet15: TTabSheet;

PageControl5: TPageControl;

TabSheet22: TTabSheet;

TabSheet23: TTabSheet;

TabSheet24: TTabSheet;

TabSheet25: TTabSheet;

TabSheet26: TTabSheet;

TabSheet27: TTabSheet;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button3: TButton;

Button4: TButton;

Button2: TButton;

RvProject1: TRvProject;

RvDataSetConnection1: TRvDataSetConnection;

RvProject2: TRvProject;

RvDataSetConnection2: TRvDataSetConnection;

RvProject3: TRvProject;

RvDataSetConnection3: TRvDataSetConnection;

Button5: TButton;

Button6: TButton;

Button7: TButton;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

ComboBox1: TComboBox;

Button8: TButton;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

ComboBox2: TComboBox;

Button9: TButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

ComboBox3: TComboBox;

Button10: TButton;

RadioGroup1: TRadioGroup;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Button11: TButton;

RadioGroup2: TRadioGroup;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Button12: TButton;

RadioGroup3: TRadioGroup;

Edit18: TEdit;

Edit19: TEdit;

Edit20: TEdit;

Button13: TButton;

Button14: TButton;

Button15: TButton;

Button16: TButton;

RadioGroup4: TRadioGroup;

Edit21: TEdit;

Button17: TButton;

RadioGroup5: TRadioGroup;

Edit22: TEdit;

Button18: TButton;

RadioGroup6: TRadioGroup;

Edit23: TEdit;

Button19: TButton;

Edit11: TEdit;

Edit12: TEdit;

Edit24: TEdit;

procedure Button1Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button10Click (Sender: TObject);

procedure Button11Click (Sender: TObject);

procedure Button12Click (Sender: TObject);

procedure Button13Click (Sender: TObject);

procedure Button14Click (Sender: TObject);

procedure Button15Click (Sender: TObject);

procedure Button16Click (Sender: TObject);

procedure Button17Click (Sender: TObject);

procedure Button18Click (Sender: TObject);

procedure Button19Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

Form1.Close.

end;

procedure TForm1. Button4Click (Sender: TObject);

begin.

ADOQuery1.Active:= False;

ADOQuery1.SQl.Text:= Edit1. Text;

ADOQuery1.Active:=True;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin.

ADOQuery2.Active:= False;

ADOQuery2.SQl.Text:= Edit2. Text;

ADOQuery2.Active:= True;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

ADOQuery3.Active:= False;

ADOQuery3.SQl.Text:= Edit3. Text;

ADOQuery3.Active:=True;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin.

Form1.RvProject1.Execute;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin.

Form1.RvProject2.Execute;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin.

Form1.RvProject3.Execute;

end;

procedure TForm1. Button8Click (Sender: TObject);

var s, p: string;

begin.

if ComBobox1. text='' then showmessage ('Не выбрано поле сортировки');

if ComBobox1. text='Код_операции' then p:='Код_операции';

if ComBobox1. text='Код_читателя' then p:='Код_читателя';

if ComBobox1. text='Код_книги' then p:='Код_книги';

if ComBobox1. text='Дата_выдачи' then p:='Дата_выдачи';

if ComBobox1. text='Дата_возврата' then p:='Дата_возврата';

if ComBobox1. text='Задолженность' then p:='Задолженность';

if ComBobox1. text='Дни_задолженности' then p:='Дни_задолженности';

adoquery1.Close;

adoquery1.SQL.Clear;

s:='select * from БИБЛИОТЕКА order by '+p;

if radiobutton2. checked=true then s:=s+' desc';

adoquery1.SQL.Add (s);

adoquery1.Open;

datasource1.DataSet:=adoquery1;

end;

procedure TForm1. Button9Click (Sender: TObject);

var a, t: string;

begin.

if ComBobox2. text='' then showmessage ('Не выбрано поле сортировки');

if ComBobox2. text='Код_книги' then t:='Код_книги';

if ComBobox2. text='Автор' then t:='Автор';

if ComBobox2. text='Название' then t:='Название';

if ComBobox2. text='Год_издания' then t:='Год_издания';

if ComBobox2. text='Количество_экземпляров' then t:='Количество_экземпляров';

adoquery2.Close;

adoquery2.SQL.Clear;

a:='select * from ФОНД order by '+t;

if radiobutton4. checked=true then a:=a+' desc';

adoquery2.SQL.Add (a);

adoquery2.Open;

datasource2.DataSet:=adoquery2;

end;

procedure TForm1. Button10Click (Sender: TObject);

var u, r: string;

begin.

if ComBobox3. text='' then showmessage ('Не выбрано поле сортировки');

if ComBobox3. text='Код_читателя' then r:='Код_читателя';

if ComBobox3. text='ФИО_читателя' then r:='ФИО_читателя';

if ComBobox2. text='Дата_регистрации' then r:='Дата_регистрации';

if ComBobox3. text='адрес' then r:='адрес';

if ComBobox3. text='Телефон' then r:='Телефон';

if ComBobox3. text='Место_работы' then r:='Место_работы';

adoquery3.Close;

adoquery3.SQL.Clear;

u:='select * from ЧИТАТЕЛИ order by '+r;

if radiobutton6. checked=true then u:=u+' desc';

adoquery3.SQL.Add (u);

adoquery3.Open;

datasource3.DataSet:=adoquery3;

end;

procedure TForm1.Button11Click (Sender: TObject);

begin.

ADOQuery1.Filtered:=True;

if radiogroup1. ItemIndex=0 then ADOQuery1. Filter:='Код_операции='''+edit4.Text+'''';

if radiogroup1. ItemIndex=1 then ADOQuery1. Filter:='Код_читателя='''+edit5.Text+'''';

if radiogroup1. ItemIndex=2 then ADOQuery1. Filter:='Код_книги='''+edit6.Text+'''';

if radiogroup1. ItemIndex=3 then ADOQuery1. Filter:='Дата_выдачи='''+edit7.Text+'''';

if radiogroup1. ItemIndex=4 then ADOQuery1. Filter:='Дата_возврата='''+edit8.Text+'''';

if radiogroup1. ItemIndex=5 then ADOQuery1. Filter:='Задолженность='''+edit9.Text+'''';

if radiogroup1. ItemIndex=6 then ADOQuery1. Filter:='Дни_задолженности'''+edit10.Text+'''';

if radiogroup1. ItemIndex=7 then ADOQuery1. Filter:='';

end;

procedure TForm1. Button12Click (Sender: TObject);

begin.

ADOQuery2.Filtered:=True;

if radiogroup2. ItemIndex=0 then ADOQuery2. Filter:='Код_книги='''+edit13.Text+'''';

if radiogroup2. ItemIndex=1 then ADOQuery2. Filter:='Автор='''+edit14.Text+'''';

if radiogroup2. ItemIndex=2 then ADOQuery2. Filter:='Название='''+edit15.Text+'''';

if radiogroup2. ItemIndex=3 then ADOQuery2. Filter:='Год_издания='''+edit16.Text+'''';

if radiogroup2. ItemIndex=4 then ADOQuery2. Filter:='Количество_экземпляров='''+edit17.Text+'''';

if radiogroup2. ItemIndex=5 then ADOQuery2. Filter:='';

end;

procedure TForm1. Button13Click (Sender: TObject);

begin.

ADOQuery3.Filtered:=True;

if radiogroup3. ItemIndex=0 then ADOQuery3. Filter:='Код_читателя='''+edit18.Text+'''';

if radiogroup3. ItemIndex=1 then ADOQuery3. Filter:='ФИО_читателя='''+edit19.Text+'''';

if radiogroup3. ItemIndex=2 then ADOQuery3. Filter:='Дата_регистрации='''+edit20.Text+'''';

if radiogroup3. ItemIndex=3 then ADOQuery3. Filter:='адрес='''+edit11.Text+'''';

if radiogroup3. ItemIndex=4 then ADOQuery3. Filter:='Телефон='''+edit12.Text+'''';

if radiogroup3. ItemIndex=5 then ADOQuery3. Filter:='Место_работы='''+edit24.Text+'''';

if radiogroup3. ItemIndex=6 then ADOQuery3. Filter:='';

end;

procedure TForm1. Button14Click (Sender: TObject);

var.

XL, Xarr: Variant;

i: Integer;

j: Integer;

begin.

Xarr:=VarArrayCreate ([1,ADOQuery1.FieldCount], varVariant);

XL:=CreateOLEObject ('Excel.Application');

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery1.First;

while not ADOQuery1. Eof do.

begin.

i:=1;

while i<=ADOQuery1.FieldCount do.

begin.

Xarr[i] := ADOQuery1. Fields[i-1]. Value;

I := i+1;

end;

XL.Range['A'+IntToStr (j),.

CHR (64+ADOQuery1.FieldCount)+IntToStr (j)]. Value := Xarr;

ADOQuery1.Next;

j:=j+1;

end;

XL.Range['A1', CHR (64+ADOQuery1.FieldCount)+IntToStr (j)]. select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1']. select;

end;

procedure TForm1. Button15Click (Sender: TObject);

var.

XL, Xarr: Variant;

i: Integer;

j: Integer;

begin.

Xarr:=VarArrayCreate ([1,ADOQuery2.FieldCount], varVariant);

XL:=CreateOLEObject ('Excel.Application');

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery2.First;

while not ADOQuery2. Eof do.

begin.

i:=1;

while i<=ADOQuery2.FieldCount do.

begin.

Xarr[i] := ADOQuery2. Fields[i-1]. Value;

I := i+1;

end;

XL.Range['A'+IntToStr (j),.

CHR (64+ADOQuery2.FieldCount)+IntToStr (j)]. Value := Xarr;

ADOQuery2.Next;

j:=j+1;

end;

XL.Range['A1', CHR (64+ADOQuery2.FieldCount)+IntToStr (j)]. select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1']. select;

end;

procedure TForm1. Button16Click (Sender: TObject);

var XL, Xarr: Variant;

i: Integer;

j: Integer;

begin.

Xarr:=VarArrayCreate ([1,ADOQuery3.FieldCount], varVariant);

XL:=CreateOLEObject ('Excel.Application');

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery3.First;

while not ADOQuery3. Eof do.

begin.

i:=1;

while i<=ADOQuery3.FieldCount do.

begin.

Xarr[i] := ADOQuery3. Fields[i-1]. Value;

I := i+1; end;

XL.Range['A'+IntToStr (j),.

CHR (64+ADOQuery3.FieldCount)+IntToStr (j)]. Value := Xarr;

ADOQuery3.Next;

j:=j+1; end;

XL.Range['A1', CHR (64+ADOQuery3.FieldCount)+IntToStr (j)]. select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1']. select;

end;

procedure TForm1. Button17Click (Sender: TObject);

begin.

if RadioGroup4. ItemIndex=0 then begin

Edit21.Visible:=true;

if not ADOQuery1. Locate ('Код_операции', Edit21. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

if RadioGroup4. ItemIndex=1 then begin.

Edit21.Visible:=true;

if not ADOQuery1. Locate ('Код_читателя', Edit21. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

if RadioGroup4. ItemIndex=2 then begin.

Edit21.Visible:=true;

if not ADOQuery1. Locate ('Код_книги', Edit21. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден');

end ;

if RadioGroup4. ItemIndex=3 then begin.

Edit21.Visible:=true;

if not ADOQuery1. Locate ('Дата_выдачи', Edit21. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден');

end ;

if RadioGroup4. ItemIndex=4 then begin.

Edit21.Visible:=true;

if not ADOQuery1. Locate ('Дата_возврата', Edit21. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

if RadioGroup4. ItemIndex=5 then begin.

Edit21.Visible:=true;

if not ADOQuery1. Locate ('Задолженность', Edit21. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

if RadioGroup4. ItemIndex=6 then begin.

Edit21.Visible:=true; if not ADOQuery1. Locate ('Дни_задолженности', Edit21. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

end;

procedure TForm1. Button18Click (Sender: TObject);

begin.

if RadioGroup5. ItemIndex=0 then begin Edit22. Visible:=true;

if not ADOQuery2. Locate ('Код_книги', Edit22. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден'); end ;

if RadioGroup5. ItemIndex=1 then begin.

Edit22.Visible:=true;

if not ADOQuery2. Locate ('Автор', Edit22. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден'); end ;

if RadioGroup5. ItemIndex=2 then begin Edit22. Visible:=true;

if not ADOQuery1. Locate ('Название', Edit22. text,[loCaseInsensitive, lopartialkey]) then

showMessage ('Не найден');

end ;

if RadioGroup5. ItemIndex=3 then begin Edit22. Visible:=true;

if not ADOQuery2. Locate ('Год_издания', Edit22. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден');

end ;

if RadioGroup5. ItemIndex=4 then begin Edit22. Visible:=true; if not ADOQuery2. Locate ('Количество_экземпляров', Edit22. text,[loCaseInsensitive, lopartialkey) then showMessage ('Не найден'); end ;

end ;

procedure TForm1. Button19Click (Sender: TObject);

begin if RadioGroup6. ItemIndex=0 then begin Edit23. Visible:=true;

if not ADOQuery3. Locate ('Код_читателя', Edit23. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

if RadioGroup6. ItemIndex=1 then begin Edit23. Visible:=true;

if not ADOQuery3. Locate ('ФИО_читателя', Edit23. text,[loCaseInsensitive, lopartialkey]) then showMessage ('Не найден');

end ;

if RadioGroup6. ItemIndex=2 then begin Edit23. Visible:=true; if not ADOQuery3. Locate ('Дата_регистрации', Edit23. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден'); end ;

if RadioGroup6. ItemIndex=3.

then begin.

Edit23.Visible:=true; if not ADOQuery3. Locate ('адрес', Edit23. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден');

end;

if RadioGroup6. ItemIndex=4 then begin.

Edit23.Visible:=true;

if not ADOQuery3. Locate ('Телефон', Edit23. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден');

end;

if RadioGroup6. ItemIndex=5 then begin.

Edit23.Visible:=true;

if not ADOQuery3. Locate ('Место_работы', Edit23. text,[loCaseInsensitive, lopartialkey]) then.

showMessage ('Не найден');

end;

end;

end.