Forum Replies Created
-
-
You could use the orm for this. I wrote a little very basic demo. I used firedac as a connection but you can change this. You need to setup the firedac connection before you can use it. (Make a test database for it!) In the demo you have to take care of the primary key(message_id) yourself.
Here is a link to the code:
https://lycaproductions.stackstorage.com/s/5L82VjorZ4ylSNC
is valid till 31-08-2019
Here the code itself:
unit f_main;
interface
uses
kbmMWOrm,
kbmMWNullable,
kbmMWRtti,Data.DB,
Generics.Collections,
Winapi.Windows,
Winapi.Messages,
System.SysUtils,
System.Variants,
System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
kbmMWCustomConnectionPool,
kbmMWFireDAC,
kbmMemTable,
Vcl.ExtCtrls,
Vcl.DBCtrls,
Vcl.Grids,
Vcl.DBGrids,
Vcl.StdCtrls,
kbmMemCSVStreamFormat,
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.FB,
FireDAC.Phys.FBDef,
FireDAC.VCLUI.Wait,
FireDAC.Comp.Client,
kbmMWSQLRewriter,
kbmMWCustomSQLMetaData,
kbmMWInterbaseMetaData;type
TForm1 = class(TForm)
kbmMWFireDACConnectionPool: TkbmMWFireDACConnectionPool;
// Notice that the kbmCSVStreamFormat is set to the AllDataFormat property
mtMessages: TkbmMemTable;
dsMessages: TDataSource;
DBNavigator: TDBNavigator;
grdMessages: TDBGrid;
btnSaveToFile: TButton;
btnSaveToFireBird: TButton;
kbmCSVStreamFormat: TkbmCSVStreamFormat;
btnOpenFromFile: TButton;
btnOpenFromFireBird: TButton;
FDConnection: TFDConnection;
mtMessagesmessage_id: TIntegerField;
mtMessagesmessage_text: TStringField;
btnOpen: TButton;
btnCreateTable: TButton;
kbmMWInterbaseMetaData: TkbmMWInterbaseMetaData;
kbmMWInterbaseSQLRewriter: TkbmMWInterbaseSQLRewriter;
procedure btnCreateTableClick(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure btnOpenFromFileClick(Sender: TObject);
procedure btnSaveToFileClick(Sender: TObject);
procedure btnSaveToFireBirdClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Orm: TkbmMWORM;
public
procedure SaveMessageMemoryTableToFile;
procedure SaveMessageMemoryTableToFireBird;procedure LoadMessagesFromFile;
procedure LoadMessageFromFireBird;
end;[kbmMW_Table(‘name:my_messages’)]
TMyMessage = class
private
FMessageID: kbmMWNullable<Integer>;
FMessageText: kbmMWNullable<string>;
public
[kbmMW_Field(‘name:message_id, primary:true’, ftInteger)]
property MessageID: kbmMWNullable<Integer> read FMessageID write FMessageID;[kbmMW_Field(‘name:message_text’, ftString)]
property MessageText: kbmMWNullable<string> read FMessageText write FMessageText;
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.btnCreateTableClick(Sender: TObject);
begin
if not Orm.ExistsTable(TMyMessage) then
beginif Orm.CreateTable(TMyMessage) then
ShowMessage(‘TMyMessage Table Created’)
else
ShowMessage(‘Error creating table’);end;
end;procedure TForm1.btnOpenClick(Sender: TObject);
begin
mtMessages.Open;
end;procedure TForm1.btnOpenFromFileClick(Sender: TObject);
begin
LoadMessagesFromFile;
end;procedure TForm1.btnSaveToFileClick(Sender: TObject);
begin
SaveMessageMemoryTableToFile;
end;procedure TForm1.btnSaveToFireBirdClick(Sender: TObject);
begin
SaveMessageMemoryTableToFireBird;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
// You can change the connection pool to the one you like.
// Before you can persist to the database,
// you have to make sure that the connection pool is setup.
Orm := TkbmMWORM.Create(kbmMWFireDACConnectionPool);
end;procedure TForm1.LoadMessageFromFireBird;
var
MessageList: TObjectList<TMyMessage>;
begin
MessageList := Orm.QueryList<TMyMessage>;
Orm.ToDataset<TMyMessage>(MessageList, True);
end;procedure TForm1.LoadMessagesFromFile;
begin
mtMessages.LoadFromFileViaFormat(‘.\MyMessagFile.csv’, kbmCSVStreamFormat);
end;procedure TForm1.SaveMessageMemoryTableToFile;
begin
mtMessages.SaveToFileViaFormat(‘.\MyMessagFile.csv’, kbmCSVStreamFormat);
end;procedure TForm1.SaveMessageMemoryTableToFireBird;
var
MessageList: TObjectList<TMyMessage>;
begin
MessageList := Orm.ListFromDataset<TMyMessage>(mtMessages, [usModified, usInserted, usDeleted]);
Orm.Persist(MessageList);
end;initialization
TkbmMWRTTI.EnableRTTI([TMyMessage, TObjectList<TMyMessage>]);
kbmMWRegisterKnownClasses([TMyMessage, TObjectList<TMyMessage>]);end.
-
Never mind I did something very stupid 🙁
I had a dbaware control connected to a DataSource->kbmMemTable with a wrong datafield value in it. So the ToDataset method works fine but when it opens it goes wrong because of the wrong datafield. I should have known it wasn’t kbmmw 🙂 Sorry!
-
Im not sure exactly what you are asking.
I was afraid for that 🙂 One more try…
When you use datasets and data-aware controls the data-aware controls change from editable to non editable states depending on the state of the dataset dsEdit, dsBrowse etc. The dbnavigator enables only relevant buttons.This works very easy. I wonder if the same enabling/disabling of input controls can be accomplished with smartbinding and non dataset objects in an easy way.
