Ir para conteúdo
Fórum Script Brasil
  • 0

Que Erro é Este?


fernando_vip

Pergunta

olá boa noite!!!

Estou criando um controle de estoque e estou com um pro:

Não consigo adicionar os campos pelo IBQuery, eis o código da unt:

unit UntCadastroClientes;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, IBDatabase, DBCtrls, StdCtrls, Mask, IBCustomDataSet,

ExtCtrls, Grids, DBGrids, IBQuery, ComCtrls;

type

TfrmCadastroClientes = class(TForm)

PgCntrlclientes: TPageControl;

TbShtCadastro: TTabSheet;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

DbdtCodigo: TDBEdit;

DbdtNome: TDBEdit;

DbdtLogradouro: TDBEdit;

DbdtCidade: TDBEdit;

DbdtBairro: TDBEdit;

DbdtUF: TDBEdit;

DbdtCEP: TDBEdit;

DbdtComplemento: TDBEdit;

DbdtCPF: TDBEdit;

DbdtCNPJ: TDBEdit;

DbdtTelefoneFixo: TDBEdit;

DbdtTelefoneCelular: TDBEdit;

DbdtEmail: TDBEdit;

DbdtDataNascimento: TDBEdit;

DBmgFOTO: TDBImage;

DBNvgtrclientes: TDBNavigator;

BtnFoto: TButton;

IBDatabase1: TIBDatabase;

IBTrnsctnEstoque: TIBTransaction;

IBDtStClientes: TIBDataSet;

IBDtStClientesCODIGO: TIntegerField;

IBDtStClientesNOME: TIBStringField;

IBDtStClientesLOGRADOURO: TIBStringField;

IBDtStClientesCIDADE: TIBStringField;

IBDtStClientesBAIRRO: TIBStringField;

IBDtStClientesUF: TIBStringField;

IBDtStClientesCEP: TIBStringField;

IBDtStClientesCOMPLEMENTO: TIBStringField;

IBDtStClientesCPF: TIBStringField;

IBDtStClientesCNPJ: TIBStringField;

IBDtStClientesTELEFONEFIXO: TIBStringField;

IBDtStClientesTELEFONECELULAR: TIBStringField;

IBDtStClientesEMAIL: TIBStringField;

IBDtStClientesDATANASC: TDateField;

IBDtStClientesFOTO: TBlobField;

dtsrclIBDTSclientes: TDataSource;

OpnPctrDlg1: TOpenDialog;

TabSheet1: TTabSheet;

Label16: TLabel;

Label17: TLabel;

LblConsultaSQL: TLabel;

EdtConsultaSQL: TEdit;

BtnConsultaSQL: TButton;

IBQryConsultaSQL: TIBQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

procedure BtnFotoClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmCadastroClientes: TfrmCadastroClientes;

implementation

{$R *.dfm}

procedure TfrmCadastroClientes.BtnFotoClick(Sender: TObject);

begin

if OpnPctrDlg1.Execute then

begin

IBDtStClientes.Edit;

IBDtStClientesFOTO.LoadFromFile(OpnPctrDlg1.FileName);

end;

end;

end.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
olá boa noite!!!

Estou criando um controle de estoque e estou com um pro:

Não consigo adicionar os campos pelo IBQuery, eis o código da unt:

Olá,

Qual é sua dúvida?

Abs.

Kiko

Q d dou clique duplo non IBQuery, para adicionar os campos à form de consulta SQL ele dá um erro

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...