Mesa's Blog

Search This Blog

Easy to create Database application with Delphi.

on July 09, 2019

Get link
Facebook
X
Pinterest
Email
Other Apps

Link: https://www.youtube.com/watch?v=UsKNXIb_vDU

Get link
Facebook
X
Pinterest
Email
Other Apps

Comments

Execute Multiple SQL Script with FireDac (TFDScript)

MySQL Data Schema table students( id int, fname varchar(50), created datetime); -----unit Unit1.pas---- unit Unit1; { /////////////////////////////////////// MySql Data Schema. table students( id int, fname varchar(50), created datetime); /////////////////////////////////////// } interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, 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.MySQL, FireDAC.Phys.MySQLDef, FireDAC.VCLUI.Wait, FireDAC.Comp.ScriptCommands, FireDAC.Stan.Util, Vcl.StdCtrls, FireDAC.Comp.Script, FireDAC.Comp.Client, Data.DB; type TForm1 = class(TForm) Test_dbmsConnection: TFDConnection; FDTransaction1: TFDTransaction; Button1: TButton; FDScript1: TFDScript; FDPhys

cxGrid: How to get Footer Summary Values By Column

var AColumn: TcxGridDBColumn; ASummaryItem: TcxDataSummaryItem; AValue : String; ASummaryIndex: Integer; begin AColumn := Dbtv.GetColumnByFieldName('Amount'); if AColumn <> nil then begin ASummaryItem := Dbtv.DataController.Summary.FooterSummaryItems.GetDataItem(AColumn.Index, spFooter); if ASummaryItem <> nil then begin ASummaryIndex := ASummaryItem.Index; AValue := VarToStr(Dbtv.DataController.Summary.FooterSummaryValues[ASummaryIndex]); end; end; end;

Delphi : Cannot use the same dataset of Report.Dataset and Band.Dataset

Solve Delphi and Fastreport Error The following error(s) have occured: Cannot use the same dataset of Report.Dataset and Band.Dataset Link video

Powered by Blogger

Easy to create Database application with Delphi.

Comments

Post a Comment