стинг програми
Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids,, RpConDS, RpDefine, RpRave, ComObj; =class (TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TButton;: TDataSource;: TDBGrid;: TDBNavigator;: TDBGrid;: TDBNavigator;: TDBGrid;: TDBNavigator;: TADOConnection;: TADOQuery;: TADOQuery; : TADOQuery;: TDataSource;: TDataSource;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet ;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TRvProject;: TRvDataSetConnection;: TRvProject;: TRvDataSetConnection;: TRvProject;: TRvDataSetConnection;: TButton;: TButton;: TButton;: TRadioButton;: TRadioButton;: TComboBox;: TButton;: TRadioButton;: TRadioButton;: TComboBox;: TButton;: TRadioButton;: TRadioButton;: TComboBox; : TButton;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton ;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TButton;: TButton;: TButton;: TButton;: TRadioGroup;: TEdit;: TButton;: TRadioGroup;: TEdit;: TButton;: TRadioGroup;: TEdit;: TButton;: TEdit;: TEdit;: TEdit; Button1Click (Sender: TObject); Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button5Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click (Sender: TObject); Button11Click (Sender: TObject); Button12Click (Sender: TObject); Button13Click (Sender: TObject ); Button14Click (Sender: TObject); Button15Click (Sender: TObject); Button16Click (Sender: TObject); Button17Click (Sender: TObject); Button18Click (Sender: TObject); Button19Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);. Close; TForm1.Button4Click (Sender: TObject);. Active:=False;. SQl.Text:=Edit1. Text;. Active:=True;; TForm1.Button3Click (Sender: TObject);. Active:=False;. SQl.Text:=Edit2.Text;. Active:=True;; TForm1.Button2Click (Sender: TObject); . Active:=False;. SQl.Text:=Edit3.Text;. Active:=True;; TForm1.Button5Click (Sender: TObject);. RvProject1.Execute;; TForm1.Button6Click (Sender: TObject);. RvProject2. Execute;; TForm1.Button7Click (Sender: TObject);. RvProject3.Execute;; TForm1.Button8Click (Sender: TObject); s, p: string; ComBobox1.text=«» then showmessage («Не вибрано поле сортування»); ComBobox1.text=«Код_операціі» then p:=«Код_операціі»; ComBobox1.text=«Код_чітателя» then p:=«Код_чітателя»; ComBobox1.text=«Код_кнігі» then p:=«Код_кнігі»; ComBobox1.text=«Дата_видачі» then p:=«Дата_видачі»;
if ComBobox1.text=«Дата_возврата» then p:=«Дата_возврата»; ComBobox1.text=«Заборгованість» then p:=«Задолженность»;ComBobox1.text=«Дни_задолженности» then p:=«Дні_задолженності»;
adoquery1.Close;. SQL.Clear;:=«select * from БІБЛІОТЕКА order by» + p; radiobutton2.checked=true then s:=s + « desc »;. SQL.Add (s);. Open;. DataS...
