EugeneBoss3
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, VKDBFDataSet, ExtCtrls, RzPanel, RzDBNav, GridsEh, DBGridEh;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGridEh1: TDBGridEh;
RzDBNavigator1: TRzDBNavigator;
VKDBFNTX1: TVKDBFNTX;
VKDBFNTX1TBN: TIntegerField;
VKDBFNTX1FIO: TStringField;
VKDBFNTX1KOD_POST: TIntegerField;
VKDBFNTX1P_S: TIntegerField;
VKDBFNTX1KOD_BRIG: TStringField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with VKDBFNTX1 do
begin
if Active then Active:= False;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
with VKDBFNTX1 do
begin
if not Active then Active:= True;
end;
end;
end.
|
Всего записей: 247 | Зарегистр. 15-09-2009 | Отправлено: 07:56 28-01-2010 | Исправлено: EugeneBoss3, 08:13 28-01-2010 |
|
