Создание несколько простых паролей в Delphi

[tane]

Здравствуйте,господа!
Лабораторная по теме :"Создание самого простого Windows-дополнения в Delphi, с использованием условного оператора и оператора выбора."

Напишите программу, что по паролю будет определять степень доступности сотрудника к секретной информации в базе данных. Доступ к базе имеют только шесть человек, разбитых на три группы по степени доступа. Они имеют следующие пароли:
• 9583, 1747 - доступные модули базы А, Б, С
• 3331, 7922 - доступные модули базы Б, С
• 9455, 8997 - доступный модуль базы С

Представляю это так :
При запуске появляется Form1 с Edit и Button.Если вводит сотрудник из первой группы,то,допустим открывается три доступных модуля(не представляю что это,наверное form2 - это модуль А(и там какие-то дынные),Form3 - Б...).Я вот не знаю, куда мы эти пароли записываем, и вообще, как реализовать эту программу,помогите пожалуйста!

[type_Oleg]

Сообщение от tane

...Я вот не знаю, куда мы эти пароли записываем, ..

Так как задача учебная, можно прямо в тело программы. Например

const
 GROUP_ABC1=9583;
 GROUP_ABC2=1747;
 GROUP_BC1=3331;
 GROUP_BC2=7922;
 GROUP_C1=9455;
 GROUP_C2=8997;

Предполагается, что никому не будет дозволено покопаться в *.exe - файле , а исходник будет положен в сейф начальника 1-го отдела.

[tane]

Смотрите,я вот так сделал,но мне кажется ,что здесь можно укоротить ее(как?).И как сделать,если мы ввели не правильный пароль(кроме наших шести),что бы выводило сообщение :"неправильный пароль"?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;   

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  

  if (Edit1.Text = '9583') or (Edit1.Text = '1747') then
  begin

    Form2.Show;
    Form3.Show;
    Form4.Show;
     Form1.Hide;
  end;

 begin
       if (Edit1.Text = '3331') or (Edit1.Text = '7922') then
       begin
    Form2.Show;
    Form3.Show;
    Form1.Hide;
  end;
     end;
         begin
       if (Edit1.Text = '9455') or (Edit1.Text = '8997') then
       begin
    Form2.Show;

    Form1.Hide;
  end;
     end;

end;

end.

[type_Oleg]

А зачем сразу открывать, может ему не надо сразу все 3 базы.
Лучше положить на главную форму 3 кнопки Button, открывающие каждая свою форму. Изначально кнопки невидимые (свойство Visible ) или нерабочие ( свойство Enabled).
И в зависимости от пароля делать их видиммыми/активными.
После закрытия этих секретных форм кнопки снова деакивировать.

PS Лучше так

procedure TForm1.Button1Click(Sender: TObject);
var cod:Integer;
begin
  cod:=StrToIntDef(Edit1.Text,0);
  if cod= //  и т.д.

И у Edit1 задать PasswordChar какой-нибудь символ, чтобы не подглядели.

[tane]

Как сделать условие,что бы при вводе неправильного пароля кнопки не отображались?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

 var cod:Integer;
begin
  cod:=StrToIntDef(Edit1.Text,0);
if (cod=9583) or (cod=1747) then

Button2.Visible:=True;
Button3.Visible:=True;
Button4.Visible:=True ;

if (cod=3331) or (cod=7922) then
Button3.Visible:=True;
Button4.Visible:=True;
 if (cod=9455) or (cod=8997) then
Button4.Visible:=True ;
end;






    procedure TForm1.Button5Click(Sender: TObject);
begin
Button2.Visible:=False;
Button3.Visible:=False;
Button4.Visible:=False;
Edit1.Text:='';
end;

end.

[type_Oleg]

В первых двух if операторные скобки begin..end забыли.
А так, вроде должно работать.

А вообще-то можно изящнее записать:

 Button2.Visible:=(cod=9583) or (cod=1747);
 Button3.Visible:=(cod=9583) or (cod=1747) or (cod=3331) or (cod=7922);
 Button4.Visible:=(cod=9583) or (cod=1747) or (cod=3331) or (cod=7922) or (cod=9455) or (cod=8997);

И все .. Правда без условного оператора получилось.

[BDA]

case cod of
  9583, 1747: cod := 7;
  3331, 7922: cod := 3;
  9455, 8997: cod := 1;
  else cod := 0;
end;
Button2.Visible := cod and 4 > 0;
Button3.Visible := cod and 2 > 0;
Button4.Visible := cod and 1 > 0;

Так можно приделать оператор выбора

[tane]

Спасибо всем за помощь!