unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, DBCtrls;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBComboBox1: TDBComboBox;
ComboBox1: TComboBox;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure DBComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.Show;
AdoQuery1.Insert;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
AdoQuery1.Delete;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
DBGrid1.Columns[0].Visible:=False;
DBGrid1.Columns[4].Title.Caption:= 'Наименование';
end;
procedure TForm1.DBComboBox1Change(Sender: TObject);
Var help1, help2: String;
begin
help1:='''%'+unit1.Form1.DBComboBox1.Text+'%''';
help2:=QuotedStr(help1);
with unit1.Form1.ADOQuery1 do
begin
Close;
SQl.Clear;
SQL.Add('SELECT * FROM Оргтехника WHERE Nomer like' +help2);
ADOQuery1.Active:=true;
Open;
end;
DBGrid1.Columns[0].Visible:=False;
end;
end.
|