unitlcsz.pas

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

unit Unitlcsz;

interface

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

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

var
  Formlcsz: TFormlcsz;
  Ssjd:string;
  xgldhm:string;
implementation

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

{$R *.dfm}

procedure TFormlcsz.FormCreate(Sender: TObject);

   var

  Ini_FileName:String;
begin
  btn3.Enabled:=False;

  lbl6.Visible:=False;
  edt4.Visible:=False;

  cbb1.Visible:=True;
  cbb2.Visible:=True;
  //edt5.Visible:=False;
  //edt6.Visible:=False;
 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;
                  cbb2.Items.Add(Trim(dm.qry2.FieldByName('jwhmc').AsString));
                  dm.qry2.Next;
                  end;
                  end ;
 with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from xqxx '  );
                  dm.qry2.Active:=True;
                  dm.qry2.First;
                  while not dm.qry2.Eof do
                  begin
                  //jwh:=dm.qry2.FieldByName('jwhmc').AsString;
                  cbb1.Items.Add(Trim(dm.qry2.FieldByName('xqmc').AsString));
                  dm.qry2.Next;
                  end;
                  end ;
  with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from lcxx order by ldhm asc '  );
                  dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Title.Caption:='楼冻号';
dbgrdh1.Columns[1].Title.Caption:='所属小区';
dbgrdh1.Columns[2].Title.Caption:='所属居委会';
dbgrdh1.Columns[3].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=140;
dbgrdh1.Columns[1].Width:=180;
dbgrdh1.Columns[2].Width:=180;
dbgrdh1.Columns[3].Width:=180;
   btn3.Enabled:=False;

    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 TFormlcsz.btn6Click(Sender: TObject);
begin
Close;
end;

procedure TFormlcsz.btn2Click(Sender: TObject);
begin
btn1.Enabled:=False;
//btn2.Enabled:=False;
btn3.Enabled:=True;


  lbl6.Visible:=True;
  edt4.Visible:=True;
  lbl1.Visible:=False;
  lbl2.Visible:=False;
  edt1.Visible:=False;
  edt2.Visible:=False;
    cbb1.Visible:=False;
  cbb2.Visible:=False;
  //edt5.Visible:=True;
  //edt6.Visible:=True;
end;

procedure TFormlcsz.btn5Click(Sender: TObject);
begin
  btn1.Enabled:=True;
  //btn2.Enabled:=True;
  btn3.Enabled:=False;
  //edt6.Enabled:=True;
//edt5.Enabled:=True;
edt3.Enabled:=True;

  lbl6.Visible:=False;
  edt4.Visible:=False;
  lbl1.Visible:=True;
  lbl2.Visible:=True;
  edt1.Visible:=True;
  edt2.Visible:=True;
  //edt5.Visible:=False;
  //edt6.Visible:=False;
  cbb1.Visible:=True;
  cbb2.Visible:=True;
end;

procedure TFormlcsz.btn1Click(Sender: TObject);
var
  qh,jz,j:Integer;
  ldh: array[1..100] of Integer;
begin
  if (edt1.Text= '') and  (edt2.Text= '') then
begin
   application.MessageBox('起止楼栋号不能为空!','提示',64);
  end
  else
  begin
    qh:=StrToInt(trim(edt1.Text));
    jz:=StrToInt(trim(edt2.Text));
    for j:=1 to jz-qh+1 do
    begin
      ldh[j]:=qh;
      qh:=qh+1;
      end;
    with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select *  from lcxx '  );
                dm.qry2.Active:=True;
                qh:=StrToInt(trim(edt1.Text));
                for j:=1 to jz-qh+1 do
                begin
                Append;
                  FieldByName('ldhm').AsString:=IntToStr(ldh[j])+'栋';
                  FieldByName('ssxq').AsString:=cbb1.Text;
                  FieldByName('ssjwh').AsString:=cbb2.Text;
                  FieldByName('ssjd').AsString:=Ssjd;
                  post;
                  end;
                  application.MessageBox('添加成功!','提示',64);
 end;
 with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from lcxx order by ldhm asc '  );
                dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Title.Caption:='楼冻号';
dbgrdh1.Columns[1].Title.Caption:='所属小区';
dbgrdh1.Columns[2].Title.Caption:='所属居委会';
dbgrdh1.Columns[3].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=140;
dbgrdh1.Columns[1].Width:=180;
dbgrdh1.Columns[2].Width:=180;
dbgrdh1.Columns[3].Width:=180;
end;
 end;
procedure TFormlcsz.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 TFormlcsz.dbgrdh1CellClick(Column: TColumnEh);

 var
   ldhm:string;
   ssxq:string;
   ssjwh:string;
   ssjd:string;
begin
btn1.Enabled:=False;
//btn2.Enabled:=False;
btn3.Enabled:=True;


  lbl6.Visible:=True;
  edt4.Visible:=True;
  lbl1.Visible:=False;
  lbl2.Visible:=False;
  edt1.Visible:=False;
  edt2.Visible:=False;
    //cbb1.Visible:=False;
  //cbb2.Visible:=False;
  //edt5.Visible:=True;
  //edt6.Visible:=True;

//edt6.Enabled:=False;
//edt5.Enabled:=False;
edt3.Enabled:=False;
 ldhm:=dbgrdh1.DataSource.DataSet.findfield('ldhm').Value;
 ssxq:=dbgrdh1.DataSource.DataSet.findfield('ssxq').Value;
 ssjwh:=dbgrdh1.DataSource.DataSet.findfield('ssjwh').Value;
 ssjd:=dbgrdh1.DataSource.DataSet.findfield('ssjd').Value;
 //edt4.Text:=dbgrdh1.DataSource.DataSet.findfield('ldhm').Value;
  with dm.qry3 do
            begin
              //ldhm:=dbgrdh1.DataSource.DataSet.findfield('ldhm').Value;
             sql.Clear;
            sql.Add('select * from lcxx where ldhm='''+ldhm+''' and ssxq='''+ssxq+''' and ssjwh='''+ssjwh+''' and ssjd='''+ssjd+''' ');
            open;
             end;
             if dm.qry3.IsEmpty then
             begin
               Exit;
             end
             else
             begin


             edt4.Text:=dm.qry3.FieldByName('ldhm').AsString;
             cbb1.Text:=dm.qry3.FieldByName('ssxq').AsString;
             cbb2.Text:=dm.qry3.FieldByName('ssjwh').AsString;
             edt3.Text:=dm.qry3.FieldByName('ssjd').AsString;
            end;
             //btn1.Enabled:=False;
//btn2.Enabled:=True;
  // btn3.Enabled:=True;
  xgldhm:=edt4.Text;
end;

procedure TFormlcsz.btn4Click(Sender: TObject);
begin
with dm.qry2 do
             begin
             sql.Clear;
             sql.Add('select * from lcxx where ldhm='''+xgldhm+''' and ssxq='''+cbb1.Text+''' and ssjwh='''+cbb2.Text+''' and ssjd='''+edt3.Text+''' ');
             open;
             end;
             if dm.qry2.Eof then
             begin
               application.MessageBox('没有数据!','提示',64);
             end
             else
             begin
   //dm.con1.BeginTrans;
             dm.qry2.Edit;
             dm.qry2.FieldByName('ldhm').AsString:=edt4.Text;
              dm.qry2.FieldByName('ssxq').AsString:=cbb1.Text;
                  dm.qry2.FieldByName('ssjwh').AsString:=cbb2.Text;
                  dm.qry2.FieldByName('ssjd').AsString:=edt3.Text;
             dm.qry2.Post;
             //dm.con1.CommitTrans
             application.MessageBox('修改成功!','提示',64);
                end;

                with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from lcxx  '  );
                dm.qry2.Active:=True;
                  end ;
                  dbgrdh1.Columns[0].Title.Caption:='楼冻号';
dbgrdh1.Columns[1].Title.Caption:='所属小区';
dbgrdh1.Columns[2].Title.Caption:='所属居委会';
dbgrdh1.Columns[3].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=140;
dbgrdh1.Columns[1].Width:=180;
dbgrdh1.Columns[2].Width:=180;
dbgrdh1.Columns[3].Width:=180;
end;

end.