62783 (588834), страница 13

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 13)

interface

uses

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

Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, uDataModule;

type

TfrmConnect = class (TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel3: TPanel;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Panel5: TPanel;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

Panel2: TPanel;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Panel4: TPanel;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

procedure FormShow (Sender: TObject);

procedure FormDeactivate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmConnect: TfrmConnect;

implementation

{$R *. dfm}

procedure TfrmConnect. FormShow (Sender: TObject);

begin

frmDataModule. tbVkljuchenie. MasterSource: =frmDataModule. dsPeredachi;

frmDataModule. tbVkljuchenie. MasterFields: ='Cod_peredachi';

frmDataModule. tbElementy. MasterSource: =frmDataModule. dsVkljuchenie;

frmDataModule. tbElementy. MasterFields: ='Cod_elementa';

frmDataModule. tbObrabotka. MasterSource: =frmDataModule. dsElementy;

frmDataModule. tbObrabotka. MasterFields: ='Cod_elementa';

frmDataModule. tbSotrudniki. MasterSource: =frmDataModule. dsObrabotka;

frmDataModule. tbSotrudniki. MasterFields: ='Tab_nomer';

end;

procedure TfrmConnect. FormDeactivate (Sender: TObject);

begin

frmDataModule. tbVkljuchenie. MasterSource: =nil;

frmDataModule. tbVkljuchenie. MasterFields: ='';;

frmDataModule. tbElementy. MasterSource: =nil;

frmDataModule. tbElementy. MasterFields: ='';;

frmDataModule. tbObrabotka. MasterSource: =nil;

frmDataModule. tbObrabotka. MasterFields: ='';;

frmDataModule. tbSotrudniki. MasterSource: =nil;

frmDataModule. tbSotrudniki. MasterFields: ='';;

end;

end.

Характеристики

Список файлов ВКР