unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioButton4: TRadioButton;
    Edit4: TEdit;
    RadioButton5: TRadioButton;
    Edit5: TEdit;
    RadioButton6: TRadioButton;
    Edit6: TEdit;
    RadioButton7: TRadioButton;
    Edit7: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Edit8: TEdit;
    Edit9: TEdit;
    Button2: TButton;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    TabSheet3: TTabSheet;
    ADOConnection3: TADOConnection;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    RadioButton8: TRadioButton;
    Edit10: TEdit;
    Label9: TLabel;
    Button13: TButton;
    RadioButton9: TRadioButton;
    Edit11: TEdit;
    Button14: TButton;
    RadioButton10: TRadioButton;
    Edit12: TEdit;
    Button15: TButton;
    RadioButton11: TRadioButton;
    Edit13: TEdit;
    Button16: TButton;
    RadioButton12: TRadioButton;
    Edit14: TEdit;
    Button17: TButton;
    RadioButton13: TRadioButton;
    Edit15: TEdit;
    Button18: TButton;
    GroupBox3: TGroupBox;
    Edit16: TEdit;
    Edit17: TEdit;
    Button19: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Edit18: TEdit;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Edit19: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses unit1;

{$R *.dfm}

procedure TForm2.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 TForm2.Button3Click(Sender: TObject);
begin
adoquery2.First;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
adoquery2.Prior;
if adoquery2.Bof then
showmessage('已經是第一條記錄');

end;

procedure TForm2.Button5Click(Sender: TObject);
begin
adoquery2.Next ;
if adoquery2.Eof then
showmessage('已經是最后一條記錄');
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
adoquery2.Last;
end;

procedure TForm2.Button7Click(Sender: TObject);
begin
adoquery2.Edit;
button8.Enabled:=false;
button9.Enabled:=false;
button10.Enabled:=true;
button11.Enabled:=true;

end;

procedure TForm2.Button8Click(Sender: TObject);
begin
adoquery2.Append;
button7.Enabled:=false;
button9.Enabled:=false;
button10.Enabled:=true;
button11.Enabled:=true;
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
adoquery2.Delete;
button7.Enabled:=false;
button8.Enabled:=false;
button10.Enabled:=true;
button11.Enabled:=true;
end;

procedure TForm2.Button10Click(Sender: TObject);
begin
adoquery2.Post;
button7.Enabled:=true;
button8.Enabled:=true;
button9.Enabled:=true;

end;

procedure TForm2.Button11Click(Sender: TObject);
begin
adoquery2.Cancel;
button7.Enabled:=true;
button8.Enabled:=true;
button9.Enabled:=true;

end;

procedure TForm2.Button12Click(Sender: TObject);
begin
close;
end;

procedure TForm2.Button13Click(Sender: TObject);
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
if radiobutton8.Checked then
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where 姓名='+''''+edit10.Text+'''');
adoquery3.Active:=true;
edit10.Clear;
end;

procedure TForm2.Button14Click(Sender: TObject);
begin

adoquery3.Active:=false;
adoquery3.SQL.Clear;
if radiobutton9.Checked then
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where  性別='+''''+edit11.Text+'''');
 adoquery3.Active:=true;
edit11.Clear;
end;

procedure TForm2.Button15Click(Sender: TObject);
begin

adoquery3.Active:=false;
adoquery3.SQL.Clear;
if radiobutton10.Checked then
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where 學歷='+''''+edit12.Text+'''');
adoquery3.Active:=true;
edit12.Clear;
end;

procedure TForm2.Button16Click(Sender: TObject);
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
if radiobutton11.Checked then
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where 家庭住址='+''''+edit13.Text+'''');
adoquery3.Active:=true;
edit13.Clear;
end;

procedure TForm2.Button17Click(Sender: TObject);
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
if radiobutton12.Checked then
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where 婚姻情況='+''''+edit14.Text+'''');
adoquery3.Active:=true;
edit14.Clear;
end;

procedure TForm2.Button18Click(Sender: TObject);
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
if radiobutton13.Checked then
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where 出生日期='+''+edit15.Text+'');
adoquery3.Active:=true;
edit15.Clear;
end;

procedure TForm2.Button19Click(Sender: TObject);
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
if checkbox4.Checked   then
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2  where 姓名 like  '+''''+'%'+edit16.Text+'%'+'''' );
adoquery3.Open;

end;
if checkbox5.Checked   then
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數   from 公民戶籍表2   where 性別 ='+''''+edit17.Text+'''');
adoquery3.Open;
end;
if checkbox6.Checked   then
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數   from 公民戶籍表2   where  出生日期 like '+''''+'%'+edit19.Text+'%'+'''');
adoquery3.Open;
end;
if (checkbox4.Checked )and (checkbox5.Checked) then
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數  from 公民戶籍表2   where 姓名 like  '+''''+'%'+edit16.Text+'%'+'''' +' and '+' 性別 ='+''''+edit17.Text+'''');
adoquery3.Open;
end;
if (checkbox4.Checked )and (checkbox6.Checked) then
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
 adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數   from 公民戶籍表2   where 姓名 like '+''''+'%'+edit16.Text+'%'+'''' +' and '+' 出生日期 like '+''''+'%'+edit19.Text+'%'+'''');
 adoquery3.Open;
end;
 if (checkbox5.Checked )and (checkbox6.Checked) then
begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
 adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數   from 公民戶籍表2   where 性別 ='+''''+edit17.Text+'''' +' and '+' 出生日期 like '+''''+'%'+edit19.Text+'%'+'''');
 adoquery3.Open;
end;
 if (checkbox4.Checked )and (checkbox5.Checked) and (checkbox6.Checked) then
 begin
adoquery3.Active:=false;
adoquery3.SQL.Clear;
 adoquery3.SQL.Add('select count(身份證號碼) as 符合條件的人口總數   from 公民戶籍表2   where 姓名  like  '+''''+'%'+edit16.Text+'%'+'''' +' and '+' 性別 = '+''''+edit17.Text+''''+' and '+' 出生日期 like '+''''+'%'+edit19.Text+'%'+'''');
 adoquery3.Active:=true;
 end;
end;

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

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

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

end.