opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Implement a more lightweight connection layer, consisting of 2 units in source directory. Breaks threading and window to window communication, which should be reimplemented later.

Browse Source
This commit is contained in:
Ansgar Becker
2009-10-28 00:08:49 +00:00
parent 82c717870d
commit 12a8e2ebc5
35 changed files with 1702 additions and 5032 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/data_sorting.pas
View File

@ -5,7 +5,7 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons,
WideStrings, TntStdCtrls, helpers, Db;
WideStrings, TntStdCtrls, helpers, mysql_connection;
type
@ -60,15 +60,15 @@ end;
}
procedure TDataSortingForm.FormShow(Sender: TObject);
var
ds: TDataset;
Results: TMySQLQuery;
begin
// Take column names from listColumns and add here
ColumnNames.Clear;
ds := Mainform.SelectedTableColumns;
ds.First;
while not ds.Eof do begin
ColumnNames.Add(ds.Fields[0].AsWideString);
ds.Next;
Results := Mainform.SelectedTableColumns;
Results.First;
while not Results.Eof do begin
ColumnNames.Add(Results.Col(0));
Results.Next;
end;
OrderColumns := Mainform.FDataGridSort;