unitzhxx.~pas

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

unit Unitzhxx;

interface

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

type
  TFormzhxx = class(TForm)
    grp1: TGroupBox;
    lbl1: TLabel;
    edt1: TEdit;
    lbl3: TLabel;
    cbb1: TComboBox;
    lbl4: TLabel;
    cbb2: TComboBox;
    lbl5: TLabel;
    cbb3: TComboBox;
    lbl6: TLabel;
    grp2: TGroupBox;
    lbl2: TLabel;
    lbl7: TLabel;
    edt3: TEdit;
    lbl8: TLabel;
    cbb5: TComboBox;
    lbl9: TLabel;
    edt4: TEdit;
    lbl10: TLabel;
    edt5: TEdit;
    lbl11: TLabel;
    edt6: TEdit;
    lbl12: TLabel;
    edt7: TEdit;
    lbl13: TLabel;
    edt8: TEdit;
    lbl14: TLabel;
    cbb6: TComboBox;
    lbl15: TLabel;
    edt9: TEdit;
    lbl16: TLabel;
    edt10: TEdit;
    btn1: TXPButton;
    btn2: TXPButton;
    btn4: TXPButton;
    btn5: TXPButton;
    btn6: TXPButton;
    grp3: TGroupBox;
    lbl17: TLabel;
    edt12: TEdit;
    cbb4: TComboBox;
    cbb7: TComboBox;
    grp4: TGroupBox;
    chk1: TCheckBox;
    dbgrdh1: TDBGridEh;
    lbl18: TLabel;
    edt2: TEdit;
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cbb1Change(Sender: TObject);
    procedure cbb2Change(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    
    procedure cbb3Change(Sender: TObject);
    procedure cbb4Change(Sender: TObject);
    procedure cbb7Change(Sender: TObject);
    
    procedure chk1Click(Sender: TObject);
    procedure dbgrdh1CellClick(Column: TColumnEh);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formzhxx: TFormzhxx;
  Ssjd:string;
   xm:string;
implementation

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

{$R *.dfm}

procedure TFormzhxx.btn5Click(Sender: TObject);
begin
  edt1.Enabled:=True;
  btn1.Enabled:=True;
  chk1.Enabled:=True;
 btn2.Enabled:=False;
 btn4.Enabled:=False;
 btn5.Enabled:=False;
end;

procedure TFormzhxx.btn6Click(Sender: TObject);
begin
close;
end;

procedure TFormzhxx.btn4Click(Sender: TObject);
begin
 if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.qry4.Delete;
 //dm.qry2.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure TFormzhxx.FormCreate(Sender: TObject);
var

  Ini_FileName:String;
begin
btn2.Enabled:=False;
btn4.Enabled:=False;
btn5.Enabled:=False;
cbb6.Items.Add('A');
  cbb6.Items.Add('A1');
  cbb6.Items.Add('B');
  cbb6.Items.Add('C');
  cbb5.Items.Add('男');
  cbb5.Items.Add('女');
 with dm.qry4 do
                 begin

                sql.Clear;
                sql.Add('select *  from jwhxx '  );
                  dm.qry4.Active:=True;
                  dm.qry4.First;
                  while not dm.qry4.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb1.Items.Add(Trim(dm.qry4.FieldByName('jwhmc').AsString));
                   cbb1.Text:=Trim(dm.qry4.FieldByName('jwhmc').AsString);
                  dm.qry4.Next;
                  end;
                  end ;
 with dm.qry4 do
                 begin

                sql.Clear;
                sql.Add('select *  from xqxx where ssjwh='''+cbb1.Text+''' '  );
                  dm.qry4.Active:=True;
                  dm.qry4.First;
                  while not dm.qry4.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb2.Items.Add(Trim(dm.qry4.FieldByName('xqmc').AsString));
                   cbb2.Text:=Trim(dm.qry4.FieldByName('xqmc').AsString);
                  dm.qry4.Next;
                  end;
                  end ;
with dm.qry4 do
                 begin

                sql.Clear;
                sql.Add('select *  from lcxx where ssjwh='''+cbb1.Text+''' and ssxq='''+cbb2.Text+''' '  );
                  dm.qry4.Active:=True;
                  dm.qry4.First;
                  while not dm.qry4.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb3.Items.Add(Trim(dm.qry4.FieldByName('ldhm').AsString));
                  dm.qry4.Next;
                  end;
                  end ;
Ini_FileName:=ExtractFilePath(application.ExeName)+'hkgl.ini';
   with   TInifile.Create(Ini_FileName)   do
          begin
              try
                  Ssjd:=ReadString('sxsd','sjd','');
              finally
                  Free;
              end
          end;
with dm.qry4 do
                 begin
                sql.Clear;
                sql.Add('select *  from zhxxb order by zhbm  '  );
                  dm.qry4.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Title.Caption:='户况编码';
                  dbgrdh1.Columns[0].HideDuplicates:=True;
                  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[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;

procedure TFormzhxx.cbb1Change(Sender: TObject);
begin
 with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from xqxx where ssjwh='''+cbb1.Text+''' '  );
                  dm.qry2.Active:=True;
                  dm.qry2.First;
                  cbb2.Clear;
                  while not dm.qry2.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb2.Items.Add(Trim(dm.qry2.FieldByName('xqmc').AsString));
                   cbb2.Text:=Trim(dm.qry2.FieldByName('xqmc').AsString);
                  dm.qry2.Next;
                  end;
                  end ;
end;

procedure TFormzhxx.cbb2Change(Sender: TObject);
begin
  with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from lcxx where ssjwh='''+cbb1.Text+''' and ssxq='''+cbb2.Text+''' '  );
                  dm.qry2.Active:=True;
                  dm.qry2.First;
                  cbb3.Clear;
                  while not dm.qry2.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb3.Items.Add(Trim(dm.qry2.FieldByName('ldhm').AsString));
                  dm.qry2.Next;
                  end;
                  end ;
end;

procedure TFormzhxx.btn1Click(Sender: TObject);
begin
if edt1.Text='' then
begin
   application.MessageBox('户况编码不能为空!','提示',64);
  end
  else
  begin
    if cbb4.Text='' then
    begin
     application.MessageBox('单元号不能为空!','提示',64);
    end
    else
    begin
     if cbb7.Text='' then
     begin
      application.MessageBox('房间号码不能为空!','提示',64);
     end
     else
     begin
      if edt3.Text='' then
      begin
        application.MessageBox('姓名不能为空!','提示',64);
      end
      else
      begin
       if edt4.Text='' then
       begin
         application.MessageBox('身份证号码不能为空!','提示',64);
       end
       else
       begin
        if edt5.Text='' then
        begin
          application.MessageBox('婚姻状况不能为空!','提示',64);
        end
        else
               begin
                if chk1.Checked=False then
                  begin
        with dm.qry4 do
                 begin
                sql.Clear;
                sql.Add('select * from zhxxb where zhbm='''+edt1.Text+'''  '  );
                  Open;
                        if  DM.qry4.Eof then
                            begin
                               Append;
                               FieldByName('zhbm').AsString:=edt1.Text;
                               FieldByName('mph').AsString:=cbb7.Text;
                               FieldByName('dyh').AsString:=cbb4.Text;
                               FieldByName('zhxm').AsString:=edt3.Text;
                               FieldByName('nl').AsString:=edt2.Text;
                               FieldByName('yhzgx').AsString:=edt12.Text;
                               FieldByName('sex').AsString:=cbb5.Text;
                               FieldByName('sfzh').AsString:=edt4.Text;
                               FieldByName('hyzk').AsString:=edt5.Text;
                               FieldByName('jhrq').AsString:=edt6.Text;
                               FieldByName('hjdz').AsString:=edt7.Text;
                               FieldByName('xzhuzhi').AsString:=edt9.Text;
                               FieldByName('lxdh').AsString:=edt8.Text;
                               FieldByName('hklx').AsString:=cbb6.Text;
                               FieldByName('ssld').AsString:=cbb3.Text;
                               FieldByName('ssxq').AsString:=cbb2.Text;
                               FieldByName('ssjwh').AsString:=cbb1.Text;
                               FieldByName('ssjd').AsString:=Ssjd;
                               FieldByName('bz').AsString:=edt10.Text;
                               post;
                               application.MessageBox('添加成功!','提示',64);
                               //dm.tbl1.Refresh;
                                 with dm.qry4 do
                 begin
                sql.Clear;
                sql.Add('select *  from zhxxb order by zhbm '  );
                  dm.qry4.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Title.Caption:='户况编码';
                  dbgrdh1.Columns[0].HideDuplicates:=True;
                  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[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;