Программа для риэлтора

[Elementig]

Всем привет пишу программу, помогите с кодом плиз (я с делфи не очень
база аксесс.
Прога должна быть такая
1. Обеспечивать отдельное рабочее место для каждого сотрудника (вход по имени пользователя и паролю).
2. Обеспечивать заполнение реквизитов агентсва недвижимости: название, адрес, телефонны, элю адрес, сайт.
3. Обеспечивать заполнение карточки помещения со следующими полями:
-тип сделки(покупка, продажа, аренда);
-тип помещения (гараж, подселение, 1-комнатная квартира, 2-х комнатная,
3-х комнатная, 5-ти комнатная, дом, коттедж);
-город;
-район;
-улица;
-номер дома;
-корпус;
-квартира;
-этаж/этажность;
-материал здания;
-дата сделки.
и т.д
4. Обеспечивать ведение базы данных клиентов со следующими полями:
-ФИО;
-домашний адрес;
-контактный телефон;
-паспортные данные;
-приобретенная квартира (адрес);
5. Обеспечивать печать клиентов агентства.
6. Обеспечивать поиск вариантов купли/продажи/аренды в базе с возможностью задания любых параметров (из в базе), а так же минимальной и максимальной цены.
7. Печать найденный вариантов (с установками для поиска и найденными вариантами).
8. Печать данных для формирования прайс-листа следующего вида:
(задан образец)

я сделал интерфейс уже
1. авторизация (логин и пароль )

2. Главное меню
http://s002.radikal.ru/i197/1104/dd/8c66fe66ee32.jpg
3. выскакивающая форма при клике Добавить новое помещение
http://s41.radikal.ru/i094/1104/e3/a994aee55dae.jpg
4. далее форма подобная предыдущем форме идет на добавление клиента и добавление реквизитов.


Не могли вы бы подбросить кода? Я вообще не шарю а помочь некому (все в группе не шарят)
только код попроще, без окольных путей

[Elementig]

есть код на авторизацию

procedure TAutorizationForm.FormCreate(Sender: TObject);
var SQLString: string;
begin
  MainForm.ADOQueryEmployees.Close;
  MainForm.ADOQueryEmployees.SQL.Clear;
  SQLString:= 'SELECT * FROM Employees';
  MainForm.ADOQueryEmployees.SQL.Add(SQLString);
  MainForm.ADOQueryEmployees.Open;
  MainForm.ADOQueryEmployees.First;
  while not MainForm.ADOQueryEmployees.Eof do
  begin
    ComboBoxUser.Items.Add(MainForm.ADOQueryEmployees.FieldByName('FIO').Value);
    MainForm.ADOQueryEmployees.Next;
  end;
end;

procedure TAutorizationForm.ButtonCancelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TAutorizationForm.ButtonOkClick(Sender: TObject);
var SQLString, FIO: string;
begin
  // Проверка данных авторизации
  FIO:= AutorizationForm.ComboBoxUser.Text;
  if Trim(FIO) = '' then MessageBox(Handle, 'Не верное имя пользователь или не верный пароль!', 'Ошибка авторизации:', MB_OK+MB_ICONWARNING)
  else
  begin
    MainForm.ADOQueryEmployees.Close;
    MainForm.ADOQueryEmployees.SQL.Clear;
    SQLString:= 'SELECT Password, Admin, ID FROM Employees WHERE FIO = "%s"';
    MainForm.ADOQueryEmployees.SQL.Add(Format(SQLString, [FIO]));
    MainForm.ADOQueryEmployees.Open;
    MainForm.ADOQueryEmployees.First;
    if MainForm.ADOQueryEmployees.FieldByName('Password').Value = Null then
    begin
      if AutorizationForm.EditPassword.Text = '' then
      begin
        MainForm.Admin:= MainForm.ADOQueryEmployees.FieldByName('Admin').Value;
        MainForm.IDEmployee:= MainForm.ADOQueryEmployees.FieldByName('ID').Value;
        AutorizationForm.Close;
      end
      else MessageBox(Handle, 'Не верное имя пользователь или не верный пароль!', 'Ошибка авторизации:', MB_OK+MB_ICONWARNING);
    end
    else
    begin
      if MainForm.ADOQueryEmployees.FieldByName('Password').Value = AutorizationForm.EditPassword.Text then
      begin
        MainForm.Admin:= MainForm.ADOQueryEmployees.FieldByName('Admin').Value;
        MainForm.IDEmployee:= MainForm.ADOQueryEmployees.FieldByName('ID').Value;
        AutorizationForm.Close;
      end
      else MessageBox(Handle, 'Не верное имя пользователь или не верный пароль!', 'Ошибка авторизации:', MB_OK+MB_ICONWARNING);
    end;
  end;
end;

end.

[Asinkrit]

Что за индусский код? В чем логика безопасности если правильность ввода пароля проверяется на стороне клиента? Даже при не правильном вводе пароля вы передаете правильный пароль клиенту, зачем?