query.pas

人事管理系统人事管理系统人事管理系统人事管理系统人事管理系统

unit Query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls, ToolWin, DBCtrls, Mask, Grids,
  DBGrids, Buttons, Menus, DBActns, ActnList;

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    Label10: TLabel;
    DBEdit9: TDBEdit;
    Label11: TLabel;
    DBEdit10: TDBEdit;
    Label12: TLabel;
    DBEdit11: TDBEdit;
    Label13: TLabel;
    DBEdit12: TDBEdit;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    Label16: TLabel;
    DBEdit15: TDBEdit;
    Label17: TLabel;
    DBEdit16: TDBEdit;
    Label18: TLabel;
    DBImage1: TDBImage;
    Label19: TLabel;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    SpeedButton1: TSpeedButton;
    DataSource1: TDataSource;
    MainMenu1: TMainMenu;
    cchaxun1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    BP1: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Email1: TMenuItem;
    QQ1: TMenuItem;
    ICQ1: TMenuItem;
    MSN1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ActionList1: TActionList;
    Action1: TAction;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure BP1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Email1Click(Sender: TObject);
    procedure QQ1Click(Sender: TObject);
    procedure ICQ1Click(Sender: TObject);
    procedure MSN1Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses table,main,report;
{$R *.dfm}

procedure TForm3.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  label21.Caption:=inttostr(datasource1.DataSet.RecNo);
  label23.Caption:=inttostr(datasource1.DataSet.RecordCount);
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  form3.Close;
end;


procedure TForm3.N2Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 姓名='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;
end;
procedure TForm3.N15Click(Sender: TObject);
var
  strsql:string;
begin
  strsql:='select * from txl';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;
end;

procedure TForm3.N3Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 性别='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N4Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 出生日期='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N5Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 所属分组='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N6Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 家庭电话='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N14Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 手机='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N8Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 单位电话='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.BP1Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where BP机='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N9Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 邮编='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N10Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 传真='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N11Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 住址='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.Email1Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where [E-Mail]='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.QQ1Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where QQ='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.ICQ1Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where ICQ='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.MSN1Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where MSN='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;

end;

procedure TForm3.N13Click(Sender: TObject);
var
  str1,strsql:string;
begin
  str1:=edit1.Text;
  strsql:='select * from txl where 主页='''+str1+'''';
  with adoquery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add(strsql);
    open;
  end;
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
  form5.QuickRep1.Preview;
end;

end.