⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bas_findipdata.pas

📁 这是一个为友人所写的小程序, 实现了分段模糊查询, 网页生成等小功能!
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    SortNameKey := '';
    CNameKey := '';
    ENameKey := '';
    WebsiteKey := '';
    PSKey := '';
    AddressKey := '';
    PhoneKey := '';
    FaxKey := '';
    EmailKey := '';
    Self.GetCon('PhoneNo', Edit3.Text);
    SQL_Str := 'Select * From Bas_IPRecord Where (WebSite<>' + #39 + #39 + ')'
      + Constr
      + ' Order By OrderID';
    DataQuery.Active := False;
    DataQuery.SQL.Clear;
    DataQuery.SQL.Add(SQL_Str);
    DataQuery.Open;
    PhoneKey := Edit6.Text;
    Edit1.Empty;
    Edit2.Empty;
    Edit3.Clear;
    Edit4.Empty;
    Edit5.Clear;
    Edit7.Empty;
    Edit8.Empty;
    Edit9.Empty;
  end;

end;

procedure TBas_FindIPDataForm.Edit8PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
var
  SQL_Str : string;
begin
  if (Edit8.Text <> '') then
  begin
    SortNameKey := '';
    CNameKey := '';
    ENameKey := '';
    WebsiteKey := '';
    PSKey := '';
    AddressKey := '';
    PhoneKey := '';
    FaxKey := '';
    EmailKey := '';
    Self.GetCon('EmailAddress', Edit8.Text);
    SQL_Str := 'Select * From Bas_IPRecord Where (WebSite<>' + #39 + #39 + ')'
      + Constr
      + ' Order By OrderID';
    DataQuery.Active := False;
    DataQuery.SQL.Clear;
    DataQuery.SQL.Add(SQL_Str);
    DataQuery.Open;
    EmailKey := Edit8.Text;
    Edit1.Empty;
    Edit2.Empty;
    Edit3.Clear;
    Edit4.Empty;
    Edit5.Clear;
    Edit6.Clear;
    Edit7.Empty;
    Edit9.Empty;
  end;
end;

procedure TBas_FindIPDataForm.Edit7PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
var
  SQL_Str : string;
begin
  if (Edit7.Text <> '') then
  begin
    SortNameKey := '';
    CNameKey := '';
    ENameKey := '';
    WebsiteKey := '';
    PSKey := '';
    AddressKey := '';
    PhoneKey := '';
    FaxKey := '';
    EmailKey := '';
    Self.GetCon('FaxNo', Edit7.Text);
    SQL_Str := 'Select * From Bas_IPRecord Where (WebSite<>' + #39 + #39 + ')'
      + Constr
      + ' Order By OrderID';
    DataQuery.Active := False;
    DataQuery.SQL.Clear;
    DataQuery.SQL.Add(SQL_Str);
    DataQuery.Open;
    FaxKey := Edit7.Text;
    Edit1.Empty;
    Edit2.Empty;
    Edit3.Clear;
    Edit4.Empty;
    Edit5.Clear;
    Edit6.Clear;
    Edit8.Empty;
    Edit9.Empty;
  end;
end;

procedure TBas_FindIPDataForm.Edit9PropertiesButtonClick(Sender: TObject;
  AButtonIndex: Integer);
var
  SQL_Str : string;
begin
  if (Edit9.Text <> '') then
  begin
    SortNameKey := '';
    CNameKey := '';
    ENameKey := '';
    WebsiteKey := '';
    PSKey := '';
    AddressKey := '';
    PhoneKey := '';
    FaxKey := '';
    EmailKey := '';
    Self.GetCon('Address', Edit9.Text);
    SQL_Str := 'Select * From Bas_IPRecord Where (WebSite<>' + #39 + #39 + ')'
      + Constr
      + ' Order By OrderID';
    DataQuery.Active := False;
    DataQuery.SQL.Clear;
    DataQuery.SQL.Add(SQL_Str);
    DataQuery.Open;
    AddressKey := Edit9.Text;
    Edit1.Empty;
    Edit2.Empty;
    Edit3.Clear;
    Edit4.Empty;
    Edit5.Clear;
    Edit6.Clear;
    Edit7.Empty;
    Edit8.Empty;
  end;
end;

procedure TBas_FindIPDataForm.BuilderWeb(SID: Integer; KeyWord: string);
var
  Str1    : string;
  Str2    : string;
  Str3    : string;
  Str4, Str5: string;
  Point1, Point2: Word;
begin
  DataQuery.First;
  Str1 := '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
    + ' <html xmlns="http://www.w3.org/1999/xhtml">'
    + ' <head>'
    + ' <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />'
    + ' <title>查询结果</title>'
    + '<LINK title="Default" href="DBR.css" type="text/css" rel="stylesheet">'
    + ' </head> <body leftMargin="3" topMargin="3" scroll="auto"'
    + ' MS_POSITIONING="GridLayout">'
    + ' 总共记录数: <font color=red>' + inttostr(DataQuery.RecordCount) + '</font> 条 <br><hr>';
  Str4 := '';
  Memo1.Clear;
  DataQuery.DisableControls;
  while DataQuery.Eof = False do
  begin
    if (SID = 1) then
    begin
      Str3 := DataQuery.fieldbyname('SortName').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('SortName').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('SortName').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + Str4 + '&nbsp; </td>'
          + '<td width="42">排位</td>'
          + ' <td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '</td> </tr> <tr>'
          + ' <td rowspan="2" align="center" valign="middle">公司名称</td>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('ChineseName').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('EnglishName').AsString
          + '&nbsp;</td> </tr>  <tr>'
          + ' <td height="19" align="center" valign="middle">网址</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('WebSite').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="23" align="center" valign="middle">产品服务</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('ServiceAndProduct').AsString
          + '&nbsp;</td> </tr> <tr> '
          + ' <td height="22" align="center" valign="middle">电话</td>'
          + ' <td>' + DataQuery.fieldbyname('PhoneNo').AsString
          + '&nbsp; </td> <td>EMail</td><td>'
          + DataQuery.fieldbyname('EmailAddress').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="22" align="center" valign="middle">传真</td>'
          + ' <td>' + DataQuery.fieldbyname('FaxNo').AsString
          + '&nbsp;</td> <td>地址</td>'
          + ' <td>' + DataQuery.fieldbyname('Address').AsString
          + '&nbsp;</td>  </tr> </table><br>';
      end;
    end;
    if (SID = 2) then
    begin
      Str3 := DataQuery.fieldbyname('ChineseName').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('ChineseName').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('ChineseName').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + DataQuery.fieldbyname('SortName').AsString + '</td>'
          + '&nbsp;<td width="42">排位</td>'
          + ' &nbsp;<td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '</td> </tr> <tr>'
          + ' <td rowspan="2" align="center" valign="middle">公司名称</td>'
          + ' <td height="21" colspan="3">' + Str4
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('EnglishName').AsString
          + '&nbsp;</td> </tr>  <tr>'
          + ' <td height="19" align="center" valign="middle">网址</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('WebSite').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="23" align="center" valign="middle">产品服务</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('ServiceAndProduct').AsString
          + '&nbsp;</td> </tr> <tr> '
          + ' <td height="22" align="center" valign="middle">电话</td>'
          + ' <td>' + DataQuery.fieldbyname('PhoneNo').AsString
          + '&nbsp; </td> <td>EMail</td><td>'
          + DataQuery.fieldbyname('EmailAddress').AsString
          + '&nbsp; </td> </tr> <tr>'
          + ' <td height="22" align="center" valign="middle">传真</td>'
          + ' <td>' + DataQuery.fieldbyname('FaxNo').AsString
          + '&nbsp;</td> <td>地址</td>'
          + ' <td>' + DataQuery.fieldbyname('Address').AsString
          + ' &nbsp;</td>  </tr> </table><br>';
      end;
    end;
    if (SID = 3) then
    begin
      Str3 := DataQuery.fieldbyname('EnglishName').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('EnglishName').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('EnglishName').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + DataQuery.fieldbyname('SortName').AsString + '</td>'
          + '&nbsp;<td width="42">排位</td>'
          + ' <td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td rowspan="2" align="center" valign="middle">公司名称</td>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('ChineseName').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="21" colspan="3">' + Str4
          + '&nbsp;</td> </tr>  <tr>'
          + ' <td height="19" align="center" valign="middle">网址</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('WebSite').AsString
          + ' &nbsp; </td> </tr> <tr>'
          + ' <td height="23" align="center" valign="middle">产品服务</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('ServiceAndProduct').AsString
          + '&nbsp;</td> </tr> <tr> '
          + ' <td height="22" align="center" valign="middle">电话</td>'
          + ' <td>' + DataQuery.fieldbyname('PhoneNo').AsString
          + ' &nbsp;</td> <td>EMail</td><td>'
          + DataQuery.fieldbyname('EmailAddress').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="22" align="center" valign="middle">传真</td>'
          + ' <td>' + DataQuery.fieldbyname('FaxNo').AsString
          + '&nbsp;</td> <td>地址</td>'
          + ' <td>' + DataQuery.fieldbyname('Address').AsString
          + '&nbsp;</td>  </tr> </table><br>';
      end;
    end;
    if (SID = 4) then
    begin
      Str3 := DataQuery.fieldbyname('WebSite').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('WebSite').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('WebSite').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + DataQuery.fieldbyname('SortName').AsString + '&nbsp;</td>'
          + '<td width="42">排位</td>'
          + ' <td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td rowspan="2" align="center" valign="middle">公司名称</td>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('ChineseName').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('EnglishName').AsString
          + '&nbsp;</td> </tr>  <tr>'
          + ' <td height="19" align="center" valign="middle">网址</td>'
          + ' <td colspan="3">' + Str4
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="23" align="center" valign="middle">产品服务</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('ServiceAndProduct').AsString
          + '&nbsp;</td> </tr> <tr> '
          + ' <td height="22" align="center" valign="middle">电话</td>'
          + ' <td>' + DataQuery.fieldbyname('PhoneNo').AsString
          + '&nbsp; </td> <td>EMail</td><td>'
          + DataQuery.fieldbyname('EmailAddress').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="22" align="center" valign="middle">传真</td>'
          + ' <td>' + DataQuery.fieldbyname('FaxNo').AsString
          + '&nbsp;</td> <td>地址</td>'
          + ' <td>' + DataQuery.fieldbyname('Address').AsString
          + '&nbsp;</td>  </tr> </table><br>';
      end;
    end;
    if (SID = 5) then
    begin
      Str3 := DataQuery.fieldbyname('ServiceAndProduct').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('ServiceAndProduct').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('ServiceAndProduct').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + DataQuery.fieldbyname('SortName').AsString + '&nbsp; </td>'
          + '<td width="42">排位</td>'
          + ' <td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td rowspan="2" align="center" valign="middle">公司名称</td>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('ChineseName').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('EnglishName').AsString
          + '&nbsp;</td> </tr>  <tr>'
          + ' <td height="19" align="center" valign="middle">网址</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('WebSite').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="23" align="center" valign="middle">产品服务</td>'
          + ' <td colspan="3">' + Str4
          + '&nbsp;</td> </tr> <tr> '
          + ' <td height="22" align="center" valign="middle">电话</td>'
          + ' <td>' + DataQuery.fieldbyname('PhoneNo').AsString
          + ' &nbsp;</td> <td>EMail</td><td>'
          + DataQuery.fieldbyname('EmailAddress').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="22" align="center" valign="middle">传真</td>'
          + ' <td>' + DataQuery.fieldbyname('FaxNo').AsString
          + '&nbsp;</td> <td>地址</td>'
          + ' <td>' + DataQuery.fieldbyname('Address').AsString
          + '&nbsp;</td>  </tr> </table><br>';
      end;
    end;
    if (SID = 6) then
    begin
      Str3 := DataQuery.fieldbyname('Address').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('Address').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('Address').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + DataQuery.fieldbyname('SortName').AsString + '&nbsp;</td>'
          + '<td width="42">排位</td>'
          + ' <td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td rowspan="2" align="center" valign="middle">公司名称</td>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('ChineseName').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="21" colspan="3">' + DataQuery.fieldbyname('EnglishName').AsString
          + '&nbsp;</td> </tr>  <tr>'
          + ' <td height="19" align="center" valign="middle">网址</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('WebSite').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="23" align="center" valign="middle">产品服务</td>'
          + ' <td colspan="3">' + DataQuery.fieldbyname('ServiceAndProduct').AsString
          + '&nbsp;</td> </tr> <tr> '
          + ' <td height="22" align="center" valign="middle">电话</td>'
          + ' <td>' + DataQuery.fieldbyname('PhoneNo').AsString
          + '&nbsp; </td> <td>EMail</td><td>'
          + DataQuery.fieldbyname('EmailAddress').AsString
          + '&nbsp;</td> </tr> <tr>'
          + ' <td height="22" align="center" valign="middle">传真</td>'
          + ' <td>' + DataQuery.fieldbyname('FaxNo').AsString
          + '&nbsp;</td> <td>地址</td>'
          + ' <td>' + Str4
          + '&nbsp;</td>  </tr> </table><br>';
      end;
    end;
    if (SID = 7) then
    begin
      Str3 := DataQuery.fieldbyname('PhoneNo').AsString;
      Point1 := MyPos(KeyWord, Str3);
      if (Point1 > 0) then
      begin
        Point2 := Point1 + Length(KeyWord);
        Str4 := '<Font Color=Black>' + Copy(DataQuery.fieldbyname('PhoneNo').AsString, 1, Point1 - 1);
        Str4 := Str4 + '</Font><Font Color=Red>' + KeyWord + '</font><Font Color=Black>';
        Str4 := Str4 + Copy(DataQuery.fieldbyname('PhoneNo').AsString, Point2, Length(Str3) - 1) + '</Font>';
        Str2 := Str2 + '<table width="600" border="1" border="1" cellspacing="0" cellpadding="1" bordercolordark="#EFEFEF" bordercolorlight="#111111">'
          + ' <tr>'
          + ' <td width="61" height="22" align="center" valign="middle">行业名称</td>'
          + '<td width="226">' + DataQuery.fieldbyname('SortName').AsString + '&nbsp;</td>'
          + '<td width="42">排位</td>'
          + ' <td width="243">' + DataQuery.fieldbyname('OrderID').AsString
          + '&nbsp;</td> </tr> <tr>'
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -