Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Estou fazendo um projeto de Delphi escola e nele tenho que gravar dados no SQLITE. Estou usando o seguinte código: unit UClube. interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base, FMX.StdCtrls, FMX.ListView, FMX.DateTimeCtrls, FMX.Edit, FMX.Controls.Presentation, FMX.TabControl, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.FMXUI.Wait, System.Rtti, System.Bindings.Outputs, Fmx.Bind.Editors, Data.Bind.EngExt, Fmx.Bind.DBEngExt, Data.DB, FireDAC.Comp.DataSet, Data.Bind.Components, Data.Bind.DBScope, FireDAC.Comp.UI, FireDAC.Comp.Client, System.IOUtils. type TForm1 = class(TForm)
TabControl1: TTabControl. TabItem2: TTabItem. tb1: TTabItem. lvSocio: TListView. btnSalvar: TButton. btnCancelar: TButton. btnEditar: TButton. btnExcluirr: TButton. Panel1: TPanel. edtDataNasc: TDateEdit. edtCod: TEdit. edtNome: TEdit. edtRg: TEdit. edtCPF: TEdit. edtEndereco: TEdit. Label1: TLabel. Label2: TLabel. Label3: TLabel. Label4: TLabel. Label5: TLabel. labwl: TLabel. NOME: TLabel. Button5: TButton. Panel2: TPanel. edtDataA: TDateEdit. edtCodSocio: TEdit. Label6: TLabel. Label10: TLabel. Label11: TLabel. Label12: TLabel. rdbSocio: TRadioButton. edtNomeA: TEdit. btnNovoA: TButton. edtHoraIA: TEdit. Label7: TLabel. Edit7: TEdit. edtHoraFA: TLabel. edtDescricaoA: TEdit. Label9: TLabel. edtValorA: TEdit. btnCancelarA: TButton. btnEditarA: TButton. btnExcluirA: TButton. btnSalvarA: TButton. lvAgendamento: TListView. FDConnPrincipal: TFDConnection. qrSocio: TFDQuery. qrAgendamento: TFDQuery. FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink. FDGUIxWaitCursor1: TFDGUIxWaitCursor. BindSourceDB1: TBindSourceDB. BindingsList1: TBindingsList. LinkListControlToField1: TLinkListControlToField. LinkControlToField1: TLinkControlToField. LinkControlToField2: TLinkControlToField. LinkControlToField3: TLinkControlToField. LinkControlToField4: TLinkControlToField. LinkControlToField5: TLinkControlToField. LinkControlToField6: TLinkControlToField. qrSocioID: TFDAutoIncField. qrSocioNOME: TStringField. qrSocioRG: TStringField. qrSocioCPF: TStringField. qrSocioENDERECO: TStringField. qrSocioDATA_NASC: TDateField. qrSocioCODIGO: TIntegerField. qrAgendamentoID: TFDAutoIncField. qrAgendamentoNOME: TStringField. qrAgendamentoCODIGO: TIntegerField. qrAgendamentoDESCRICAO: TWideMemoField. qrAgendamentoDATA: TDateField. qrAgendamentoHORA_INICIO: TStringField. qrAgendamentoHORARIO_FIM: TStringField. qrAgendamentoVALOR: TLargeintField. qrAgendamentoSOCIO: TStringField. procedure rdbSocioChange(Sender: TObject). procedure btnSalvarClick(Sender: TObject). procedure Button5Click(Sender: TObject). procedure btnCancelarClick(Sender: TObject). procedure btnEditarClick(Sender: TObject). procedure btnExcluirrClick(Sender: TObject). procedure FormShow(Sender: TObject). private { Private declarations } public { Public declarations } end. var Form1: TForm1. implementation {$R *.fmx} procedure TForm1.btnCancelarClick(Sender: TObject). beginqrSocio.Cancel. Panel1.Enabled:= False. end. procedure TForm1.btnEditarClick(Sender: TObject). qrSocio.Edit. Panel1.Enabled:= True. edtNome.SetFocus. end. end. procedure TForm1.btnExcluirrClick(Sender: TObject). abort. qrSocio.Delete. ShowMessage('Dados excluídos!'). end. procedure TForm1.btnSalvarClick(Sender: TObject). ShowMessage('O nome não pode estar vázio!'). edtNome.SetFocus. abort. end. qrSocio.Post. qrSocio.Refresh. Panel1.Enabled:= False. end. procedure TForm1.Button5Click(Sender: TObject). Panel1.Enabled:= True. edtNome.SetFocus. qrSocio.Append. end. procedure TForm1.FormShow(Sender: TObject). begin FDConnPrincipal.Connected:= True. try {$IF DEFINED (IOS) or DEFINED (ANDROID)} FDConnPrincipal.Params.Values['DATABASE']:= TPath.Combine(TPath.GetDocumentsPath, 'BD_CLUBE.s3db'). {$ENDIF} except on E: Exception do ShowMessage(e.Message). end. qrSocio.Open(). end. procedure TForm1.rdbSocioChange(Sender: TObject). edtCodSocio.Enabled:= true. edtCodSocio.SetFocus. end. end. end. E recebo o seguinte erro:
Carregando comentários...