[Дикоша]

Здравствуйте!) Помогите пожалуйста написать прогу:
Для того чтобы пользователь вошел в базу данных он должен найти себя в списке в combobox(админ. секретарь,бухгалтер итд) и ввести пароль в edit, если совпадает то открывается новая форма а если нет, то сообщ об ошибке....

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

type   TForm1 = class(TForm)     ComboBox1: TComboBox;     Edit1: TEdit;     Button1: TButton;     procedure Button1Click(Sender: TObject); ... function Check(const User, Pass: String): Boolean; begin   Result:=True;   if (User='админ') and (Pass='sysop') then Exit   else if (User='секретарь') and (Pass='masha') then Exit   else if (User='бухгалтер') and (Pass='nomoney') then Exit   else if (User='итд') and (Pass='anykey') then Exit   else Result:=False; end;   procedure TForm1.Button1Click(Sender: TObject); begin   if not Check(ComboBox1.Text, Edit1.Text) then ShowMessage('Oops')   else Form2.ShowModal; end;

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

object ComboBox1: TComboBox     Left = 176     Top = 96     Width = 145     Height = 21     <font color="Red">Style = csDropDownList</font>     ItemHeight = 13     ItemIndex = 0     TabOrder = 0     Text = 'админ' <font color="Red">    Items.Strings = (       'админ'       'секретарь'       'бухгалтер'       'итд')</font>   end

[Дикоша]

Я написала вот так: где у вас ... что нужно вставить?(я новичек, поэтому вопросы могут быть глупыми)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); begin function Check(const User, Pass: String): Boolean; begin   Result:=True;   if (User='админ') and (Pass='sysop') then Exit   else if (User='секретарь') and (Pass='masha') then Exit   else if (User='бухгалтер') and (Pass='nomoney') then Exit   else if (User='итд') and (Pass='anykey') then Exit   else Result:=False; end;   procedure TForm1.Button1Click(Sender: TObject); begin   if not Check(ComboBox1.Text, Edit1.Text) then ShowMessage('Oops')   else Form2.ShowModal; end; end.

Админ: Пользуемся тегами для оформления кода!

И выводит ошибки:
[Error] Unit1.pas(32): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(43): Identifier redeclared: 'TForm1.Button1Click'

[nixel]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button1Click(Sender: TObject);     function Check(const User, Pass: String): Boolean;     begin       Result:=True;       if (User='админ') and (Pass='sysop') then Exit       else if (User='секретарь') and (Pass='masha') then Exit       else if (User='бухгалтер') and (Pass='nomoney') then Exit       else if (User='итд') and (Pass='anykey') then Exit       else Result:=False;     end;     begin     if not Check(ComboBox1.Text, Edit1.Text) then ShowMessage('Oops')     else Form2.ShowModal;   end;

end с точкой тут не к месту, вы же пишете просто в процедурах, без общего кода в модуле.

описание подпрограмм (в данном случае функции) пишется до бегина родительской процедуры.

проверьте, так должно работать.

p.s. Многоточием обычно отмечается пропущенное место =)
p.p.s. Так же можно функцию вынести за пределы процедуры, дабы сделать ее глобальной. если требуется. можно и не делать)

[Дикоша]

Спасибо большое всем!! программка вышла...Но....мне оказывается нужно чуть чуть по другому..надо чтобы когда секретарь вводит пароль открылась одна форма, а когда бухг.другая форма, итд...

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

uses Unit2, Unit3, Unit4, Unit5; ... function Check(const User, Pass: String): TForm; begin   if (User='админ') and (Pass='sysop') then Result:=Form2   else if (User='секретарь') and (Pass='masha') then Result:=Form3   else if (User='бухгалтер') and (Pass='nomoney') then Result:=Form4   else if (User='итд') and (Pass='anykey') then Result:=Form5   else Result:=nil; end;   procedure TForm1.Button1Click(Sender: TObject); var   AForm: TForm; begin   AForm:=Check(ComboBox1.Text, Edit1.Text);   if AForm=nil then ShowMessage('Oops')   else AForm.ShowModal; end;

[Дикоша]

Болшьооооооое спасибо! все работает!!!!!!!!Спасибо,Спасибо,Спасибо