yhgl.pas

用delphi开发的 人事管理系统

unit yhgl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Grids, DBGrids, Db, DBTables;

type
  Tfrm_yhgl = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bevel1: TBevel;
    Button4: TButton;
    Button5: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_yhgl: Tfrm_yhgl;
  s,oldpswd:string;
implementation

uses adduser, changepawd;

{$R *.DFM}

procedure Tfrm_yhgl.Button1Click(Sender: TObject);
begin
   Frm_adduser:=Tfrm_adduser.create(application);
  Frm_adduser.show;
end;

procedure Tfrm_yhgl.Button2Click(Sender: TObject);

begin
  Frm_changepawd:=Tfrm_changepawd.create(application);
  Frm_changepawd.show;
   with DBGrid1.DataSource.DataSet do
    begin
    GotoBookmark(pointer(DBGrid1.SelectedRows.CurrentRowSelected));
    s:=Fields[0].AsString;
    oldpswd:=fields[1].asstring;
    end;
 Frm_changepawd.edit1.text:=s;
 Frm_changepawd.edit1.enabled:=false;
end;

procedure Tfrm_yhgl.Button5Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_yhgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure Tfrm_yhgl.Button3Click(Sender: TObject);
var s,sql:string;
begin

 with DBGrid1.DataSource.DataSet do
 begin
 GotoBookmark(pointer(DBGrid1.SelectedRows.CurrentRowSelected));
 s:=Fields[0].AsString;
 end;
 if s='system' then showmessage('你不能删除系统用户')
 else
 begin
  if Application.MessageBox(pchar('是否删除用户'+s),'确认要删除吗？',mb_IconInformation+mb_OK+mb_OKCancel)=IDCancel then Exit;
  Sql := 'Delete From yhklb Where dlyh='''+s+''' ';
  Query2.Close;
  Query2.Sql.Clear;
  Query2.Sql.Add(sql);
  Query2.ExecSQL;
  Query1.Close;
  Query1.Open;
 end;
end;

end.