unitfjxx.~pas

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

unit Unitfjxx;

interface

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

type
  TFormfjxx = class(TForm)
    grp1: TGroupBox;
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    cbb1: TComboBox;
    lbl4: TLabel;
    cbb2: TComboBox;
    lbl5: TLabel;
    cbb3: TComboBox;
    cbb4: TComboBox;
    lbl6: TLabel;
    lbl7: TLabel;
    grp2: TGroupBox;
    dbgrdh1: TDBGrid;
    btn1: TXPButton;
    btn3: TXPButton;
    btn4: TXPButton;
    btn5: TXPButton;
    btn6: TXPButton;
    lbl8: TLabel;
    edt3: TEdit;
    procedure btn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure cbb4Change(Sender: TObject);
    procedure cbb3Change(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure dbgrdh1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formfjxx: TFormfjxx;
   Ssjd:string;
implementation

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

{$R *.dfm}

procedure TFormfjxx.btn4Click(Sender: TObject);
begin
Close;
end;

procedure TFormfjxx.FormCreate(Sender: TObject);
 var

  Ini_FileName:String;
begin
  btn3.Enabled:=False;
  btn5.Enabled:=False;
  btn6.Enabled:=False;
  cbb1.Items.Add('A');
  cbb1.Items.Add('A1');
  cbb1.Items.Add('B');
  cbb1.Items.Add('C');
 with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from jwhxx '  );
                  dm.qry2.Active:=True;
                  dm.qry2.First;
                  while not dm.qry2.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb4.Items.Add(Trim(dm.qry2.FieldByName('jwhmc').AsString));
                   cbb4.Text:=Trim(dm.qry2.FieldByName('jwhmc').AsString);
                  dm.qry2.Next;
                  end;
                  end ;
 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 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;
    Ini_FileName:=ExtractFilePath(application.ExeName)+'hkgl.ini';
   with   TInifile.Create(Ini_FileName)   do
          begin
              try
                  Ssjd:=ReadString('sxsd','sjd','');
              finally
                  Free;
              end
          end;
          //edt3.Text:= Ssjd;

end;

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

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

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

procedure TFormfjxx.btn2Click(Sender: TObject);
begin
btn3.Enabled:=True;
btn5.Enabled:=True;
btn6.Enabled:=True;
//btn2.Enabled:=False;
end;

procedure TFormfjxx.btn6Click(Sender: TObject);
begin
  btn1.Enabled:=True;
btn3.Enabled:=False;
btn5.Enabled:=False;
//btn2.Enabled:=True;
btn6.Enabled:=False;
end;

procedure TFormfjxx.btn1Click(Sender: TObject);
begin
 if edt1.Text='' then
 begin
   application.MessageBox('房间编码不能为空!','提示',64);
   end
   else
   begin
     if edt2.Text='' then
     begin
       application.MessageBox('房间号码不能为空!','提示',64);
       end
       else
       begin
          with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select * from hk_fjxx where fjbm='''+edt1.Text+'''  '  );
                  Open;
                        if  DM.qry2.Eof then
                            begin
                               Append;
                               FieldByName('fjbm').AsString:=edt1.Text;
                               FieldByName('fjhm').AsString:=edt2.Text+cbb1.Text;
                               FieldByName('hklx').AsString:=cbb1.Text;
                               FieldByName('dyh').AsString:=edt3.Text;
                               FieldByName('ssld').AsString:=cbb2.Text;
                               FieldByName('ssxq').AsString:=cbb3.Text;
                               FieldByName('ssjwh').AsString:=cbb4.Text;
                               FieldByName('ssjd').AsString:=Ssjd;
                               post;
                               application.MessageBox('添加成功!','提示',64);
                              // dm.tbl1.Refresh;
                                 with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from hk_fjxx  '  );
                  dm.qry2.Active:=True;
                  
                  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
                            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 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
  btn1.Enabled:=False;
  edt1.Enabled:=False;
  btn3.Enabled:=True;
btn5.Enabled:=True;
btn6.Enabled:=True;
  fjbm:=dbgrdh1.DataSource.DataSet.findfield('fjbm').Value;
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.