unitfjxx.pas

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

dbgrdh1.Columns[5].Width:=130;
dbgrdh1.Columns[6].Width:=130;
dbgrdh1.Columns[7].Width:=130;
end;
                            end
                            else
                            begin
                              application.MessageBox('房间编码不能重复!','提示',64);
                               edt1.Enabled:=True;
                               edt1.SetFocus;
 with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from hk_fjxx order by fjhm asc '  );
                  dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Visible:=False;
                  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[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=60;
dbgrdh1.Columns[4].Width:=70;
dbgrdh1.Columns[5].Width:=130;
dbgrdh1.Columns[6].Width:=130;
dbgrdh1.Columns[7].Width:=130;
                              end

    end;
         end
     end
end;

procedure TFormfjxx.cbb4Change(Sender: TObject);
begin
  cbb3.Clear;
with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from xqxx where ssjwh='''+cbb4.Text+''' '  );
                  dm.qry2.Active:=True;
                  dm.qry2.First;
                  while not dm.qry2.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb3.Items.Add(Trim(dm.qry2.FieldByName('xqmc').AsString));
                   //cbb3.Text:=Trim(dm.qry2.FieldByName('xqmc').AsString);
                  dm.qry2.Next;
                  end;
                  end ;
with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from hk_fjxx order by fjhm asc '  );
                  dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Visible:=False;
                  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[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=60;
dbgrdh1.Columns[4].Width:=70;
dbgrdh1.Columns[5].Width:=130;
dbgrdh1.Columns[6].Width:=130;
dbgrdh1.Columns[7].Width:=130;
end;

procedure TFormfjxx.cbb3Change(Sender: TObject);
begin
  cbb2.Clear;
  with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from lcxx where ssjwh='''+cbb4.Text+''' and ssxq='''+cbb3.Text+''' '  );
                  dm.qry2.Active:=True;
                  dm.qry2.First;
                  while not dm.qry2.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb2.Items.Add(Trim(dm.qry2.FieldByName('ldhm').AsString));
                  dm.qry2.Next;
                  end;
                  end ;
 with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from hk_fjxx order by fjhm asc '  );
                  dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Visible:=False;
                  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[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=60;
dbgrdh1.Columns[4].Width:=70;
dbgrdh1.Columns[5].Width:=130;
dbgrdh1.Columns[6].Width:=130;
dbgrdh1.Columns[7].Width:=130;
end;

procedure TFormfjxx.btn5Click(Sender: TObject);
begin
//application.MessageBox('暂时不能修改!','提示',64);

with dm.qry2 do
             begin
             sql.Clear;
             sql.Add('select * from hk_fjxx where fjbm='''+edt1.Text+'''    ');
             open;
             end;
             if dm.qry2.Eof then
             begin
               application.MessageBox('没有数据!','提示',64);
             end
             else
             begin
   //dm.con1.BeginTrans;
             dm.qry2.Edit;
             dm.qry2.FieldByName('fjbm').AsString:=edt1.Text;
             dm.qry2.FieldByName('fjhm').AsString:=edt2.Text;
             dm.qry2.FieldByName('hklx').AsString:=cbb1.Text;
             dm.qry2.FieldByName('dyh').AsString:=edt3.Text;
             dm.qry2.FieldByName('ssjwh').AsString:=cbb4.Text;
             dm.qry2.FieldByName('ssxq').AsString:=cbb3.Text;
             dm.qry2.FieldByName('ssld').AsString:=cbb2.Text;
             dm.qry2.Post;
             //dm.con1.CommitTrans
             application.MessageBox('修改成功!','提示',64);
                end;

with dm.qry2 do
             begin
             sql.Clear;
             sql.Add('select * from zhxxb where mph='''+fjhm+''' and hklx='''+hklx+''' and dyh='''+dyh+''' and ssld='''+ssld+''' and ssxq='''+ssxq+''' and ssjwh='''+ssjwh+''' and ssjd='''+ssjdd+'''  ');
             open;
             end;
             if dm.qry2.Eof then
             begin
               application.MessageBox('更新住户信息表失败!','提示',64);
             end
             else
             begin
   //dm.con1.BeginTrans;
             dm.qry2.Edit;
             dm.qry2.FieldByName('mph').AsString:=edt2.Text;
             dm.qry2.FieldByName('hklx').AsString:=cbb1.Text;
             dm.qry2.FieldByName('dyh').AsString:=edt3.Text;
             dm.qry2.FieldByName('ssld').AsString:=cbb2.Text;
             dm.qry2.FieldByName('ssjwh').AsString:=cbb4.Text;
             dm.qry2.FieldByName('ssxq').AsString:=cbb3.Text;
             dm.qry2.FieldByName('ssjd').AsString:=ssjdd;
             dm.qry2.Post;
             //dm.con1.CommitTrans
             application.MessageBox('更新住户信息表成功!','提示',64);
                end;

                with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from hk_fjxx order by fjhm asc '  );
                  dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Visible:=False;
                  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[1].Width:=50;
dbgrdh1.Columns[2].Width:=50;
dbgrdh1.Columns[3].Width:=60;
dbgrdh1.Columns[4].Width:=70;
dbgrdh1.Columns[5].Width:=130;
dbgrdh1.Columns[6].Width:=130;
dbgrdh1.Columns[7].Width:=130;

end;

procedure TFormfjxx.dbgrdh1CellClick(Column: TColumn);
var
fjbm:string;

begin
  fjbm:=dbgrdh1.DataSource.DataSet.findfield('fjbm').Value;
  fjhm:=dbgrdh1.DataSource.DataSet.findfield('fjhm').Value;
  hklx:=dbgrdh1.DataSource.DataSet.findfield('hklx').Value;
  dyh:=dbgrdh1.DataSource.DataSet.findfield('dyh').Value;
  ssld:=dbgrdh1.DataSource.DataSet.findfield('ssld').Value;
 ssxq:=dbgrdh1.DataSource.DataSet.findfield('ssxq').Value;
 ssjwh:=dbgrdh1.DataSource.DataSet.findfield('ssjwh').Value;
 ssjdd:=dbgrdh1.DataSource.DataSet.findfield('ssjd').Value;
  btn1.Enabled:=False;
  edt1.Enabled:=False;
  btn3.Enabled:=True;
btn5.Enabled:=True;
btn6.Enabled:=True;

with dm.qry3 do
            begin

             sql.Clear;
            sql.Add('select * from hk_fjxx where fjbm='''+fjbm+'''  ');
            open;
             end;
             if dm.qry3.IsEmpty then
             begin
               Exit;
             end
             else
             begin


             edt1.Text:=dm.qry3.FieldByName('fjbm').AsString;
             edt2.Text:=dm.qry3.FieldByName('fjhm').AsString;
             cbb1.Text:=dm.qry3.FieldByName('hklx').AsString;
             edt3.Text:=dm.qry3.FieldByName('dyh').AsString;
             cbb4.Text:=dm.qry3.FieldByName('ssjwh').AsString;
             cbb3.Text:=dm.qry3.FieldByName('ssxq').AsString;
             cbb2.Text:=dm.qry3.FieldByName('ssld').AsString;
            end;
end;

end.