Page 64
Ф-ОБ-001/033
65
Label4: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
Label5: TLabel;
DBEdit2: TDBEdit;
Label6: TLabel;
DBEdit3: TDBEdit;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmEdit: TFrmEdit;
implementation
uses main,dat;
{$R *.DFM}
procedure TFrmEdit.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var err:string;
begin
CanClose := True;
if ModalResult <> mrOk then Exit;
err := '';
if dm.TblTursHotelId.IsNull then err:='Тұратын орнын таңдау қажет';
if dm.TblTursTranspId.IsNull then err:='Көлік таңдау қажет ';
if dm.TblTursSityId.IsNull then err:='Қала таңдау қажет ';
if err<>'' then
MessageBox(0, PChar(err), 'Мәлімет толтырылмады', MB_ICONSTOP or
MB_OK);
CanClose := err='';
end;
end.
Ф-ОБ-001/033
66
Мына терезені құруда екі мақсатты көздедім ол Әкімшілік және
Қолданушы. Әкімшілік болып кіретін болсақ ол кезде бағдарламаны,
өзгертуге, мәлімет қосуға, жоюға, керекті бөлімдерді жаңартуға мүмкіндігі
бар. Ал Қолданушы болып кіретін болсақ ол кезде бағдарламаны өзгерте
алмаймыз, тек қолданып көруге керекті ақпараттарды алуға, іздеуге
мүмкііндік ала аламыз. Бұл терезені құру үшін мынады компоненттер мен
процедураларды пайдаландым: GroupBox1, BitBtn, Label1, EditLogin,
procedure
TFrmLogin.FormCreate(Sender:
TObject),
procedure
TFrmLogin.BitBtn1Click(Sender: TObject).
/авторландыру үлгісі
unit login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBTables, ADODB;
type
TFrmLogin = class(TForm)
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
ep: TEdit;
Label3: TLabel;
EditLogin: TEdit;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmLogin: TFrmLogin;
Достарыңызбен бөлісу: |
