Exercício de aula - erro na execução

[Kazam 0]

Galera,

Dentro do curso de técnico de redes que minha filha faz tem o módulo Delphi, na qual está perdida, pois por problemas de saúde teve de falta aulas e esse modulo é corrido, então já viram né???

Por isso, estou usando esse forum para ver se consigo ajuda, pois estou tateando junto com ela para resolver um pequeno exercício.

 

Tenho que montar um exercício que é um pequeno banco de dados escolar:

Criar um projeto de informação com login e senha de acesso; dados pessoais do aluno e boletim

Em tentativa e erro conseguimos criar os formulários de aluno e login. O Formulário Aluno rodou e conseguir até cadastrar, mas o login apresenta erro.

Além disso gostaria de saber como faço para que os formulários se relacionem e funcionem como na sequência:

LOGIN - ALUNO - BOLETIM

Desde já agradecemos

 

Abaixo edit do formulário Login

Login

 

unit Unit1_Sistema;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls;

type
TfmLogin = class(TForm)
Label9: TLabel;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
DataSource1: TDataSource;
Table1: TTable;
procedure Button1Click(Sender: T
procedure FormCreate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormCreate(Sender: TObject);Object);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fmLogin: TfmLogin;

implementation

uses Unit3, Unit1_Sistema;

{$R *.dfm}

procedure TfmLogin.Button1Click(Sender: TObject);
begin
if (edit1.text='') and (edit2.text='') then
begin
application.MessageBox('Digite tudo de novo.','Erro!',MB_ICONError);
edit1.clear;
edit2.Clear;
edit1.SetFocus;
end;
if (edit1.Text<>'') and (edit2.Text<>'') then
begin
fmAluno :=tfmAluno.create(application);
Hide;
fmAluno.showmodal;
end;
If (Edit1.Text <> 'Usuario')or(Edit2.Text = '123') then
begin
Edit1.SetFocus;

end;

end.

 

 

 

 

 

ALUNO

unit Unit1_Sistema;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;

type
TfmAluno = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label6: TLabel;
Label10: TLabel;
DataSource1: TDataSource;
Table1: TTable;
Table1IBM: TStringField;
Table1Nome: TStringField;
Table1Endereco: TStringField;
Table1Bairro: TStringField;
Table1Municipio: TStringField;
Table1UF: TStringField;
Table1Telefone: TStringField;
Table1Responsavel: TStringField;
Table1Obs: TStringField;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fmAluno: TfmAluno;

implementation

{$R *.dfm}

procedure TfmAluno.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldByName('IBM').Value:=edit1.Text;
Table1.FieldByName('Nome').Value:=edit2.Text;
Table1.FieldByName('Endereco').Value:=edit3.Text;
Table1.FieldByName('Bairro').Value:=edit4.Text;
Table1.FieldByName('Municipio').Value:=edit5.Text;
Table1.FieldByName('UF').Value:=edit6.Text;
Table1.FieldByName('Telefone').Value:=edit7.Text;
Table1.FieldByName('Responsavel').Value:=edit8.Text;
Table1.FieldByName('Obs').Value:=memo1.Text;
Table1.Post;
ShowMessage ('Aluno cadastrado com sucesso!');
edit1.clear;
edit2.clear;
edit3.clear;
edit4.clear;
edit5.clear;
edit6.clear;
edit7.clear;
edit8.clear;
memo1.clear;
end;

end.

[Chrnos 30]

Qual é a dúvida afinal? Pelo que vi, você não pesquisa no seu banco se o usuário existe na tela de login... isso já é um problema por sí só.... explica com mais detalhes o que está acontecendo.

[wllf 2]

Só complementando o post do colega Chrnos, informe qual banco de dados, engine de acesso, versão do Delphi e se estiver ocorrendo alguma exception informe também.