unitjwh.~pas

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

unit Unitjwh;

interface

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

type
  TFormjwh = 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;
    edt2: TEdit;
    edt3: TEdit;
    procedure btn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dbgrdh1CellClick(Column: TColumnEh);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure dbgrdh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure btn4Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    //function   Get_Db_Con_Str(FileName:String):String;
    { Public declarations }
  end;

var
  Formjwh: TFormjwh;
  
implementation

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

{$R *.dfm}

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

procedure TFormjwh.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;
                  end ;
                  dbgrdh1.Columns[0].Title.Caption:='居委会编号';
dbgrdh1.Columns[1].Title.Caption:='居委会名称';
dbgrdh1.Columns[2].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=185;
dbgrdh1.Columns[1].Width:=212;
dbgrdh1.Columns[2].Width:=220;

   btn2.Enabled:=False;
   btn3.Enabled:=False;
    Ini_FileName:=ExtractFilePath(application.ExeName)+'hkgl.ini';
   with   TInifile.Create(Ini_FileName)   do
          begin
              try
                  edt3.Text:=ReadString('sxsd','sjd','');
              finally
                  Free;
              end
          end
 
end;

procedure TFormjwh.dbgrdh1CellClick(Column: TColumnEh);
 var
   gh:string;
begin
edt1.Enabled:=False;
edt3.Enabled:=False;
 gh:=dbgrdh1.DataSource.DataSet.findfield('jwhbm').Value;
  with dm.qry3 do
             begin
             sql.Clear;
             sql.Add('select * from jwhxx where jwhbm='''+gh+''' ');
             open;
             end;
             edt1.Text:=dm.qry3.FieldByName('jwhbm').AsString;
             edt2.Text:=dm.qry3.FieldByName('jwhmc').AsString;
             edt3.Text:=dm.qry3.FieldByName('ssjd').AsString;
             btn1.Enabled:=False;
btn2.Enabled:=True;
   btn3.Enabled:=True;
end;

procedure TFormjwh.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 TFormjwh.btn3Click(Sender: TObject);
begin
  with dm.qry2 do
             begin
             sql.Clear;
             sql.Add('select * from jwhxx where jwhbm='''+edt1.Text+''' ');
             open;
             end;
   //dm.con1.BeginTrans;
             dm.qry2.Edit;
             dm.qry2.FieldByName('jwhbm').AsString:=edt1.Text;
             dm.qry2.FieldByName('jwhmc').AsString:=edt2.Text;
             dm.qry2.FieldByName('ssjd').AsString:=edt3.Text;
             dm.qry2.Post;
             //dm.con1.CommitTrans


                dm.qry2.sql.Clear;
                dm.qry2.sql.Add('select *  from jwhxx '  );
                 dm.qry2.Active:=True;

                  dbgrdh1.Columns[0].Title.Caption:='居委会编号';
dbgrdh1.Columns[1].Title.Caption:='居委会名称';
dbgrdh1.Columns[2].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=185;
dbgrdh1.Columns[1].Width:=212;
dbgrdh1.Columns[2].Width:=220;
end;

procedure TFormjwh.dbgrdh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
  gh:string;
begin

 gh:=dbgrdh1.DataSource.DataSet.findfield('jwhbm').Value;
  if gh = '12007' then

  //(Sender as dbgrdh).Canvas.Brush.Color:=clMoneyGreen;
dbgrdh1.Canvas.Brush.Color:=clMoneyGreen;
   dbgrdh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

   end;

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

procedure TFormjwh.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 jwhxx where jwhbm='''+edt1.Text+''' '  );
                  Open;
                        if  DM.qry2.Eof then
                            begin
                               Append;
                               FieldByName('jwhbm').AsString:=edt1.Text;
                               FieldByName('jwhmc').AsString:=edt2.Text;
                               FieldByName('ssjd').AsString:=edt3.Text;
                               post;
                               application.MessageBox('添加成功!','提示',64);
                                 with dm.qry2 do
                 begin
                sql.Clear;
                sql.Add('select *  from jwhxx '  );
                  dm.qry2.Active:=True;
                  end ;
                                dbgrdh1.Columns[0].Title.Caption:='居委会编号';
dbgrdh1.Columns[1].Title.Caption:='居委会名称';
dbgrdh1.Columns[2].Title.Caption:='所属街道';
dbgrdh1.Columns[0].Width:=185;
dbgrdh1.Columns[1].Width:=212;
dbgrdh1.Columns[2].Width:=220;
edt1.Clear;
edt2.Clear;
//edt3.Clear;
                            end
                            else
                            begin
                              application.MessageBox('居委会编码不能重复!','提示',64);
                               edt1.Enabled:=True;
                               edt1.SetFocus;
                              end

    end;
end;
 end;
 end;
end.