Дипломная работа: Автоматизированная система учета по подключению Интернет-сети в РУП "Белтелеком"

else

Form11.Table1.Filter:='FIO'+'='+AnsiQuotedStr(edit1.Text,'''');

Form11.Table1.Filtered:=true;

end;

end;

end;

procedure TForm11.N1Click(Sender: TObject);

begin

Table1.Filtered:=False;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

form1.show;

form11.Close;

end;

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, DBCtrls;

type

TForm12 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Label1: TLabel;

RadioGroup1: TRadioGroup;

Label2: TLabel;

Edit1: TEdit;