unit3.pas

公民户籍管理系统,delphi课程设计,连接数据库的时候需要改连接路径

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ComCtrls;

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    RadioButton2: TRadioButton;
    Edit2: TEdit;
    RadioButton3: TRadioButton;
    Edit3: TEdit;
    RadioButton4: TRadioButton;
    Button1: TButton;
    Edit4: TEdit;
    RadioButton5: TRadioButton;
    Edit5: TEdit;
    RadioButton6: TRadioButton;
    Edit6: TEdit;
    RadioButton7: TRadioButton;
    Edit7: TEdit;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    CheckBox1: TCheckBox;
    Edit8: TEdit;
    CheckBox2: TCheckBox;
    Edit9: TEdit;
    CheckBox3: TCheckBox;
    Edit10: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
 uses unit1 ;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
adoquery1.Active:=false;
adoquery1.SQL.Clear;
if radiobutton1.Checked then
adoquery1.SQL.Add('select * from 公民户籍表2 where 姓名='+''''+edit1.Text+'''')
else if radiobutton2.Checked  then
adoquery1.SQL.Add('select * from 公民户籍表2 where 性别='+''''+edit2.Text+'''')
else if radiobutton3.Checked  then
adoquery1.SQL.Add('select * from 公民户籍表2 where 学历='+''''+edit3.Text+'''')
else if radiobutton4.Checked  then
adoquery1.SQL.Add('select * from 公民户籍表2 where 出生日期='+''+edit4.Text+'')
else if radiobutton5.Checked  then
adoquery1.SQL.Add('select * from 公民户籍表2 where 家庭住址='+''''+edit5.Text+'''')
 else if radiobutton6.Checked  then
adoquery1.SQL.Add('select * from 公民户籍表2 where 婚姻情况='+''''+edit6.Text+'''')
else if radiobutton7.Checked  then
adoquery1.SQL.Add('select * from 公民户籍表2 where 身份证号码='+''+edit7.Text+'')

 else showmessage('查无此人');
adoquery1.Active:=true;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form1.Close;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
if checkbox1.Checked   then
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select *  from 公民户籍表2   where 姓名 like  '+''''+'%'+edit8.Text+'%'+'''' );
adoquery2.Open;
end;
if checkbox2.Checked   then
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select *  from 公民户籍表2   where 性别 ='+''''+edit9.Text+'''');
adoquery2.Open;
end;
if checkbox3.Checked   then
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select *  from 公民户籍表2   where  出生日期 like '+''''+'%'+edit10.Text+'%'+'''');
adoquery2.Open;
end;
if (checkbox1.Checked )and (checkbox2.Checked) then
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select *  from 公民户籍表2   where 姓名 like  '+''''+'%'+edit8.Text+'%'+'''' +' and '+' 性别 ='+''''+edit9.Text+'''');
adoquery2.Open;
end;
if (checkbox1.Checked )and (checkbox3.Checked) then
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
 adoquery2.SQL.Add('select *  from 公民户籍表2   where 姓名 like '+''''+'%'+edit8.Text+'%'+'''' +' and '+' 出生日期 like '+''''+'%'+edit10.Text+'%'+'''');
 adoquery2.Open;
end;
 if (checkbox2.Checked )and (checkbox3.Checked) then
begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
 adoquery2.SQL.Add('select *  from 公民户籍表2   where 性别 ='+''''+edit9.Text+'''' +' and '+' 出生日期 like '+''''+'%'+edit10.Text+'%'+'''');
 adoquery2.Open;
end;
 if (checkbox1.Checked )and (checkbox2.Checked) and (checkbox3.Checked) then
 begin
adoquery2.Active:=false;
adoquery2.SQL.Clear;
 adoquery2.SQL.Add('select *  from 公民户籍表2   where 姓名  like  '+''''+'%'+edit8.Text+'%'+'''' +' and '+' 性别 = '+''''+edit9.Text+''''+' and '+' 出生日期 like '+''''+'%'+edit10.Text+'%'+'''');
 adoquery2.Active:=true;
end;
end;
end.




procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.Close;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
adoquery2.Open;
end;

end.