Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 113 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

- 113-
мы и используем ссылку на об ъе кт Groups, которая передается параметром
при создании диалога и присваивается, если не равна nil:
if assigned(p) then flGroups.Groups:=TGroups(p);
Полный текст модуля ul Groups приведен в следующем листинге:
unit ulGroups;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, DBTables, DB, StdCtrls,
ucGroups, BDE;
type
TfIGroups = class(TForm)
ListBoxl: TListBox;
btnAdd: TButton;
btnProp: TButton;
btnDelete: TButton;
btnOK: T Button;
DataSourcel: TDataSource;
Dat abasel: T Dat abas e;
StoredProcl: TStoredProc;
Queryl: TQuery;
procedure btnDeleteClick(Sender:TObject);
procedure btnAddClick(Sender:TObject);
procedure btnPropClick(Sender:TObject);
procedure btnExitClick(Sender:TObject);
private
Groups: TGroups;
procedure CloseDataSet;
function LoadList: boolean;
function DelElement: boolean;
public
{ Public declarations }
end;
procedure CreateListDlg (Handle: Thandle; p: pointer);
procedure SetListConnection(const DBHandle: HDBIDB);
procedure ShowListDlg;
var
flGroups: TfIGroups;
implementation
{$R *.dfm}
j **************************************************************** i
{ Процедура закрытия акт ивных соединений, если они имеются }
г *******#********************#******•*********************•*•*•*• I
procedure TfIGroups.CloseDataSet;
begin
if StoredProcl.Active then StoredProcl.Close;
if Queryl.Active then Queryl.Close;

Страницы