tfindmess.~pas

本简单通信信息管理软件是个人为方便管理个人通信信息而制作的一个小数据库程序,特传上来和大家分享.有那个地方不足的地方希望各方朋友提出建议一同学习研究！ 制作:delphi7+access 作者

unit TFindmess;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFindMess1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ComboBox2: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FindMess1: TFindMess1;

implementation
uses TModule, ADODB, DB;

{$R *.dfm}

procedure TFindMess1.Button1Click(Sender: TObject);
var
n:Real;
str,str1,str2,str3,str4:string;
begin
with DataModule1.ADOQuery2 do
begin
str3:='''';

    str1:=ComboBox1.Text;
    if str1='姓名' then
    str1:='Name'
    else
    if str1='性别' then
    str1:='Sex'
    else
    if str1='工作单位' then
    str1:='UnitWork'
    else
    if str1='职务' then
    str1:='Duty'
    else
    if str1='工作地址' then
    str1:='Address'
    else
    if str1='区号' then
    str1:='DisNum'
    else
    if str1='手机号码' then
    str1:='HandNum'
    else
    if str1='电话号码' then
    str1:='TelNum'
    else
    if str1='传真号码' then
    str1:='Facsimile'
    else
    if str1='QQ号码' then
    str1:='QQNum'
    else
    if str1='MSN号码' then
    str1:='MSNNum'
    else
    if str1='E-mail' then
    str1:='E-mail'
    else
    if str1='网址' then
    str1:='WebAddress'
    else
    if str1='备注' then
    str1:='Note';

    str2:=ComboBox2.Text;
    if str2='模糊' then
       str2:=' like'+str3+'%'+Edit1.Text+'%'+str3
    else
    str2:='='+str3+Edit1.Text+str3;
str:='select * from SimInfor Where '+str1+str2;
SQL.Clear;
SQL.Add(str);
Open;
edit1.SetFocus;
Edit1.SelectAll;

end;

end;

end.