show()和exec() (zz)

本文探讨了QDialog中show()与exec()函数的区别。show()用于显示非模式对话框,控制权立即返回调用方;而exec()则用于显示模式对话框,会锁定程序直至用户关闭对话框。此外,文章还提供了如何在QWidget中模拟模式对话框的方法。

http://hi.baidu.com/wangjuns8/blog/item/24b382460dd1c1338694737d.html/cmtid/2fb3818c9b4f1ef5503d9202

QDialog的显示有两个函数show()和exec()。他们的区别在参考文档上的解释如下:

show():
显示一个非模式对话框。控制权即刻返回给调用函数。
弹出窗口是否模式对话框,取决于modal属性的值。
(原文:Shows the dialog as a modeless dialog. Control returns immediately to the calling code. 
The dialog will be modal or modeless according to the value of the modal property. )

exec():
显示一个模式对话框,并且锁住程序直到用户关闭该对话框为止。函数返回一个DialogCode结果。
在对话框弹出期间,用户不可以切换同程序下的其它窗口,直到该对话框被关闭。
(原文:Shows the dialog as a modal dialog, blocking until the user closes it. The function returns a DialogCode result. 
Users cannot interact with any other window in the same application until they close the dialog. )

先简单说一下我对模式和非模式对话框的一点点理解:
模式对话框,就是在弹出窗口的时候,整个程序就被锁定了,处于等待状态,直到对话框被关闭。这时往往是需要对话框的返回值进行下面的操作。如:确认窗口(选择“是”或“否”)。
非模式对话框,在调用弹出窗口之后,调用即刻返回,继续下面的操作。这里只是一个调用指令的发出,不等待也不做任何处理。如:查找框。

从字面上看,show()即可以显示非模式也可以显示模式对话框(设置modal值)。当modal=true的时候是否跟exec()就一样了呢?
经过测试,还是有区别的。
使用show(),虽然在对话框弹出的时候,程序的其它操作(按钮、窗口切换等)都失效了;但是程序仍然在调用对话框之后,马上返回继续执行后面的代码。这样,你就不会得到窗口的返回值。以这个来看,show()只能算是“半模式”。
而使用exec(),在调用之后,程序就被锁定在原地。等待窗口的关闭。

实际上,QDialog的show()函数来自其父类QWidget。而exec()则是自己的。

我最近特别喜欢继承QWidget类来做弹出窗口,它的好处就是方便、灵活,既可以做为弹出窗口用也可以嵌入另外的页面里(QDialog是不行的)。但问题是,QWidget没有exec()函数。所以想弹出这样模拟出来的模式对话框就不行了。
也查过一些资料,有说用while(true)循环的,有说用接收事件的,但都感觉不太好。

所以,目前还没有找到比较好的解决办法。

续:
上面遗留的问题经过查看QTE源代码(没有找到QT的)总算解决了。
我查看了QDialog类的exec()函数。发现里面同样调用了show(),只是在后面又调用了一句qApp->enter_loop()嵌套一个新的消息循环来阻塞当前事件的执行;然后在hide()函数里调用了qApp->exit_loop()来退出当前的消息循环并继续执行原事件。

到QT帮助里查了一下这两个函数,解释如下:
enter_loop():
这个函数被废弃了。它仍然被保留下来是为了使旧的代码能够继续工作。我们强烈建议不要在新写的代码里使用它。这个函数直接介入主消息循环里(递归地)。除非你真的知道你在做什么,否则不要调用它。建议使用:QApplication::eventLoop()->enterLoop()。
exit_loop():
同样被废弃了。建议使用:QApplication::eventLoop()->exitLoop()。
提醒:这两个操作都会进入主消息循环,慎用!

那就按照建议的做吧,反正效果都是一样的。修改原来的自定义窗口,在里面增加了两个函数,分别实现打开和关闭窗口,封装了eventLoop()的调用。代码如下:
#include <qapplication.h>
#include <qeventloop.h>

void MyWidget::doExec()
{
    this->show();
    in_loop = TRUE;
    //qApp->enter_loop();
    QApplication::eventLoop()->enterLoop();
}

void MyWidget::doClose()
{
    if ( in_loop ) {
in_loop = FALSE;
//qApp->exit_loop();
        QApplication::eventLoop()->exitLoop();
    }
    this->close();
}

unit main; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, DB, PostgreSQLUniProvider, Uni, MemDS, DBAccess, GridsEh, DBGridEh, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh, EhLibVCL, Vcl.Buttons, Vcl.ComCtrls, Vcl.Menus, Vcl.DBCtrls, Vcl.Mask, IdTCPClient, DBAxisGridsEh, DBGridEhImpExp, DBCtrlsEh, DataSetImpExpEh, System.UITypes, ShellAPI,Vcl.Clipbrd, SynEditHighlighter, SynHighlighterSQL, SynAutoCorrect, SynCompletionProposal, SynEdit, SynMemo,SynEditTypes; type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; cbConnections: TComboBox; Label2: TLabel; btnExecute: TButton; Panel2: TPanel; DBGridEh0: TDBGridEh; UniConnection0: TUniConnection; UniQuery1: TUniQuery; btnUpdate: TButton; btnExportExcel: TButton; SaveDialog1: TSaveDialog; StatusBar1: TStatusBar; btnExit1: TButton; UniDataSource0: TUniDataSource; lstTables: TListBox; // 新增列表控件 // DBGridEh1: TDBGridEh; // 新增DBGridEh控件 UniQueryTables: TUniQuery; // 用于获取表信息的查询 UniQueryFields: TUniQuery; // 用于获取字段信息的查询 UniDataSource1: TUniDataSource; DBGridEh1: TDBGridEh; pmTables: TPopupMenu; SynCompletionProposal1: TSynCompletionProposal; SynAutoComplete1: TSynAutoComplete; SynAutoCorrect1: TSynAutoCorrect; SynEdit1: TSynEdit; SynSQLSyn1: TSynSQLSyn; // 新增数据源 procedure FormCreate(Sender: TObject); procedure btnExecuteClick(Sender: TObject); procedure btnUpdateClick(Sender: TObject); procedure btnExportExcelClick(Sender: TObject); procedure cbConnectionsChange(Sender: TObject); procedure btnExit1Click(Sender: TObject); procedure lstTablesClick(Sender: TObject); procedure SynCompletionProposal1Execute(Kind: SynCompletionType; Sender: TObject; var CurrentInput: string; var x, y: Integer; var CanExecute: Boolean); procedure SynEdit1DblClick(Sender: TObject); procedure SynEdit1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } procedure LoadConnections; procedure ConnectToDatabase(Index: Integer); procedure LoadTables; // 加载所有表 procedure LoadFields(const TableFullName: string); // 加载选定表的所有字段 function TestNetworkConnection(const Server: string; Port: Integer): Boolean; procedure lstTablesContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); procedure DBGridEh1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); procedure CopyTableNameToClipboard(Sender: TObject); procedure CopyFieldNameToClipboard(Sender: TObject); procedure InitHighlighter; procedure LoadDatabaseSchema; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ExcelXP, ComObj; function TForm1.TestNetworkConnection(const Server: string; Port: Integer): Boolean; var Client: TIdTCPClient; begin Result := False; Client := TIdTCPClient.Create(nil); try Client.Host := Server; Client.Port := Port; try Client.Connect; Result := Client.Connected; Client.Disconnect; except Result := False; end; finally Client.Free; end; end; procedure TForm1.lstTablesContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var ItemIndex: Integer; TableName: string; MenuItem: TMenuItem; begin // 获取当前鼠标位置对应的项索引 ItemIndex := lstTables.ItemAtPos(MousePos, True); if ItemIndex >= 0 then begin lstTables.ItemIndex := ItemIndex; TableName := lstTables.Items[ItemIndex]; // 清空现有菜单项 pmTables.Items.Clear; // 创建新的菜单项 MenuItem := TMenuItem.Create(pmTables); MenuItem.Caption := '复制表名: ' + TableName; MenuItem.OnClick := CopyTableNameToClipboard; pmTables.Items.Add(MenuItem); // 显示弹出菜单 pmTables.Popup(MousePos.X + lstTables.Left, MousePos.Y + lstTables.Top); Handled := True; // 阻止默认的弹出菜单 end; end; procedure TForm1.SynCompletionProposal1Execute(Kind: SynCompletionType; Sender: TObject; var CurrentInput: string; var x, y: Integer; var CanExecute: Boolean); var FieldsQuery: TUniQuery; SchemaName, TableName, CurrentWord, FullTableName: string; DotPos, LastDotPos: Integer; CaretPos: TBufferCoord; LineText: string; StartPos: Integer; begin CanExecute := UniConnection0.Connected; if not CanExecute then Exit; try // 获取当前光标位置 CaretPos := SynEdit1.CaretXY; // 获取当前行的文本 if CaretPos.Line > 0 then LineText := SynEdit1.Lines[CaretPos.Line - 1] else LineText := ''; // 从光标位置向前查找,获取完整的单词(包括点号) StartPos := CaretPos.Char; while (StartPos > 1) and (StartPos <= Length(LineText)) and (LineText[StartPos - 1] in ['a'..'z', 'A'..'Z', '0'..'9', '_', '.']) do Dec(StartPos); if StartPos <= Length(LineText) then CurrentWord := Copy(LineText, StartPos, CaretPos.Char - StartPos) else CurrentWord := ''; // 查找最后一个点号的位置 LastDotPos := LastDelimiter('.', CurrentWord); if LastDotPos = 0 then begin // 没有点号,显示所有表名 SynCompletionProposal1.ItemList.BeginUpdate; try SynCompletionProposal1.ItemList.Clear; LoadDatabaseSchema; finally SynCompletionProposal1.ItemList.EndUpdate; end; end else begin // 有点号,检查点号是否在末尾(表示需要字段提示) if LastDotPos = Length(CurrentWord) then begin // 点号在末尾,获取模式名表名 FullTableName := Copy(CurrentWord, 1, LastDotPos - 1); // 解析模式名表名 DotPos := LastDelimiter('.', FullTableName); if DotPos > 0 then begin SchemaName := Copy(FullTableName, 1, DotPos - 1); TableName := Copy(FullTableName, DotPos + 1, Length(FullTableName) - DotPos); end else begin SchemaName := 'public'; // 默认模式 TableName := FullTableName; end; // 验证表名模式名不为空 if (Trim(TableName) = '') or (Trim(SchemaName) = '') then begin SynCompletionProposal1.ItemList.Clear; Exit; end; FieldsQuery := TUniQuery.Create(nil); try FieldsQuery.Connection := UniConnection0; FieldsQuery.SQL.Text := 'SELECT column_name ' + 'FROM information_schema.columns ' + 'WHERE table_name = :table_name ' + 'AND table_schema = :schema_name ' + 'ORDER BY ordinal_position'; FieldsQuery.ParamByName('table_name').AsString := TableName; FieldsQuery.ParamByName('schema_name').AsString := SchemaName; FieldsQuery.Open; SynCompletionProposal1.ItemList.BeginUpdate; try SynCompletionProposal1.ItemList.Clear; if FieldsQuery.RecordCount = 0 then begin // 尝试不区分大小写查询 FieldsQuery.Close; FieldsQuery.SQL.Text := 'SELECT column_name ' + 'FROM information_schema.columns ' + 'WHERE LOWER(table_name) = LOWER(:table_name) ' + 'AND LOWER(table_schema) = LOWER(:schema_name) ' + 'ORDER BY ordinal_position'; FieldsQuery.ParamByName('table_name').AsString := TableName; FieldsQuery.ParamByName('schema_name').AsString := SchemaName; FieldsQuery.Open; end; if FieldsQuery.RecordCount = 0 then begin SynCompletionProposal1.ItemList.Add('未找到字段 - 检查表名: ' + SchemaName + '.' + TableName); Exit; end; while not FieldsQuery.Eof do begin SynCompletionProposal1.ItemList.Add( FieldsQuery.FieldByName('column_name').AsString ); FieldsQuery.Next; end; finally SynCompletionProposal1.ItemList.EndUpdate; end; finally FieldsQuery.Free; end; end else begin // 点号不在末尾,显示表名提示 SynCompletionProposal1.ItemList.BeginUpdate; try SynCompletionProposal1.ItemList.Clear; LoadDatabaseSchema; finally SynCompletionProposal1.ItemList.EndUpdate; end; end; end; except on E: Exception do begin SynCompletionProposal1.ItemList.Clear; SynCompletionProposal1.ItemList.Add('错误: ' + E.Message); // 记录详细错误信息 OutputDebugString(PChar('自动完成错误: ' + E.Message + ' Class: ' + E.ClassName)); end; end; end; procedure TForm1.SynEdit1DblClick(Sender: TObject); begin SynEdit1.SelectAll; end; procedure TForm1.SynEdit1KeyPress(Sender: TObject; var Key: Char); begin // 当输入点号时触发自动完成 if Key = '.' then begin // 先插入点号 SynEdit1.SelText := '.'; // 立即触发自动完成 SynCompletionProposal1.ActivateCompletion; Key := #0; // 阻止默认处理 end // Ctrl+Space 触发自动完成 else if (Key = ' ') and (GetKeyState(VK_CONTROL) < 0) then begin Key := #0; SynCompletionProposal1.ActivateCompletion; end; end; procedure TForm1.InitHighlighter; begin SynSQLSyn1.SQLDialect := sqlPostgres; SynSQLSyn1.KeyAttri.Foreground := clNavy; SynSQLSyn1.CommentAttri.Foreground := clGreen; SynSQLSyn1.StringAttri.Foreground := clMaroon; SynEdit1.Highlighter := SynSQLSyn1; SynEdit1.Options := SynEdit1.Options + [eoAutoIndent, eoScrollPastEol]; end; procedure TForm1.DBGridEh1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var AHitTest: TGridCoord; // 使用 TGridCoord 替代 TGridHitTestInfoEh FieldName: string; MenuItem: TMenuItem; Cell: TGridCoord; begin // 获取鼠标点击位置的单元格坐标 Cell := DBGridEh1.MouseCoord(MousePos.X, MousePos.Y); if (Cell.X >= 0) and (Cell.Y >= 0) and (UniQueryFields.Active) and (not UniQueryFields.IsEmpty) and (Cell.X = 0) then // column_name 列 begin // 定位到对应行 UniQueryFields.RecNo := Cell.Y + 1; FieldName := UniQueryFields.FieldByName('column_name').AsString; // 清空现有菜单项 pmTables.Items.Clear; // 创建新的菜单项 MenuItem := TMenuItem.Create(pmTables); MenuItem.Caption := '复制字段名: ' + FieldName; MenuItem.OnClick := CopyFieldNameToClipboard; pmTables.Items.Add(MenuItem); // 显示弹出菜单 pmTables.Popup(MousePos.X + DBGridEh1.Left, MousePos.Y + DBGridEh1.Top); Handled := True; // 阻止默认的弹出菜单 end; end; procedure TForm1.LoadDatabaseSchema; var TablesQuery: TUniQuery; begin if not UniConnection0.Connected then begin OutputDebugString('数据库未连接'); Exit; end; try TablesQuery := TUniQuery.Create(nil); try TablesQuery.Connection := UniConnection0; TablesQuery.SQL.Text := 'SELECT table_schema, table_name ' + 'FROM information_schema.tables ' + 'WHERE table_catalog = current_database() ' + 'AND table_schema NOT IN (''information_schema'', ''pg_catalog'') ' + 'AND table_type = ''BASE TABLE'' ' + 'ORDER BY table_schema, table_name'; TablesQuery.Open; SynCompletionProposal1.ItemList.BeginUpdate; try SynCompletionProposal1.ItemList.Clear; while not TablesQuery.Eof do begin SynCompletionProposal1.ItemList.Add( TablesQuery.FieldByName('table_schema').AsString + '.' + TablesQuery.FieldByName('table_name').AsString ); TablesQuery.Next; end; finally SynCompletionProposal1.ItemList.EndUpdate; end; finally TablesQuery.Free; end; except on E: Exception do begin SynCompletionProposal1.ItemList.Clear; SynCompletionProposal1.ItemList.Add('加载架构失败: ' + E.Message); OutputDebugString(PChar('加载架构错误: ' + E.Message)); end; end; end; procedure TForm1.CopyTableNameToClipboard(Sender: TObject); var TableName: string; begin if lstTables.ItemIndex >= 0 then begin TableName := lstTables.Items[lstTables.ItemIndex]; Clipboard.AsText := TableName; StatusBar1.Panels[0].Text := '已复制表名: ' + TableName; end; end; procedure TForm1.CopyFieldNameToClipboard(Sender: TObject); var FieldName: string; begin if UniQueryFields.Active and not UniQueryFields.IsEmpty then begin FieldName := UniQueryFields.FieldByName('column_name').AsString; Clipboard.AsText := FieldName; StatusBar1.Panels[0].Text := '已复制字段名: ' + FieldName; end; end; procedure TForm1.FormCreate(Sender: TObject); begin LoadConnections; if cbConnections.Items.Count > 0 then begin cbConnections.ItemIndex := 0; // 尝试连接 ConnectToDatabase(0); end; // 修改自动完成设置 SynCompletionProposal1.Options := [scoLimitToMatchedText, scoUseInsertList, scoEndCharCompletion]; SynCompletionProposal1.EndOfTokenChr := ' .()=,;'; SynCompletionProposal1.TriggerChars := '.'; // 点号触发 SynCompletionProposal1.ShortCut := 16416; // Ctrl+Space LoadTables; // 加载所有表 // 创建弹出菜单实例(如果设计时没有创建) if not Assigned(pmTables) then pmTables := TPopupMenu.Create(Self); // 关联右键菜单事件 lstTables.OnContextPopup := lstTablesContextPopup; DBGridEh1.OnContextPopup := DBGridEh1ContextPopup; InitHighlighter; //在FormCreate中添加键盘事件 SynEdit1.OnKeyPress := SynEdit1KeyPress; end; procedure TForm1.LoadConnections; begin cbConnections.Items.Clear; cbConnections.Items.Add('连接1: 21 gy_zh_hy_cp_aq_jf_yw_yy_nl_dt_dz_auth_td_gz'); cbConnections.Items.Add('连接2: 22 sc_fz_wd_sz_bi_jk_hl_ys_tj'); cbConnections.Items.Add('连接3: 23 jy_jc_bl_zj'); cbConnections.Items.Add('连接4: 24 jz_br_yj'); cbConnections.Items.Add('连接5: 25 yz_lj_hz_zz_yx'); cbConnections.Items.Add('连接6: 26 fy_yg_hg_wm'); cbConnections.Items.Add('连接7: 27 yp_zl_sm_jh_wl'); cbConnections.Items.Add('连接8: 28 聚合库'); end; procedure TForm1.LoadTables; begin lstTables.Items.Clear; if not UniConnection0.Connected then Exit; try UniQueryTables.Close; // 修改SQL查询,获取lyradb数据库中除public模式外的所有表 UniQueryTables.SQL.Text := 'SELECT table_schema, table_name ' + 'FROM information_schema.tables ' + 'WHERE table_catalog = ''lyradb'' ' + // 指定数据库名 'AND table_schema NOT IN (''public'', ''information_schema'', ''pg_catalog'',''hint_plan'',''lyra'',''profile'',''repack'',''util'') ' + // 排除系统模式 'AND table_schema NOT LIKE ''ceti%'' ' +// 排除系统模式 'AND table_schema NOT LIKE ''grus%'' ' +// 排除系统模式 'AND table_type = ''BASE TABLE'' ' + // 只获取基本表 'ORDER BY table_schema, table_name'; UniQueryTables.Open; while not UniQueryTables.Eof do begin // 显示格式:模式名.表名 lstTables.Items.Add( UniQueryTables.FieldByName('table_schema').AsString + '.' + UniQueryTables.FieldByName('table_name').AsString ); UniQueryTables.Next; end; UniQueryTables.Close; except on E: Exception do ShowMessage('加载表列表失败: ' + E.Message); end; end; procedure TForm1.lstTablesClick(Sender: TObject); begin if lstTables.ItemIndex >= 0 then begin // 加载选定表的所有字段 LoadFields(lstTables.Items[lstTables.ItemIndex]); end; end; procedure TForm1.LoadFields(const TableFullName: string); var SchemaName, TableName: string; DotPos,i: Integer; begin // 解析模式名表名 DotPos := Pos('.', TableFullName); if DotPos > 0 then begin SchemaName := Copy(TableFullName, 1, DotPos - 1); TableName := Copy(TableFullName, DotPos + 1, Length(TableFullName)); end else begin SchemaName := 'public'; // 默认模式 TableName := TableFullName; end; // 清空字段信息 DBGridEh1.Columns.Clear; // 获取选定表的所有字段信息(包含注释) UniQueryFields.Close; UniQueryFields.SQL.Text := 'SELECT ' + ' c.column_name, ' + ' c.data_type, ' + ' c.column_default, ' + ' c.is_nullable, ' + ' col_description((c.table_schema||''.''||c.table_name)::regclass::oid, c.ordinal_position) as column_comment ' + 'FROM information_schema.columns c ' + 'WHERE c.table_schema = :schema_name ' + 'AND c.table_name = :table_name ' + 'ORDER BY c.ordinal_position'; UniQueryFields.ParamByName('schema_name').AsString := SchemaName; UniQueryFields.ParamByName('table_name').AsString := TableName; UniQueryFields.Open; // 设置数据源 UniDataSource1.DataSet := UniQueryFields; // 自动添加所有列到DBGridEh DBGridEh1.Columns.AddAllColumns(True); // 然后再限制最大宽度 for i := 0 to DBGridEh1.Columns.Count - 1 do begin DBGridEh1.Columns[i].OptimizeWidth; if DBGridEh1.Columns[i].Width > 200 then DBGridEh1.Columns[i].Width := 200; end; end; procedure TForm1.ConnectToDatabase(Index: Integer); var ConnStr: string; begin UniConnection0.Disconnect; // 设置 Provider 名称 UniConnection0.ProviderName := 'PostgreSQL'; case Index of 0: begin // 连接1 UniConnection0.Server := '192.168.129.21'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; 1: begin // 连接2 UniConnection0.Server := '192.168.129.22'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; // 其他连接配置... 2: begin // 连接3 UniConnection0.Server := '192.168.129.23'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; 3: begin // 连接4 UniConnection0.Server := '192.168.129.24'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; 4: begin // 连接5 UniConnection0.Server := '192.168.129.25'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; 5: begin // 连接6 UniConnection0.Server := '192.168.129.26'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; 6: begin // 连接7 UniConnection0.Server := '192.168.129.27'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; 7: begin // 连接8 UniConnection0.Server := '192.168.129.28'; UniConnection0.Database := 'lyradb'; UniConnection0.Username := 'lyra_ops'; UniConnection0.Password := 'i48VF69KXwgP'; UniConnection0.Port := 5432; // 明确指定端口 end; end; // 显示连接字符串用于调试 ConnStr := Format('Server=%s;Database=%s;User_ID=%s;Port=%d', [UniConnection0.Server, UniConnection0.Database, UniConnection0.Username, UniConnection0.Port]); StatusBar1.Panels[0].Text := '正在连接: ' + ConnStr; try if not TestNetworkConnection(UniConnection0.Server, 5432) then begin ShowMessage('无法连接到数据库服务器,请检查网络连接'); Exit; end; UniConnection0.Connect; StatusBar1.Panels[0].Text := '已连接到: ' + cbConnections.Items[Index]; // 连接成功后加载表 // 连接成功后重新加载 LoadTables; SynCompletionProposal1.ItemList.Clear; // 清空之前的缓存 LoadDatabaseSchema; except on E: Exception do // ShowMessage('连接失败: ' + E.Message); begin ShowMessage(Format('连接失败:'#13#10'错误: %s'#13#10'连接字符串: %s', [E.Message, ConnStr])); StatusBar1.Panels[0].Text := '连接失败'; end; end; end; procedure TForm1.btnExecuteClick(Sender: TObject); var i: Integer; SQLToExecute: string; begin if not UniConnection0.Connected then begin ShowMessage('请先连接到数据库'); Exit; end; // 判断是否有选中文本 if SynEdit1.SelText <> '' then SQLToExecute := SynEdit1.SelText // 执行选中的SQL else SQLToExecute := SynEdit1.Text; // 执行全部SQL if Trim(SQLToExecute) = '' then begin ShowMessage('请输入SQL语句'); Exit; end; try UniQuery1.Close; UniQuery1.SQL.Text := SQLToExecute; // 判断SQL类型(查询或更新) if (Pos('SELECT', UpperCase(SQLToExecute)) = 1) or (Pos('WITH', UpperCase(SQLToExecute)) = 1) or (Pos('SHOW', UpperCase(SQLToExecute)) = 1) then begin UniQuery1.Open; StatusBar1.Panels[1].Text := '记录数: ' + IntToStr(UniQuery1.RecordCount); // 自动调整列宽 DBGridEh0.Columns.Clear; DBGridEh0.Columns.AddAllColumns(True); for i := 0 to DBGridEh0.Columns.Count - 1 do begin DBGridEh0.Columns[i].OptimizeWidth; if DBGridEh0.Columns[i].Width > 200 then DBGridEh0.Columns[i].Width := 200; end; end else begin // 执行非查询语句 UniQuery1.ExecSQL; StatusBar1.Panels[1].Text := '执行成功,影响行数: ' + IntToStr(UniQuery1.RowsAffected); end; except on E: Exception do ShowMessage('执行SQL失败: ' + E.Message); end; end; procedure TForm1.btnUpdateClick(Sender: TObject); begin if UniQuery1.State in [dsEdit, dsInsert] then UniQuery1.Post; try UniQuery1.ApplyUpdates; ShowMessage('更新成功'); except on E: Exception do ShowMessage('更新失败: ' + E.Message); end; end; procedure TForm1.btnExportExcelClick(Sender: TObject); var // ExpClass: TDBGridEhExportClass; Exp: TDBGridEhExportAsXLSX; Ext: string; i: Integer; SaveDialog1: TSaveDialog; begin if UniQuery1.IsEmpty then begin ShowMessage('没有数据可导出'); Exit; end; SaveDialog1 := TSaveDialog.Create(nil); try SaveDialog1.Filter := 'Excel文件(*.xls)|*.xls|Excel 2007+(*.xlsx)|*.xlsx'; SaveDialog1.DefaultExt := 'xls'; SaveDialog1.InitialDir := '\Desktop\'; SaveDialog1.FileName := '导出数据_' + FormatDateTime('yyyymmddhhnnss', Now); if SaveDialog1.Execute then begin // ExpClass := TDBGridEhExportAsXLS; Exp := TDBGridEhExportAsXLSX.Create; Ext := 'xls'; if Pos('.xlsx', LowerCase(SaveDialog1.FileName)) > 0 then Ext := 'xlsx'; if UpperCase(ExtractFileExt(SaveDialog1.FileName)) <> '.' + UpperCase(Ext) then SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext; // 执行导出 try // 设置DBGridEh的样式 Exp.DBGridEh := DBGridEh0; Exp.DBGridEh.TitleFont := DBGridEh0.TitleFont; Exp.DBGridEh.TitleFont.Name := '宋体'; Exp.DBGridEh.TitleFont.Style := [fsBold]; Exp.DBGridEh.TitleFont.Size := 12; Exp.DBGridEh.TitleParams.Color := clSkyBlue; for i := 0 to Exp.DBGridEh.Columns.Count - 1 do begin Exp.DBGridEh.Columns[i].OptimizeWidth; if Exp.DBGridEh.Columns[i].Width > 200 then Exp.DBGridEh.Columns[i].Width := 200; end; if SameText(Ext, 'xlsx') then begin Exp.ExportToFile(SaveDialog1.FileName, True); end else begin Exp.ExportToFile(SaveDialog1.FileName, True); end; finally Exp.Free; end; // ShowMessage('导出成功: ' + SaveDialog1.FileName); // 假设导出操作已经完成 if MessageDlg('导出成功: ' + SaveDialog1.FileName + #13#10'是否要打开文件?', mtInformation, [mbYes, mbNo], 0, mbNo) = mrYes then begin // 用户点击了"是"(打开文件) ShellExecute(0, 'open', PChar(SaveDialog1.FileName), nil, nil, SW_SHOWNORMAL); end; end; finally SaveDialog1.Free; end; end; procedure TForm1.btnExit1Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.cbConnectionsChange(Sender: TObject); begin ConnectToDatabase(cbConnections.ItemIndex); end; end.
最新发布
08-28
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值