unitlxfs.pas

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

unit Unitlxfs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPButton, Grids, DBGrids, StdCtrls;

type
  TFormlxfs = class(TForm)
    grp1: TGroupBox;
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    edt3: TEdit;
    dbgrdh1: TDBGrid;
    btn1: TXPButton;
    btn2: TXPButton;
    procedure FormCreate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formlxfs: TFormlxfs;

implementation

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

{$R *.dfm}

procedure TFormlxfs.FormCreate(Sender: TObject);
begin
edt2.Enabled:=False;
edt3.Enabled:=False;
with dm.qry4 do
                 begin
                sql.Clear;
                sql.Add('select zhxm,sex,hjdz,lxdh,ssxq,ssjwh,ssjd from zhxxb  '  );
                  Open;

                  dbgrdh1.Columns[0].Title.Caption:='姓名';
                  dbgrdh1.Columns[1].Title.Caption:='性别';
                  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[0].Width:=90;
dbgrdh1.Columns[1].Width:=40;
dbgrdh1.Columns[2].Width:=130;
dbgrdh1.Columns[3].Width:=110;
dbgrdh1.Columns[4].Width:=100;
dbgrdh1.Columns[5].Width:=100;
dbgrdh1.Columns[6].Width:=100;
end;
end;

procedure TFormlxfs.btn2Click(Sender: TObject);
begin
close;
end;

procedure TFormlxfs.btn1Click(Sender: TObject);
begin
with dm.qry4 do
                 begin
                sql.Clear;
                sql.Add('select zhxm,sex,hjdz,lxdh,ssxq,ssjwh,ssjd from zhxxb where zhxm='''+edt1.Text+'''  '  );
                  Open;
                  if  dm.qry4.Eof then
                  begin
                   application.MessageBox('没有查到您所要的信息!','提示',64);


                sql.Clear;
                sql.Add('select zhxm,sex,hjdz,lxdh,ssxq,ssjwh,ssjd from zhxxb  '  );
                  Open;

                  dbgrdh1.Columns[0].Title.Caption:='姓名';
                  dbgrdh1.Columns[1].Title.Caption:='性别';
                  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[0].Width:=90;
dbgrdh1.Columns[1].Width:=40;
dbgrdh1.Columns[2].Width:=130;
dbgrdh1.Columns[3].Width:=110;
dbgrdh1.Columns[4].Width:=100;
dbgrdh1.Columns[5].Width:=100;
dbgrdh1.Columns[6].Width:=100;
                  end
                  else
                  begin
                  dbgrdh1.Columns[0].Title.Caption:='姓名';
                  dbgrdh1.Columns[1].Title.Caption:='性别';
                  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[0].Width:=90;
dbgrdh1.Columns[1].Width:=40;
dbgrdh1.Columns[2].Width:=130;
dbgrdh1.Columns[3].Width:=110;
dbgrdh1.Columns[4].Width:=100;
dbgrdh1.Columns[5].Width:=100;
dbgrdh1.Columns[6].Width:=100;
  end
end;
end;


end.