4 Курс / переподы / анал / Практика / Костенко / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons,
DBCtrls, DB, DBTables, RpCon, RpConDS, RpDefine, RpRave;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
Splitter1: TSplitter;
DBNavigator1: TDBNavigator;
Table1: TTable;
DataSource1: TDataSource;
Query1: TQuery;
Panel2: TPanel;
DBGrid1: TDBGrid;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N10001: TMenuItem;
N51: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
pop1: TMenuItem;
N12: TMenuItem;
l1: TMenuItem;
BitBtn1: TBitBtn;
Button1: TButton;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
Button3: TButton;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N10001Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure pop1Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure l1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N51Click(Sender: TObject);




private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}





procedure TForm1.N2Click(Sender: TObject);
begin
Form1.show;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
AboutBox.Show;
end;



procedure TForm1.N5Click(Sender: TObject);
var nazvanie: string [30];
begin
nazvanie:=inputbox ('Поиск информации в БД',
'укажите группу и нажмите ОК', '');
if nazvanie<> ''
then begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Fam');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Nazvanie = "+nazvanie"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End; end;

procedure TForm1.N10001Click(Sender: TObject);
begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Albom');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Tiraz > "1000"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End;

procedure TForm1.N6Click(Sender: TObject);
var nazvanie: string [30];
begin
nazvanie:=inputbox ('Поиск информации в БД',
'укажите группу и нажмите ОК', '');
if nazvanie<> ''
then begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Stil');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Nazvanie = "+nazvanie"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End; end;

procedure TForm1.N7Click(Sender: TObject);
begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Fam,Semeynoe');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Sozdanie= "1994"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End;

procedure TForm1.N8Click(Sender: TObject);
var nazvanie: string [30];
begin
nazvanie:=inputbox ('Поиск информации в БД',
'укажите группу и нажмите ОК', '');
if nazvanie<> ''
then begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Albom,Tiraz');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Nazvanie = "+nazvanie"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End; end;

procedure TForm1.N9Click(Sender: TObject);
begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Fam,Nazvanie');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Semeynoe= "не женат"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End;

procedure TForm1.N10Click(Sender: TObject);
var albom: string [30];
begin
albom:=inputbox ('Поиск информации в БД',
'укажите альбом и нажмите ОК', '');
if albom<> ''
then begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Sozdanie,Stil');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Albom = "+albom"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End; end;
procedure TForm1.N11Click(Sender: TObject);
var data: string [30];
begin
data:=inputbox ('Поиск информации в БД',
'укажите дату и нажмите ОК', '');
if data<> ''
then begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Stil,Albom');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Data = "+data"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End; end;

procedure TForm1.pop1Click(Sender: TObject);
begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Sozdanie');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Stil= "pop"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End;

procedure TForm1.N12Click(Sender: TObject);
var fam: string [30];
begin
fam:=inputbox ('Поиск информации в БД',
'укажите фамилию и нажмите ОК', '');
if fam<> ''
then begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Stil,Sozdanie');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Fam = "+fam"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End; end;
procedure TForm1.l1Click(Sender: TObject);
begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Sozdanie,Stil,Fam');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Nazvanie like "%l"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End;


procedure TForm1.Button1Click(Sender: TObject);
var
Q: TQuery;
begin
Q := TQuery.Create(Application) ;
try
Q.DatabaseName := 'практика';

with Q.SQL do begin
Add('Create Table Funcionarios');
Add('( Sozdanie,');
Add(' Nazvanie(30),');
Add(' Primary Key ( Nazvanie ) )');
end;

Q.ExecSQL;
finally
Q.Free;
end;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
rvProject1.Execute;
end;


procedure TForm1.N51Click(Sender: TObject);
begin
with Form1.Query1 do begin
close;
SQL.Clear;
SQL.Add ('SELECT Nazvanie,Stil,Albom');
SQL.Add ('FROM "практика: gryppu.db"') ;
SQL.Add ('WHERE');
SQL.Add ('Data > "2006"');
Open;
End;
if Query1.RecordCount <>0 then
DataSource1.DataSet := Query1
else begin
ShowMessage ('В БД нет записей которые удовлетворяют заданные критерии');
DataSource1.DataSet:=Table1;
End;
End;



end.