第26问:information_schema.columns 表上做查询慢,怎么办?

本文针对一个查找无主键表的SQL在MySQL5.7中执行缓慢的问题进行了分析。通过查看执行计划和MySQL改写后的SQL,发现优化器误判导致性能下降。通过增加hint指导MySQL优化,成功将执行时间从16.80s减少到0.67s。

问题

我们有一个 SQL,用于找到没有主键 / 唯一键的表,但是在 MySQL 5.7 上运行特别慢,怎么办?

实验

我们搭建一个 MySQL 5.7 的环境,此处省略搭建步骤。

写个简单的脚本,制造一批带主键和不带主键的表:

执行一下脚本:

现在执行以下 SQL 看看效果:



执行了 16.80s,感觉是非常慢了。

现在用一下 DBA 三板斧,看看执行计划:

感觉有点惨,由于 information_schema.columns 是元数据表,没有必要的统计信息。

那我们来 show warnings 看看 MySQL 改写后的 SQL:

我们格式化一下 SQL:

可以看到 MySQL 将

select from A where A.x not in (select x from B) //非关联子查询

转换成了

select from A where not exists (select 1 from B where B.x = a.x) //关联子查询

如果我们自己是 MySQL,在执行非关联子查询时,可以使用很简单的策略:

select from A where A.x not in (select x from B where ...) //非关联子查询:
1. 扫描 B 表中的所有记录,找到满足条件的记录,存放在临时表 C 中,建好索引
2. 扫描 A 表中的记录,与临时表 C 中的记录进行比对,直接在索引里比对,

而关联子查询就需要循环迭代:

select from A where not exists (select 1 from B where B.x = a.x and ...) //关联子查询
扫描 A 表的每一条记录 rA:
     扫描 B 表,找到其中的第一条满足 rA 条件的记录。

显然,关联子查询的扫描成本会高于非关联子查询。

我们希望 MySQL 能先"缓存"子查询的结果(缓存这一步叫物化,MATERIALIZATION),但MySQL 认为不缓存更快,我们就需要给予 MySQL 一定指导。



可以看到执行时间变成了 0.67s。

整理

我们诊断的关键点如下:

  1. 对于 information_schema 中的元数据表,执行计划不能提供有效信息。
  2. 通过查看 MySQL 改写后的 SQL,我们猜测了优化器发生了误判。
  3. 我们增加了 hint,指导 MySQL 正确进行优化判断。

但目前我们的实验仅限于猜测,猜中了万事大吉,猜不中就无法做出好的诊断。

下一期,我们将试着用 optimizer trace 功能,对这次优化器的误判进行分析。


关于 MySQL 的技术内容,你们还有什么想知道的吗?赶紧留言告诉小编吧!

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、付费专栏及课程。

余额充值