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

UptoLike

ВУЗ: 

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

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

Рубрика: 

- 86-
2. Отредактируйте процедуру, отвечающую за подключение к БД так, чтобы
она выглядела следующим образом:
unit uMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, Menus, ComCtrls;
type
TfMain = class(TForm)
MainM enul: TMainM enu;
MainM enul: TMainM enu;
N1 TMenuItem;
N2 TMenuItem;
N3 TMenuItem;
N4 TMenuItem;
N5 TMenuItem;
N6 TMenuItem;
N7 TMenuItem;
N8 TMenuItem;
N9 TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
StatusBarl: TStatusBar;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure NSClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fMain: TfMain;
implementation
uses uDM;
($R *.dfm}
procedure TfMain.N3Click(Sender: TObject);
type
TShowLoginDialog = procedure(Handle: THandle; p: pointer);
var hLib: Thandle;
ShowLog in Dialog: TShowLo.ginDialog;
LoginData: TLoginData;
begin
hLib := LoadLibrary('LOGIN.DLL');
if hLib < 32 then

Страницы