Проект Делфи + БД

[skylost]

Мне нужно создать приложение которое будет генерировать товарные чеки из продукции которая будет занесена в БД (это в двух словах).

Я хотел бы в этой теме задавать вопросы которые у меня будут возникать во время написания этой программы.

Для начала нужно создать форму авторизации, которая будет появляться при запуске приложения и спрашивать логин и пароль (они записаны в БД в таблице Менеджеры), и если авторизация прошла успешно, открывать основную форму.
Я гуглил и нашел темы где ставиться этот вопрос, но так как я новичек в ООП у меня возникли проблемы, например создавалась новая пустая форма вместо вызова той что я создал и т.д.

Пишу в RAD Studio 2009.

В заранее благодарен всем за внимание и помощь!
PS: не судите строго бедного студента.

[ram12]

всё хорошо описано в книге "библия дельфи" посматри её в соседней теме выкладывали ббуквально сегодня.

[skylost]

Спасибо, как раз с помощью этой книги я хотел писать программу.

Только вот все же как мне при запуске вызвать форму с авторизацией?

Вот что выдает при написании в главной форме программы:

procedure TMainForm.FormCreate(Sender: TObject);
begin
form1.showmodal;
end;

Выдаёт: точто на скрине.

Так с этим разобрался нужно было добавить:

Application.CreateForm(TForm1, Form1);

в

program MDIAPP;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  about in 'about.pas' {AboutBox},
  DostubBD in 'DostubBD.pas' {DataModule1: TDataModule},
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Run;
end.

Но теперь получается что главная форма не MainForm а Form1 чем мне это грозит?

[skylost]

Во общем со всем этим разобрался, теперь как мне сравнивать данные введенные в поле Edit1 и Edit2 с записями в БД.

Вот так компилируется без ошибок но при нажатие клавишу где прописан данный код:

if DataModule1.LoginTable.FieldByName('Логин').Value=Edit1.text then

Выдает ошибку на подобие той что на предыдущем посте.

Неужели некто помочь не может???
хоть кто нибудь что нибудь думает? Создается впечатление будто игнорируете тему(((

Хоть что нибудь напишите

Даже элементарная операция(для проверки написал):

procedure TLoginForm.Button1Click(Sender: TObject);
begin
Edit1.Text:=inttostr(DataModule1.LoginTable.FieldCount);
end;

Вызывает ошибку!
Может от того что в БД имя полей написаны на русском?
Я уже не знаю что делать столько времени убил методом тыка!

[Google2010]

Неужели некто помочь не может???

if DataModule1.LoginTable.FieldByName('Логин').Value=Edit1.text then

-вот Это бред
Надо создавать запрос вроде

 'Select пароль from имя_вашей_таблицы where Логин='+quotedstr(edit1.text);

потом сравнивать

if query.fieldbyname('Пароль').Asstring=edit2.text{тот едит где вводится пароль} then {тот код код когда доступ разрешен}
else{логин и пароль неверные};

Почитайте про запросы в той же самой книжке
Имхо использовать компоненты типа TTable это моветон, намного лучше обойтись TQuery мобильнее как то все получается!

[SERG1980]

1. Какая БД (в чём создана)
2. Делаете Форму авторизации убираете её из автосоздаваемых
3. В событии OnShow главной формы пишите что то вроде

 LoginForm:=TLoginForm.Create(Application);
 Loginform.ShowModal;

4. После ввода данных в поля логин формы делаете SQL запрос и смотрите есть ли такой пользователь
примерно такого типа

'select * from Менеджеры where User ="'+
     Loginform.LoginEdit.Text+'" and Password ="'+LoginForm.PasswordEdit.Text+'"';

[skylost]

Спасибо огромное за помощь! С этим разобрался!

Теперь как сделать так, чтобы удалять то поле в БД которое выделено в данный момент в DBGrid, делаю как Библии Делфи, автор пишет следующий код(говоря при этом что метод delete удаляет текущую запись из БД):

procedure TManagerForm.sDeleteClick(Sender: TObject);
begin
if application.messagebox(pchar('Ты действительно хочеш удалить '
+DataModule1.ManagerTableФамилия.Asstring), 'Внимание!',MB_OKCancel)=id_OK then
begin
DataModule1.ManagerTable.delete;

end;

Но он удаляет первую запись в БД, а не текущую которою я выделяю в DBGrid.
Наведите на мысль

[SERG1980]

Да всё написано верно. Может у вас на данный момент в датасоурсе.датасет:=Query а не Table, тогда надо писать Query.Delete

[skylost]

Да нет не query

[SERG1980]

Ну если не затруднит выложите Ваш проект