changepurviewformunit.pas

人事管理系统帮助人们管理复杂的关系

unit ChangePurviewFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TChangePurviewForm = class(TForm)
    Button2: TButton;
    Button1: TButton;
    CBPurview: TComboBox;
    Label4: TLabel;
    edtPwd: TEdit;
    edtAccount: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }

    Procedure ShowData;

  public
    { Public declarations }
  end;

var
  ChangePurviewForm: TChangePurviewForm;

implementation

uses DataMUnit;

{$R *.dfm}

Procedure TChangePurviewForm.ShowData;
begin
  edtAccount.Text := DataM.ADOLogin.FieldValues['User'];
  edtPwd.Text := DataM.ADOLogin.FieldValues['Pwd'];
  CbPurview.Text := DataM.ADOLogin.FieldValues['Purview'];
end;

procedure TChangePurviewForm.FormShow(Sender: TObject);
begin
  edtAccount.text:='';
  edtPwd.Text:='';
  CBPurview.Text:='';

  if DataM.ADOLogin.Active = true then
    DataM.ADOLogin.Close;

  DataM.ADOLogin.SQL.Clear;
  DataM.ADOLogin.SQL.Text:='select * from Login';
  DataM.ADOLogin.Prepared;
  DataM.ADOLogin.Open;

  ShowData;
end;

procedure TChangePurviewForm.Button1Click(Sender: TObject);
var sel:integer;
begin
  sel:=MessageBox(0,'确定修改该帐户权限吗？','人事管理系统',MB_YESNO+MB_ICONQUESTION);
  if sel = IDYES then
    begin
      DataM.ADOLogin.Edit;
      DataM.ADOLogin.FieldByName('Purview').AsString := CBPurview.Text;
      DataM.ADOLogin.Post;
    end;
end;

procedure TChangePurviewForm.Button2Click(Sender: TObject);
begin
  ChangePurviewForm.Close;
end;

procedure TChangePurviewForm.DBGrid1DblClick(Sender: TObject);
begin
  showData;
end;

end.