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

📄 unit1.pas

📁 个人电话管理软件
💻 PAS
字号:
🔍 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls,unit2,unit3, ExtCtrls,unit4,
  DBCtrls, Buttons, ComCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioButton3: TRadioButton;
    Button4: TButton;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    StatusBar1: TStatusBar;
    ADOQuery1: TADOQuery;
    Button5: TButton;
    Button6: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button7: TButton;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

  tempclass:string;//用于储存临时的数据实现组合查找
  tempsex:string;


implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.ADOConnection1.Close;
form1.ADOQuery1.Close;
form1.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='+getcurrentdir+'\data\phonebook.mdb;Persist Security Info=True';
form1.ADOConnection1.LoginPrompt:=false;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from phone');
form1.ADOQuery1.Open;
form1.ADOConnection1.Open;
form1.RadioButton3.Checked:=true;
//form1.DBGrid1.Fields[0].DisplayName:='dfasf'
{form1.ADOQuery1.Fields[0].DisplayName:='编号';
form1.ADOQuery1.Fields[1].DisplayName:='姓名';
form1.ADOQuery1.Fields[2].DisplayName:='性别';
form1.ADOQuery1.Fields[3].DisplayName:='手机';
form1.ADOQuery1.Fields[4].DisplayName:='电话';
form1.ADOQuery1.Fields[5].DisplayName:='备注'; }
tempclass:='0';
tempsex:='0';
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if form1.RadioButton1.Checked then
  begin
    form1.ADOQuery1.Close;
    form1.ADOQuery1.SQL.Clear;
    form1.ADOQuery1.SQL.Add('select * from phone where class='+'"'+form1.ComboBox1.Text+'"');
    form1.ADOQuery1.Open;
    form1.ComboBox2.Text:='';
    end;
if form1.RadioButton2.Checked then
    begin
      tempclass:=form1.ComboBox1.Text;
      if tempsex<>'0' then
        begin
          form1.ADOQuery1.Close;
          form1.ADOQuery1.SQL.Clear;
          form1.ADOQuery1.SQL.Add('select * from phone where sex='+'"'+tempsex+'"'+'and'+' class='+'"'+tempclass+'"');
          form1.ADOQuery1.Open;
        end
    end;


end;

procedure TForm1.ComboBox2Select(Sender: TObject);
begin
if form1.RadioButton1.Checked then
  begin
    form1.ADOQuery1.Close;
    form1.ADOQuery1.SQL.Clear;
    form1.ADOQuery1.SQL.Add('select * from phone where sex='+'"'+form1.ComboBox2.Text+'"');
    form1.ADOQuery1.Open;
    form1.ComboBox1.Text:='';
    end;
if form1.RadioButton2.Checked then
     begin
      tempsex:=form1.ComboBox2.Text;
      if tempclass<>'0' then
        begin
          form1.ADOQuery1.Close;
          form1.ADOQuery1.SQL.Clear;
          form1.ADOQuery1.SQL.Add('select * from phone where sex='+'"'+tempsex+'"'+'and'+' class='+'"'+tempclass+'"');
          form1.ADOQuery1.Open;
        end
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
form1.ComboBox1.Enabled:=true;
form1.ComboBox2.Enabled:=true;
form1.RadioButton2.Checked:=true;
form1.ComboBox1.Text:='';
form1.ComboBox2.Text:='';
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
form1.ComboBox1.Enabled:=true;
form1.ComboBox2.Enabled:=true;
form1.RadioButton1.Checked:=true;
form1.ComboBox1.Text:='';
form1.ComboBox2.Text:='';
tempclass:='0';
tempsex:='0';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form3.Show;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
tempclass:='0';
tempsex:='0';
form1.RadioButton3.Checked;
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from phone');
form1.ADOQuery1.Open;
form1.ComboBox1.Text:='';
form1.ComboBox2.Text:='';
form1.ComboBox1.Enabled:=false;
form1.ComboBox2.Enabled:=false;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.ADOConnection1.Close;
form2.Destroy;
form3.Destroy;
form1.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbDelete);
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbfirst);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbprior);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nbnext);
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
form1.DBNavigator1.BtnClick(nblast);
end;

procedure TForm1.Button5Click(Sender: TObject);
var
form4:tform4;
begin
form4:=tform4.create(self);
form4.show;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
a,b,c:boolean;
begin
a:=form1.Edit1.Text<>'';
b:=form1.Edit2.Text<>'';
c:=form1.Edit3.Text<>'';
if a  then
  begin
    if b then
      begin
        if c then //abc
          begin
            form1.ADOQuery1.Close;
            form1.ADOQuery1.SQL.Clear;
            form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"'+' or cellphone like '+'"%'+form1.Edit2.Text+'%"'+' or phone like '+'"%'+form1.Edit3.Text+'%"');
            form1.ADOQuery1.Open;
            end
        else
          begin //ab
            form1.ADOQuery1.Close;
            form1.ADOQuery1.SQL.Clear;
            //form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
            form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"'+' or cellphone like '+'"%'+form1.Edit2.Text+'%"');
            form1.ADOQuery1.Open;
           end
       end
    else if c then   //ac
               begin
               form1.ADOQuery1.Close;
              form1.ADOQuery1.SQL.Clear;
              //form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
              form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"'+' or phone like '+'"%'+form1.Edit3.Text+'%"');
              form1.ADOQuery1.Open;
               end
         else
              begin //a
               form1.ADOQuery1.Close;
                form1.ADOQuery1.SQL.Clear;
               //form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
               form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
               form1.ADOQuery1.Open;
              end
    end
else if b then
      begin
        if c then  //bc
          begin
              form1.ADOQuery1.Close;
              form1.ADOQuery1.SQL.Clear;
              //form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
              form1.ADOQuery1.SQL.Add('select * from phone where cellphone like '+'"%'+form1.Edit2.Text+'%"'+' or  phone like '+'"%'+form1.Edit3.Text+'%"');
              form1.ADOQuery1.Open;
          end
         else
            begin //b
              form1.ADOQuery1.Close;
              form1.ADOQuery1.SQL.Clear;
              //form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
              form1.ADOQuery1.SQL.Add('select * from phone where cellphone like '+'"%'+form1.Edit2.Text+'%"');
              form1.ADOQuery1.Open;
            end
      end
      else
          begin //c
            if c then
              begin
              form1.ADOQuery1.Close;
              form1.ADOQuery1.SQL.Clear;
              //form1.ADOQuery1.SQL.Add('select * from phone where name like '+'"%'+form1.Edit1.Text+'%"');
              form1.ADOQuery1.SQL.Add('select * from phone where phone like '+'"%'+form1.Edit3.Text+'%"');
              form1.ADOQuery1.Open;
              end
           end
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
form1.Edit1.Clear;
form1.Edit2.clear;
form1.Edit3.Clear;
end;

end.

⌨️ 快捷键说明

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