Fórum Verificando o estado de uma query em D5 #254881

tentou assim



qualquer coisa tamos ai

Ola Armando,

Obrigado pela sua dica, mas eu tb tentei assim e da o mesmo erro DSInsert variável não declarada, é como se este comando não funcionasse do delphi 5, estranho.

Declare a unit DB na clausula USES do seu form =)
Qnd você insere um TTable, ou TQuery no form, ele jah declara isso pra você, pra voce usar, precisa declarar que vai usar a unit DB.... só isso :D

Verdade...

faça como o nosso amigo descreveu abaixo... acrescente a clausula [b:9dc5f3e119]Db[/b:9dc5f3e119] na [b:9dc5f3e119]Uses[/b:9dc5f3e119] do seu Form, bem no começo abaixo de [b:9dc5f3e119]Interface[/b:9dc5f3e119]...ok

Valeu mesmo Armando e KeitaroSan...a dica que vcs me deram funcionou certim a unit db nao tava declarada pq eu puxo as informações do dm

Brigadão.

falow irmão

unit ULogin;

interface

uses
  Windows, Messages,DB, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls, Buttons,DB;

type
  TFrmLogin = class(TForm)
    Image1: TImage;
    GrpBxLogin: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EdtApelido: TEdit;
    EdtSenha: TEdit;
    BtnOK: TBitBtn;
    BtnCancelar: TBitBtn;
    procedure BtnCancelarClick(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

uses UDM, UMenuPrin;

{$R *.dfm}

procedure TFrmLogin.BtnCancelarClick(Sender: TObject);
begin
application.Terminate;
end;

procedure TFrmLogin.BtnOKClick(Sender: TObject);
begin
Dm.tab_Usuarios.open;

frmMenuPrin.StatusBar1.Panels[2].Text:='Usuário:'+
frmLogin.EdtApelido.Text +'-'+Dm.Tab_UsuariosUsuDepto.AsSTring;

if not (Dm.tab_Usuarios.Locate('UsuApelido',FrmLogin.EdtApelido.Text,[loPartialKey]))or(Dm.tab_UsuariosUsuSenha.Value<>FrmLogin.EdtSenha.Text)
then
begin
MessageDlg('Nome ou Senha do Usuário Inválidos.'+#13+#13
+'Se você esqueceu a Senha, consulte'+#13
+'o Administrador do Sistema', mtError,[mbOK],0);
EdtSenha.Clear;// Limpa o Objeto Edit Senha
EdtSenha.SetFocus;//Ajusta o  Foco para o Objeto EdtSenha
end

else

begin
FrmLogin.Hide;// esconde a telA
FrmMenuPrin.ShowModal;
FrmLogin.Release;// Remove a tela da memoria
FrmLogin:=Nil;// atribui conteudo nulo pára a variavel de tela Frmlogin

end;

end.

 O meu Delphi 7 tá pedindo pra mim declarar a O DB na clausula uses, como eu faço ?
 Há e também tá dando erro no nome "end.", o ultimo nome da minha unit. os erros:

[Error] ULogin.pas(7): Identifier redeclared: 'DB'
[Error] ULogin.pas(69): ';' expected but '.' found
[Error] ULogin.pas(71): Declaration expected but end of file found
[Fatal Error] Sistema.dpr(9): Could not compile used unit 'ULogin.pas'
e eu num to consiguindo resolver. quem pode me ajudar ?


Desde já, muito obrigado!!!

nit ULocalizarItensVenda;

interface

uses
  Windows, Messages,DB, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, Grids, DBGrids;

type
  TFormLocalizarItensVenda = class(TForm)
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLocalizarItensVenda: TFormLocalizarItensVenda;

implementation

uses UDM;

{$R *.dfm}

procedure TFormLocalizarItensVenda.SpeedButton1Click(Sender: TObject);

var
somavenda:integer;
begin

DM.ItemVenda.Append;
DM.ItemVenda.FieldByName('Nome').Value:=DM.ProdutosProdNome.value;
DM.ItemVenda.FieldByName('ProdPrecoVenda').Value:=DM.ProdutosProdPrecoVenda.Value;
//DM.ItemVenda.FieldByName('ProUnidade').Value:=DM.ProdutosProdUnidade;
DM.ItemVenda.FieldByName('ProdQtdeEst').Value:=1;
DM.ItemVenda.Post;
somavenda:=0;
DM.Produtos.Edit;
DM.ItemVenda.Edit;
somavenda:=somavenda+DM.ProdutosProdQtdeEst.Value-DM.ItemVendaItVeQtde.Value;
DM.ProdutosProdQtdeEst.Value:=somavenda;
DM.Produtos.Post;
DM.ItemVenda.Post;
end;

procedure TFormLocalizarItensVenda.Edit1Change(Sender: TObject);
begin
DM.Produtos.Locate('Nome',edit1.Text,[locaseinsensitive,lopartialkey]);
end;

procedure TFormLocalizarItensVenda.FormActivate(Sender: TObject);
begin
Edit1.SetFocus;
end;

procedure TFormLocalizarItensVenda.SpeedButton2Click(Sender: TObject);
begin
close;
end;

end.



Rapaz o meu UlocalizarVendas, no estoque ñ quer pegar....alguem pode me ajudar?

Você possui uma nova dúvida, sendo que esta não condiz mais com o tópico deste post, favor criar um novo post para a sua nova dúvida, para poder-mos melhor organizar o fórum e ajudar os colegas que possuam as mesmas dúvidas.

Obrigado pela atenção.