WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → База даних студентів факультету КСіТ - Курсова робота

База даних студентів факультету КСіТ - Курсова робота

var a: string;

begin a:='';

If (RadioButton1.Checked=False) and

(RadioButton2.Checked=False) and

(RadioButton3.Checked=False) and

(RadioButton4.Checked=False) {Перевірка, чи активний будьякий RadioButton}

Then

MessageDlg('Вкажіть параметр пошуку!',mtWarning,[mbok],0);

if RadioButton1.Checked Then

begin

a:=Dbedit36.Text;

Table1.Locate('Prizv', Edit1.Text, [loCaseInsensitive]);

IF a=dbEdit36.Text then

MessageDlg('Такого прізвища немає або вже відображено!', mtWarning, [mbok],0);

Edit1.Text:='';

end;

if RadioButton2.Checked Then

Begin

a:=Dbedit25.Text;

Table1.Locate('Zalikova', Edit1.Text, [loCaseInsensitive]);

IF a=dbEdit25.Text then

MessageDlg('Такої залікової немає або вже відображено!', mtWarning, [mbok],0);

Edit1.Text:='';

end;

if RadioButton3.Checked Then

Try

a:=Dbedit4.Text;

Table1.Locate('DataNarod', Edit1.Text, [loCaseInsensitive]);

IF a=dbEdit4.Text then

MessageDlg('Така дата народження відсутня або вже відображено!', mtWarning, [mbok],0);

Edit1.Text:='';

Except

on EconvertError do

MessageDlg('Введіть повну дату "дд.мм.рррр"!',mtWarning,[mbOK],0);

end;

if RadioButton4.Checked Then

Begin

a:=Dbedit35.Text;

Table1.Locate('DaniStudKvytok', Edit1.Text, [loCaseInsensitive]);

IF a=dbEdit35.Text then

MessageDlg('Такий номер студенського відсутній або вже відображено!', mtWarning, [mbok],0);

Edit1.Text:='';

end;

end;

procedure TForm1.About1Click(Sender: TObject);

begin

AboutBox.show

end;

procedure TForm1.Button2Click(Sender: TObject);

var FName: string;

begin

if OpenPictureDialog1.Execute=True then

begin

Fname:=OpenPictureDialog1.FileName;

dbImage1.Picture.LoadFromFile(FName);

end

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

If Button3.Caption='Детальніше >>' then

Begin

Form1.Height:=654;

Button3.Caption:='<< Звернути';

Label44.Visible:=True;

Bevel1.Visible:=True;

Bevel2.Visible:=True;

Label45.Visible:=True;

DBComboBox2.Visible:=True;

DbEdit8.Visible:=True;

DbEdit5.Visible:=True;

DbEdit6.Visible:=True;

DbEdit7.Visible:=True;

DbEdit29.Visible:=True;

DbEdit9.Visible:=True;

DbComboBox3.Visible:=True;

DbEdit10.Visible:=True;

DbEdit14.Visible:=True;

DbEdit21.Visible:=True;

DbEdit17.Visible:=True;

DbEdit18.Visible:=True;

DbEdit24.Visible:=True;

DbEdit30.Visible:=True;

DbEdit25.Visible:=True;

DbEdit12.Visible:=True;

DbEdit15.Visible:=True;

DbEdit19.Visible:=True;

DbEdit20.Visible:=True;

DbEdit22.Visible:=True;

DbEdit11.Visible:=True;

DbEdit31.Visible:=True;

DbEdit35.Visible:=True;

DbEdit13.Visible:=True;

DbEdit16.Visible:=True;

DbComboBox5.Visible:=True;

DbEdit23.Visible:=True;

DbEdit32.Visible:=True;

DbComboBox4.Visible:=True;

DbEdit34.Visible:=True;

Label6.Visible:=True;

Label10.Visible:=True;

Label7.Visible:=True;

Label8.Visible:=True;

Label9.Visible:=True;

Label34.Visible:=True;

Label11.Visible:=True;

Label12.Visible:=True;

Label14.Visible:=True;

Label18.Visible:=True;

Label21.Visible:=True;

Label22.Visible:=True;

Label26.Visible:=True;

Label29.Visible:=True;

Label35.Visible:=True;

Label30.Visible:=True;

Label16.Visible:=True;

Label19.Visible:=True;

Label23.Visible:=True;

Label24.Visible:=True;

Label27.Visible:=True;

Label15.Visible:=True;

Label36.Visible:=True;

Label40.Visible:=True;

Label17.Visible:=True;

Label20.Visible:=True;

Label25.Visible:=True;

Label28.Visible:=True;

Label37.Visible:=True;

Label13.Visible:=True;

Label39.Visible:=True;

end

Else

Begin

Button3.Caption:='Детальніше >>';

Label44.Visible:=False;

Bevel1.Visible:=False;

Bevel2.Visible:=False;

Label45.Visible:=False;

DbEdit6.Visible:=False;

DBComboBox2.Visible:=False;

DbEdit8.Visible:=False;

DbEdit5.Visible:=False;

DbEdit7.Visible:=False;

DbEdit29.Visible:=False;

DbEdit9.Visible:=False;

DbComboBox3.Visible:=False;

DbEdit10.Visible:=False;

DbEdit14.Visible:=False;

DbEdit21.Visible:=False;

DbEdit17.Visible:=False;

DbEdit18.Visible:=False;

DbEdit24.Visible:=False;

DbEdit30.Visible:=False;

DbEdit25.Visible:=False;

DbEdit12.Visible:=False;

DbEdit15.Visible:=False;

DbEdit19.Visible:=False;

DbEdit20.Visible:=False;

DbEdit22.Visible:=False;

DbEdit11.Visible:=False;

DbEdit31.Visible:=False;

DbEdit35.Visible:=False;

DbEdit13.Visible:=False;

DbEdit16.Visible:=False;

DbComboBox5.Visible:=False;

DbEdit23.Visible:=False;

DbEdit32.Visible:=False;

DbComboBox4.Visible:=False;

DbEdit34.Visible:=False;

Label6.Visible:=False;

Label10.Visible:=False;

Label7.Visible:=False;

Label8.Visible:=False;

Label9.Visible:=False;

Label34.Visible:=False;

Label11.Visible:=False;

Label12.Visible:=False;

Label14.Visible:=False;

Label18.Visible:=False;

Label21.Visible:=False;

Label22.Visible:=False;

Label26.Visible:=False;

Label29.Visible:=False;

Label35.Visible:=False;

Label30.Visible:=False;

Label16.Visible:=False;

Label19.Visible:=False;

Label23.Visible:=False;

Label24.Visible:=False;

Label27.Visible:=False;

Label15.Visible:=False;

Label36.Visible:=False;

Label40.Visible:=False;

Label17.Visible:=False;

Label20.Visible:=False;

Label25.Visible:=False;

Label28.Visible:=False;

Label37.Visible:=False;

Label13.Visible:=False;

Label39.Visible:=False;

Form1.Height:=286;

End

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

If Button4.Caption='Редагувати базу' Then

PasswordDlg.show

Else

begin

DbNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast];

Button4.Caption:='Редагувати базу';

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

close

end;

end.

unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

Close

end;

end.

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, DBCtrls, Messages, Dialogs;

type

TPasswordDlg = class(TForm)

Label1: TLabel;

Password: TEdit;

OKBtn: TButton;

CancelBtn: TButton;

procedure OKBtnClick(Sender: TObject);

procedure CancelBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PasswordDlg: TPasswordDlg;

implementation

uses Unit1;

{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);

begin

If Password.Text='Admin' then

begin

Form1.DBNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast,nbInsert, nbDelete, nbEdit,nbPost,nbCancel];

Form1.Button4.Caption:='Відмінити редагування';

ShowMessage('Приємної роботи! Ви отримали доступ до редагування');

Password.Text:='';

Close

end

Else

begin

MessageDlg('Пропоную спробувати ще, бо ви помилились паролем!',mtWarning,[mbOk],0);

Password.Text:=''

end

end;

procedure TPasswordDlg.CancelBtnClick(Sender: TObject);

begin

Close

end;

end.

Loading...

 
 

Цікаве