unit6.~pas

一个完整的户况管理系统一个完整的户况管理系统一个完整的户况管理系统

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, jpeg, ExtCtrls, GridsEh, DBGridEh,
  StdCtrls, RzGroupBar, XPButton, PrnDbgeh, PrViewEh;

type
  TForm6 = class(TForm)
    grp2: TGroupBox;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    dbgrdh1: TDBGridEh;
    il1: TImageList;
    tlb1: TToolBar;
    btn1: TToolButton;
    btn6: TToolButton;
    btn5: TToolButton;
    btn10: TToolButton;
    btn9: TToolButton;
    btn2: TToolButton;
    btn12: TToolButton;
    btn8: TToolButton;
    tlb2: TToolBar;
    btn4: TToolButton;
    btn7: TToolButton;
    btn11: TToolButton;
    btn13: TToolButton;
    btn14: TToolButton;
    btn15: TToolButton;
    btn16: TToolButton;
    btn17: TXPButton;
    btn18: TXPButton;
    btn19: TXPButton;
    btn20: TXPButton;
    btn21: TXPButton;
    btn22: TXPButton;
    btn23: TXPButton;
    btn24: TXPButton;
    btn25: TXPButton;
    btn28: TXPButton;
    btn29: TXPButton;
    btn30: TXPButton;
    btn31: TXPButton;
    btn32: TXPButton;
    btn34: TXPButton;
    btn35: TXPButton;
    btn26: TXPButton;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure btn12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn30Click(Sender: TObject);
    procedure btn29Click(Sender: TObject);
    procedure btn28Click(Sender: TObject);
    procedure btn31Click(Sender: TObject);
    procedure btn32Click(Sender: TObject);
    procedure btn33Click(Sender: TObject);
    procedure btn26Click(Sender: TObject);
    procedure btn23Click(Sender: TObject);
    procedure btn17Click(Sender: TObject);
    procedure btn24Click(Sender: TObject);
    procedure btn25Click(Sender: TObject);
    procedure btn22Click(Sender: TObject);
    procedure btn21Click(Sender: TObject);
    procedure btn20Click(Sender: TObject);
    procedure btn19Click(Sender: TObject);
    procedure btn18Click(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    function   Get_Db_sql_Str(FileName:String):String;
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses hkgl, Unit1, unit2, Unit3, Unit4, Unit5, Unit7, Unitczgl, Unitczgl1,
  Unitfjxx, Unitjwh, Unitlcsz, Unitlxfs, Unittpld, Unitxqsz, Unitzhxx,
  Unit8, Unithkxx, Unit9;

{$R *.dfm}

function tform6.Get_Db_sql_Str(FileName:String):String;
begin
with dm.qry5 do
                 begin

                sql.Clear;
                sql.Add(FileName );
                  dm.qry5.Active:=True;

dbgrdh1.Columns[0].Visible:=False;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
                  //dbgrdh1.Columns[0].HideDuplicates:=True;
                  dbgrdh1.Columns[1].Title.Caption:='房间号码';
                  dbgrdh1.Columns[1].HideDuplicates:=True;
                  dbgrdh1.Columns[2].Title.Caption:='单元号';
                  dbgrdh1.Columns[3].Title.Caption:='姓名';
                  dbgrdh1.Columns[4].Title.Caption:='年龄';
                  dbgrdh1.Columns[5].Title.Caption:='与户主关系';
dbgrdh1.Columns[6].Title.Caption:='性别';
dbgrdh1.Columns[7].Title.Caption:='身份证号码';
dbgrdh1.Columns[8].Title.Caption:='婚姻状况';
dbgrdh1.Columns[9].Title.Caption:='结婚日期';
dbgrdh1.Columns[10].Title.Caption:='户籍地址';
dbgrdh1.Columns[11].Title.Caption:='目前住址';
dbgrdh1.Columns[12].Title.Caption:='联系电话';
dbgrdh1.Columns[13].Title.Caption:='户口类型';
dbgrdh1.Columns[14].Title.Caption:='所属楼栋';
dbgrdh1.Columns[15].Title.Caption:='所属小区';
dbgrdh1.Columns[16].Title.Caption:='所属居委会';
dbgrdh1.Columns[17].Title.Caption:='所属街道';
dbgrdh1.Columns[18].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=90;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=30;
dbgrdh1.Columns[5].Width:=70;
dbgrdh1.Columns[6].Width:=30;
dbgrdh1.Columns[7].Width:=90;
dbgrdh1.Columns[8].Width:=80;
dbgrdh1.Columns[9].Width:=70;
dbgrdh1.Columns[10].Width:=123;
dbgrdh1.Columns[11].Width:=160;
dbgrdh1.Columns[12].Width:=90;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=50;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=80;
dbgrdh1.Columns[17].Width:=70;
dbgrdh1.Columns[18].Width:=130;
      end
end;
procedure TForm6.btn12Click(Sender: TObject);
begin
close;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
   with dm.qry5 do
                 begin

                sql.Clear;
                sql.Add('select *  from zhxxb '  );
                  dm.qry5.Active:=True;

dbgrdh1.Columns[0].Visible:=False;
dbgrdh1.Columns[0].Title.Caption:='户况编码';
                  //dbgrdh1.Columns[0].HideDuplicates:=True;
                  dbgrdh1.Columns[1].Title.Caption:='房间号码';
                  dbgrdh1.Columns[1].HideDuplicates:=True;
                  dbgrdh1.Columns[2].Title.Caption:='单元号';
                  dbgrdh1.Columns[3].Title.Caption:='姓名';
                  dbgrdh1.Columns[4].Title.Caption:='年龄';
                  dbgrdh1.Columns[5].Title.Caption:='与户主关系';
dbgrdh1.Columns[6].Title.Caption:='性别';
dbgrdh1.Columns[7].Title.Caption:='身份证号码';
dbgrdh1.Columns[8].Title.Caption:='婚姻状况';
dbgrdh1.Columns[9].Title.Caption:='结婚日期';
dbgrdh1.Columns[10].Title.Caption:='户籍地址';
dbgrdh1.Columns[11].Title.Caption:='目前住址';
dbgrdh1.Columns[12].Title.Caption:='联系电话';
dbgrdh1.Columns[13].Title.Caption:='户口类型';
dbgrdh1.Columns[14].Title.Caption:='所属楼栋';
dbgrdh1.Columns[15].Title.Caption:='所属小区';
dbgrdh1.Columns[16].Title.Caption:='所属居委会';
dbgrdh1.Columns[17].Title.Caption:='所属街道';
dbgrdh1.Columns[18].Title.Caption:='备注';
dbgrdh1.Columns[0].Width:=90;
dbgrdh1.Columns[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=80;
dbgrdh1.Columns[4].Width:=30;
dbgrdh1.Columns[5].Width:=70;
dbgrdh1.Columns[6].Width:=30;
dbgrdh1.Columns[7].Width:=90;
dbgrdh1.Columns[8].Width:=80;
dbgrdh1.Columns[9].Width:=70;
dbgrdh1.Columns[10].Width:=123;
dbgrdh1.Columns[11].Width:=160;
dbgrdh1.Columns[12].Width:=90;
dbgrdh1.Columns[13].Width:=50;
dbgrdh1.Columns[14].Width:=50;
dbgrdh1.Columns[15].Width:=80;
dbgrdh1.Columns[16].Width:=80;
dbgrdh1.Columns[17].Width:=70;
dbgrdh1.Columns[18].Width:=130;

      end
end;

procedure TForm6.btn30Click(Sender: TObject);
begin
application.CreateForm(TFormlcsz,  Formlcsz);
  Formlcsz.ShowModal;
  Formlcsz.Free;
end;

procedure TForm6.btn29Click(Sender: TObject);
begin
application.CreateForm(TFormxqsz,  Formxqsz);
  Formxqsz.ShowModal;
  Formxqsz.Free;
end;

procedure TForm6.btn28Click(Sender: TObject);
begin
application.CreateForm(TFormjwh,  Formjwh);
  Formjwh.ShowModal;
  Formjwh.Free;
end;

procedure TForm6.btn31Click(Sender: TObject);
begin
 application.CreateForm(TFormfjxx,  Formfjxx);
  Formfjxx.ShowModal;
  Formfjxx.Free;
end;

procedure TForm6.btn32Click(Sender: TObject);
begin
application.CreateForm(TFormzhxx,  Formzhxx);
  Formzhxx.ShowModal;
  Formzhxx.Free;
end;

procedure TForm6.btn33Click(Sender: TObject);
begin
//application.CreateForm(TFormbf,Formbf);
//Formbf.ShowModal;
//Formbf.Free;
end;

procedure TForm6.btn26Click(Sender: TObject);
begin
Close;
end;

procedure TForm6.btn23Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where hyzk=''未婚''';
 Get_Db_sql_Str(sql);
end;

procedure TForm6.btn17Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn24Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where hyzk=''已婚''';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn25Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where hyzk=''离异''';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn22Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where nl>100';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn21Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where nl<4';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn20Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where nl>60';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn19Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where nl between 16 and 60';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn18Click(Sender: TObject);
var
  sql:string;
begin
 sql:='select * from zhxxb where nl<16';
 Get_Db_sql_Str(sql);

end;

procedure TForm6.btn14Click(Sender: TObject);
begin
 PrintDBGridEh1.Preview;
end;

procedure TForm6.btn4Click(Sender: TObject);
begin
  application.CreateForm(TFormzhxx,  Formzhxx);
  Formzhxx.ShowModal;
  Formzhxx.Free;

end;

procedure TForm6.btn11Click(Sender: TObject);
begin
  application.CreateForm(TForm7,  Form7);
  Form7.ShowModal;
  Form7.Free;


end;

end.