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

Add "case sensitive" checkbox to "Find text on server" dialog. Fixes issue #2199.

Browse Source
This commit is contained in:
Ansgar Becker
2010-10-23 07:07:55 +00:00
parent c3d14f914a
commit be3e393534
3 changed files with 30 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
source/tabletools.pas
View File

@ -65,6 +65,7 @@ type
chkBulkTableEditCharset: TCheckBox;
comboBulkTableEditCharset: TComboBox;
btnSeeResults: TButton;
chkCaseSensitive: TCheckBox;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -174,6 +175,7 @@ begin
for i:=Low(DatatypeCategories) to High(DatatypeCategories) do
comboDatatypes.Items.Add(DatatypeCategories[i].Name);
comboDatatypes.ItemIndex := GetRegValue(REGNAME_TOOLSDATATYPE, 0);
chkCaseSensitive.Checked := GetRegValue(REGNAME_TOOLSCASESENSITIVE, chkCaseSensitive.Checked);
// SQL export tab
chkExportDatabasesCreate.Checked := GetRegValue(REGNAME_EXP_CREATEDB, chkExportDatabasesCreate.Checked);
@ -213,6 +215,7 @@ begin
MainReg.WriteString( REGNAME_TOOLSFINDTEXT, memoFindText.Text);
MainReg.WriteInteger( REGNAME_TOOLSDATATYPE, comboDatatypes.ItemIndex);
MainReg.WriteBool(REGNAME_TOOLSCASESENSITIVE, chkCaseSensitive.Checked);
MainReg.WriteBool(REGNAME_EXP_CREATEDB, chkExportDatabasesCreate.Checked);
MainReg.WriteBool(REGNAME_EXP_DROPDB, chkExportDatabasesDrop.Checked);
@ -335,7 +338,7 @@ begin
btnExecute.Enabled := SomeChecked and (memoFindText.Text <> '');
// Enable "See results" button if there were results
btnSeeResults.Enabled := False;
for i:=0 to FResults.Count-1 do begin
if Assigned(FResults) then for i:=0 to FResults.Count-1 do begin
if MakeInt(FResults[i][2]) > 0 then begin
btnSeeResults.Enabled := True;
break;
@ -563,8 +566,12 @@ begin
if Columns.Count > 0 then begin
SQL := '';
for Col in Columns do begin
if (comboDatatypes.ItemIndex = 0) or (Integer(Col.DataType.Category) = comboDatatypes.ItemIndex-1) then
SQL := SQL + Mainform.mask(Col.Name) + ' LIKE ' + esc('%'+memoFindText.Text+'%') + ' OR ';
if (comboDatatypes.ItemIndex = 0) or (Integer(Col.DataType.Category) = comboDatatypes.ItemIndex-1) then begin
if chkCaseSensitive.Checked then
SQL := SQL + Mainform.mask(Col.Name) + ' LIKE BINARY ' + esc('%'+memoFindText.Text+'%') + ' OR '
else
SQL := SQL + 'LOWER(CONVERT('+Mainform.mask(Col.Name)+' USING '+DBObj.Connection.CharacterSet+')) LIKE ' + esc('%'+LowerCase(memoFindText.Text)+'%') + ' OR '
end;
end;
if SQL <> '' then begin
Delete(SQL, Length(SQL)-3, 3);