unit5.~pas

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

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzRadChk, ExtCtrls, RzPanel, Grids, DBGrids, StdCtrls,
  WinSkinData, WinSkinStore, XPButton;

type
  TFmqx = class(TForm)
    grp1: TGroupBox;
    dbgrd1: TDBGrid;
    RzGroupBox1: TRzGroupBox;
    rzchckbx1: TRzCheckBox;
    rzchckbx2: TRzCheckBox;
    rzchckbx3: TRzCheckBox;
    rzchckbx4: TRzCheckBox;
    rzchckbx5: TRzCheckBox;
    rzchckbx6: TRzCheckBox;
    rzchckbx7: TRzCheckBox;
    rzchckbx8: TRzCheckBox;
    rzchckbx9: TRzCheckBox;
    rzchckbx10: TRzCheckBox;
    rzchckbx11: TRzCheckBox;
    rzchckbx12: TRzCheckBox;
    rzchckbx13: TRzCheckBox;
    rzchckbx14: TRzCheckBox;
    rzchckbx15: TRzCheckBox;
    rzchckbx16: TRzCheckBox;
    rzchckbx17: TRzCheckBox;
    rzchckbx18: TRzCheckBox;
    grp2: TGroupBox;
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    edt2: TEdit;
    lbl3: TLabel;
    edt3: TEdit;
    lbl4: TLabel;
    edt4: TEdit;
    btn1: TXPButton;
    btn2: TXPButton;
    btn3: TXPButton;
    btn4: TXPButton;
    btn5: TXPButton;
    procedure FormCreate(Sender: TObject);

    procedure dbgrd1CellClick(Column: TColumn);

    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmqx: TFmqx;

implementation

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

{$R *.dfm}

procedure TFmqx.FormCreate(Sender: TObject);
begin
  with dm.yhQuery1 do
                 begin
                sql.Clear;
                sql.Add('select hkemployee,hkghxm,hkqx,hkbz  from hk_user '  );
                  dm.yhQuery1.Active:=True;
                  end ;
                  dbgrd1.Columns[0].Title.Caption:='人员工号';
dbgrd1.Columns[1].Title.Caption:='操作用户';
dbgrd1.Columns[2].Title.Caption:='用户权限';
dbgrd1.Columns[3].Title.Caption:='备注';
dbgrd1.Columns[0].Width:=115;
dbgrd1.Columns[1].Width:=130;
dbgrd1.Columns[2].Width:=120;
dbgrd1.Columns[3].Width:=172;
  btn5.Enabled:=False;
  Btn2.Enabled:=False;
  edt1.Text:=Form2.edt1.Text;
  edt1.Enabled:=False;
end;



procedure TFmqx.dbgrd1CellClick(Column: TColumn);
begin
//edt1.Text:=dbgrd1.DataSource.DataSet.findfield('hkemployee').Value;
end;











procedure TFmqx.btn1Click(Sender: TObject);
begin
 Btn2.Enabled:=True;
Btn1.Enabled:=False;
end;

procedure TFmqx.btn3Click(Sender: TObject);
begin
   close;
end;

procedure TFmqx.btn2Click(Sender: TObject);
begin
 if edt2.Text='' then
 begin
   application.MessageBox('请输入旧密码！','错误');
   edt2.SetFocus;
   end
   else
   begin
     if (edt3.Text='') and (edt4.Text='') then
     begin
       application.MessageBox('请输入新密码！','错误');
       edt3.SetFocus;
       end
       else
       begin
         if edt3.Text<>edt4.Text then
         begin
           application.MessageBox('两次输入的新密码不一致！','错误');
           edt4.SetFocus;
           end
           else
           begin
             with dm.qry2 do
             begin
             sql.Clear;
             sql.Add('select * from hk_user where hkpw='''+edt2.Text+''' ');
             open;
             end;
             dm.con1.BeginTrans;
             dm.qry2.Edit;
             dm.qry2.FieldByName('hkpw').AsString:=edt3.Text;
             dm.qry2.Post;
             dm.con1.CommitTrans
             end
         end

     end;
end;

procedure TFmqx.btn4Click(Sender: TObject);
begin
      if application.MessageBox('请先选择要修改的工号！','提示',mb_yesno)=id_yes then
    begin
      btn5.Enabled:=True;
      btn4.Enabled:=False
      end
      else
      begin
        end ;
end;



procedure TFmqx.btn5Click(Sender: TObject);
var

gh:string;
begin
 gh:=dbgrd1.DataSource.DataSet.findfield('hkemployee').Value;
 //qx:=dbgrd1.DataSource.DataSet.findfield('hkqx').Value;

 with dm.qry1 do
  begin
  sql.Clear;
  sql.Add('select * from hk_qx where hkgh='''+gh+''' ');
  open;
  end;
  dm.con1.BeginTrans;
   dm.qry1.Edit;
  //dm.qry1.FieldByName('hkgh').AsString:=gh;
  //dm.qry1.FieldByName('hkqx').AsString:=qx;
  dm.qry1.FieldByName('yhgl').Value:=rzchckbx1.Checked;
  dm.qry1.FieldByName('ggmm').Value:=rzchckbx2.Checked;
  dm.qry1.FieldByName('czrk_hkb').Value:=rzchckbx3.Checked;
  dm.qry1.FieldByName('czrk_txl').Value:=rzchckbx4.Checked;
  dm.qry1.FieldByName('sqjz').Value:=rzchckbx5.Checked;
  dm.qry1.FieldByName('zz_rkgl').Value:=rzchckbx6.Checked;
  dm.qry1.FieldByName('zz_czf').Value:=rzchckbx7.Checked;
  dm.qry1.FieldByName('zz_czfcl').Value:=rzchckbx8.Checked;
  dm.qry1.FieldByName('zz_zkwp').Value:=rzchckbx9.Checked;
  dm.qry1.FieldByName('js_yfgl').Value:=rzchckbx10.Checked;
  dm.qry1.FieldByName('js_bgd').Value:=rzchckbx11.Checked;
  dm.qry1.FieldByName('js_xxll').Value:=rzchckbx12.Checked;
  dm.qry1.FieldByName('sjbf').Value:=rzchckbx13.Checked;
  dm.qry1.FieldByName('xtcsh').Value:=rzchckbx14.Checked;
  dm.qry1.FieldByName('jmxxll').Value:=rzchckbx15.Checked;
  dm.qry1.FieldByName('jsxxcx').Value:=rzchckbx16.Checked;
  dm.qry1.FieldByName('zzrkcx').Value:=rzchckbx17.Checked;
  dm.qry1.FieldByName('jmxxcx').Value:=rzchckbx18.Checked;
     dm.qry1.Post;
     application.MessageBox('修改成功！','提示');
     dm.con1.CommitTrans

     //application.MessageBox('修改成功！','提示');
end;

end.