unitxqsz.~pas

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

unit Unitxqsz;

interface

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

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

var
  Formxqsz: TFormxqsz;
  jwh:string;
implementation

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

{$R *.dfm}

procedure TFormxqsz.btn5Click(Sender: TObject);
begin
close;
end;

procedure TFormxqsz.btn4Click(Sender: TObject);
begin
   btn1.Enabled:=True;
  edt1.Enabled:=True;
 btn2.Enabled:=False;
   btn3.Enabled:=False;
  //cbb1.Clear;
   edt2.Clear;
end;

procedure TFormxqsz.FormCreate(Sender: TObject);
var

   //Ssjd:string;
  Ini_FileName:String;
begin
  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;
                  cbb1.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;
                  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:=145;
dbgrdh1.Columns[1].Width:=165;
dbgrdh1.Columns[2].Width:=162;
dbgrdh1.Columns[3].Width:=160;
   btn2.Enabled:=False;
   btn3.Enabled:=False;
   Ini_FileName:=ExtractFilePath(application.ExeName)+'hkgl.ini';
   with   TInifile.Create(Ini_FileName)   do
          begin
              try
                  jwh:=ReadString('sxsd','sjd','');
              finally
                  Free;
              end
          end
end;

procedure TFormxqsz.btn2Click(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 TFormxqsz.btn3Click(Sender: TObject);
begin
 with dm.qry2 do
                 begin

                sql.Clear;
                sql.Add('select * from xqxx where xqbm='''+edt1.Text+'''  '  );
                  dm.qry2.Active:=True;
                  end ;
                  dm.qry2.Edit;
             dm.qry2.FieldByName('xqbm').AsString:=edt1.Text;
             dm.qry2.FieldByName('xqmc').AsString:=edt2.Text;
             dm.qry2.FieldByName('ssjwh').AsString:=cbb1.Text;
             dm.qry2.FieldByName('ssjd').AsString:=jwh;
             dm.qry2.Post;
             dm.qry2.sql.Clear;
                dm.qry2.sql.Add('select *  from xqxx '  );
                  dm.qry2.Active:=True;
             dbgrdh1.Columns[0].Title.Caption:='小区编号';
dbgrdh1.Columns[1].Title.Caption:='小区名称';
dbgrdh1.Columns[2].Title.Caption:='所属居委会';
dbgrdh1.Columns[3].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=145;
dbgrdh1.Columns[1].Width:=165;
dbgrdh1.Columns[2].Width:=162;
dbgrdh1.Columns[3].Width:=160;
end;

procedure TFormxqsz.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 xqxx where xqbm='''+edt1.Text+'''  '  );
                  Open;
                        if  DM.qry2.Eof then
                            begin
                               Append;
                               FieldByName('xqbm').AsString:=edt1.Text;
                               FieldByName('xqmc').AsString:=edt2.Text;
                               FieldByName('ssjwh').AsString:=cbb1.Text;
                               FieldByName('ssjd').AsString:=jwh;
                               post;
                               application.MessageBox('添加成功!','提示',64);
                                 with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from xqxx '  );
                  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:=145;
dbgrdh1.Columns[1].Width:=165;
dbgrdh1.Columns[2].Width:=162;
dbgrdh1.Columns[3].Width:=160;
edt1.Clear;
edt2.Clear;
//edt3.Clear;
                            end
                            else
                            begin
                              application.MessageBox('小区编码不能重复!','提示',64);
                               edt1.Enabled:=True;
                               edt1.SetFocus;
                              end

    end;
end;
 end;
end;

procedure TFormxqsz.dbgrdh1CellClick(Column: TColumnEh);
 var
   xqbh:string;
begin
edt1.Enabled:=False;
//edt3.Enabled:=False;
 xqbh:=dbgrdh1.DataSource.DataSet.findfield('xqbm').Value;
  with dm.qry3 do
             begin
             sql.Clear;
             sql.Add('select * from xqxx where xqbm='''+xqbh+''' ');
             open;
             end;
             edt1.Text:=dm.qry3.FieldByName('xqbm').AsString;
             cbb1.Text:=dm.qry3.FieldByName('ssjwh').AsString;
             edt2.Text:=dm.qry3.FieldByName('xqmc').AsString;
             btn1.Enabled:=False;
btn2.Enabled:=True;
   btn3.Enabled:=True;

end;

end.