fernando_vip Postado Agosto 8, 2005 Denunciar Share Postado Agosto 8, 2005 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;interfaceuses 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);beginif OpnPctrDlg1.Execute thenbeginIBDtStClientes.Edit;IBDtStClientesFOTO.LoadFromFile(OpnPctrDlg1.FileName);end;end;end. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Agosto 8, 2005 Denunciar Share Postado Agosto 8, 2005 ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Kikonanet Postado Agosto 9, 2005 Denunciar Share Postado Agosto 9, 2005 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 fernando_vip Postado Agosto 9, 2005 Autor Denunciar Share Postado Agosto 9, 2005 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Kikonanet Postado Agosto 9, 2005 Denunciar Share Postado Agosto 9, 2005 Olá,Qual erro q dá?A conexão com o BD está feita?Abs.Kiko Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
fernando_vip
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
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.