Mesa's Blog

Search This Blog

Delphi Console CRUD UniDAC + MSSQL

on August 31, 2021

Get link
Facebook
Twitter
Pinterest
Email
Other Apps

Delphi : Building a Windows CRUD Console Application with UniDAC + MSSQL

Source : github.com

Get link
Facebook
Twitter
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;

Powered by Blogger

Delphi Console CRUD UniDAC + MSSQL

Comments

Post a Comment