Skip to content

Instantly share code, notes, and snippets.

View servidorlinux092-debug's full-sized avatar

servidorlinux092-debug

  • Joined Sep 13, 2026
View GitHub Profile
unit UFormDashboard2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
Vcl.ExtCtrls, Vcl.CheckLst, Vcl.Clipbrd, Vcl.Grids, Vcl.DBGrids,
Data.DB, // 1. Tipos de datos de Delphi (TDataSet, etc.) - Primero
dbisamtb, // 2. Motor DBISAM - Segundo
program DashboardA2;
uses
Vcl.Forms,
System.SysUtils,
UFormDashboard in 'UFormDashboard.pas' {Form1},
UDataModule in 'UDataModule.pas' {DM: TDataModule},
UModCopiaData in 'UModCopiaData.pas',
UFrmSplash in 'UFrmSplash.pas' {FrmSplash};
unit UFormDashboard;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
Vcl.CheckLst, Vcl.Clipbrd,
UDataModule, // Enlace a tu DataModule
dbisamtb, VclTee.TeeGDIPlus, VCLTee.Series, VCLTee.TeEngine, VCLTee.TeeProcs,
unit UModCopiaData;
interface
uses
System.SysUtils, System.Classes, System.IOUtils, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Dialogs;
type
TModCopiaData = class
private
unit UDataModule;
interface
uses
System.SysUtils, System.Classes, dbisamcn, dbisamtb, Data.DB, Vcl.Dialogs;
type
TDM = class(TDataModule)
SessionA2: TDBISAMSession;
unit UFormDashboard;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
Vcl.CheckLst, Vcl.Clipbrd,
UDataModule, // Enlace a tu DataModule
dbisamtb, VclTee.TeeGDIPlus, VCLTee.Series, VCLTee.TeEngine, VCLTee.TeeProcs,
unit UFrmSplash;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
type
TFrmSplash = class(TForm)
unit UModCopiaData;
interface
uses
System.SysUtils, System.Classes, System.IOUtils, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Dialogs;
type
TModCopiaData = class
private
unit UDataModule;
interface
uses
System.SysUtils, System.Classes, dbisamcn, dbisamtb, Data.DB, Vcl.Dialogs;
type
TDM = class(TDataModule)
SessionA2: TDBISAMSession;
unit UFormDashboard;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls,
Vcl.CheckLst, Vcl.Clipbrd,
UDataModule, // Enlace a tu DataModule
dbisamtb, VclTee.TeeGDIPlus, VCLTee.Series, VCLTee.TeEngine, VCLTee.TeeProcs,