mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-14 18:12:05 +08:00
78 lines
3.0 KiB
ObjectPascal
78 lines
3.0 KiB
ObjectPascal
program heidisql;
|
|
|
|
{%File '..\..\const.inc'}
|
|
|
|
uses
|
|
Forms,
|
|
SysUtils,
|
|
Dialogs,
|
|
main in '..\..\main.PAS' {MainForm},
|
|
childwin in '..\..\childwin.pas' {MDIChild},
|
|
about in '..\..\about.pas' {AboutBox},
|
|
connections in '..\..\connections.pas' {connform},
|
|
createtable in '..\..\createtable.pas' {CreateTableForm},
|
|
fieldeditor in '..\..\fieldeditor.pas' {FieldEditForm},
|
|
exportsql in '..\..\exportsql.pas' {ExportSQLForm},
|
|
tbl_properties in '..\..\tbl_properties.pas' {tbl_properties_form},
|
|
tblcomment in '..\..\tblcomment.pas' {tablecomment},
|
|
loaddata in '..\..\loaddata.pas' {loaddataform},
|
|
usermanager in '..\..\usermanager.pas' {UserManagerForm},
|
|
options in '..\..\options.pas' {optionsform},
|
|
selectsomedatabases in '..\..\selectsomedatabases.pas' {SelectFromManyDatabases},
|
|
optimizetables in '..\..\optimizetables.pas' {optimize},
|
|
printlist in '..\..\printlist.pas' {printlistForm},
|
|
copytable in '..\..\copytable.pas' {CopyTableForm},
|
|
edituser in '..\..\edituser.pas' {FormEditUser},
|
|
insertfiles in '..\..\insertfiles.pas' {frmInsertFiles},
|
|
insertfiles_progress in '..\..\insertfiles_progress.pas' {frmInsertFilesProgress},
|
|
helpers in '..\..\helpers.pas',
|
|
synchronization in '..\..\synchronization.pas',
|
|
communication in '..\..\communication.pas',
|
|
threading in '..\..\threading.pas',
|
|
sqlhelp in '..\..\sqlhelp.pas' {frmSQLhelp},
|
|
queryprogress in '..\..\queryprogress.pas' {frmQueryProgress},
|
|
mysqlquery in '..\..\mysqlquery.pas',
|
|
mysqlquerythread in '..\..\mysqlquerythread.pas',
|
|
mysqlconn in '..\..\mysqlconn.pas',
|
|
mysql in '..\..\mysql.pas';
|
|
|
|
{$R *.RES}
|
|
|
|
begin
|
|
debug('perf: All modules loaded.');
|
|
Application.Initialize;
|
|
Application.Title := APPNAME;
|
|
Application.CreateForm(TMainForm, MainForm); debug('perf: Main created.');
|
|
|
|
Application.CreateForm(TCreateTableForm, CreateTableForm); debug('perf: CreateTable created.');
|
|
Application.CreateForm(Ttbl_properties_form, tbl_properties_form); debug('perf: tbl_properties created.');
|
|
Application.CreateForm(Ttablecomment, tablecomment); debug('perf: tablecomment created.');
|
|
Application.CreateForm(Tloaddataform, loaddataform); debug('perf: loaddata created.');
|
|
Application.CreateForm(TprintlistForm, printlistForm); debug('perf: printlist created.');
|
|
Application.CreateForm(TCopyTableForm, CopyTableForm); debug('perf: CopyTable created.');
|
|
Application.CreateForm(TFormEditUser, FormEditUser); debug('perf: EditUser created.');
|
|
Application.CreateForm(TfrmSQLhelp, frmSQLhelp); debug('perf: frmSQLhelp created.');
|
|
|
|
|
|
try
|
|
try
|
|
InitializeSync(MainForm.Handle);
|
|
SetWindowName(main.discname);
|
|
InitializeThreading(MainForm.Handle);
|
|
InitializeComm(
|
|
MainForm.Handle,
|
|
MainForm.ExecuteRemoteNonQuery,
|
|
MainForm.ExecuteRemoteQuery
|
|
);
|
|
debug('perf: Running.');
|
|
Application.Run;
|
|
finally
|
|
DeInitializeSync;
|
|
end;
|
|
except
|
|
on e: Exception do begin
|
|
ShowMessage(e.ClassName + ': ' + e.Message);
|
|
end;
|
|
end;
|
|
end.
|