Page 66
Ф-ОБ-001/033
67
implementation
uses main,dat;
{$R *.dfm}
//үлгіні құру
procedure TFrmLogin.FormCreate(Sender: TObject);
begin
end;
//Құпия сөзд тексеру
procedure TFrmLogin.BitBtn1Click(Sender: TObject);
var i:integer;
var s:variant;
begin
with dm, TblUsers do
//авторландыру процедурасы
begin
Open;
if Locate('login;passw',VarArrayOf([ep.Text,EditLogin.Text]),[]) then // угадал
begin
Tag := TblUsersID.value;
UserId:=TblUsersID.value;
Admin:=TblUserstp.Value;
ModalResult := mrOk;
end
else MessageBox(0, 'Логин немесе құпия сөз дұрыс емес', 'Рұқсат жоқ',
MB_ICONSTOP or MB_OK);
Close;
end;
end;
end.
Келесі терезе ең негізгі терезе болып саналады. Бұл терезені құру
мақсатым бұл негізгі терезе болғандықтан барлық негізгі мәліметтерді осы
терезеде көрсетілуін ұйғардым. Бұл терезеде Оңтүстік Қазақстан
облысының туристік бағыттар бойынша барлық ақпараттар қамтылған.
Негізігі терезеде мынадай бөлімдер қарастырылған: Бағыттар бөлімінде-
бағыттарды қосу, өңдеу, жою амалдарын орындау туралы ақпараттарды
қосуға болады; Анықтамалар бөлімінде-аудан, қала, тұратын жерлер,
көлік түрлері туралы ақпараттар қамтылған; Есеп бөлімінде Бағыттар
бойынша қағазға басып беретін ақпаратты көруге болады; Түр бөлімінде-
іздеу панелі, қосымша ақпарат, сорттау, шрифт т.с.с ақпараттар
қарастырылған; Көмек бөлімінде бағдарлама туралы мәліметтер
көрсетілген. Бұл бағдарламаны құру барысында мынадай компоненттер
мен процедура, функцияларды пайдаландым: TFrmmain = class(TForm)
PanelFind: TPanel; TDataSource; Grid: TDBGrid; TStatusBar; TDataSource;
Достарыңызбен бөлісу: |
