4 Курс / переподы / анал / Практика / 311-і / Захарченко А.В / Unit1

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
DataSource1: TDataSource;
Table1: TTable;
Query1: TQuery;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button2: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Label2: TLabel;
BitBtn1: TBitBtn;
GroupBox2: TGroupBox;
Label3: TLabel;
Button3: TButton;
Edit3: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

//**********Процедура выборки
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
with Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT '+Edit2.Text);
SQL.Add('FROM "clock.db"');
SQL.Add('WHERE');
SQL.Add(Edit1.Text);
Open;
Active:= TRUE;
end;
if Form1.Query1.RecordCount <> 0
then
begin
Form1.DataSource1.DataSet:= Form1.Query1;
end
else
//***********Если данных нет.
begin
MessageDlg('Таких данных нет!',mtInformation,[mbOk],0);
Form1.DataSource1.DataSet:= Table1;
end;
end;
end;

//**********Процедура вывода всех данных
procedure TForm1.Button2Click(Sender: TObject);
begin
with Query1 do begin
close;
SQL.Clear;
SQL.Add('SELECT * FROM "clock.db"');
Open;
Active:=true;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
marka:string;
begin
marka:=Edit3.Text;
begin
with Query1 do begin
Close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM "clock.db"');
SQL.Add('WHERE');
SQL.Add('(Марка= "'+marka+'")');
Open;
Active:= TRUE;
end;
if Form1.Query1.RecordCount <> 0
then
begin
Form1.DataSource1.DataSet:= Form1.Query1;
end
else
//***********Если данных нет.
begin
MessageDlg('Данных нет!',mtInformation,[mbOk],0);
Form1.DataSource1.DataSet:= Table1;
end;
end;
end;

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

procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;

end.