udeleteaccount.pas

天涯進銷存系統

unit uDeleteAccount;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LBCtrls, ExtCtrls, jpeg, StdCtrls, LBMorphVCLBase, LBMorphButton,
  DB, DBClient, SimpleDS;

type
  TfrmDeleteAccount = class(TForm)
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    Image1: TImage;
    Shape1: TShape;
    Shape2: TShape;
    Shape4: TShape;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    Label1: TLabel;
    Label3: TLabel;
    Image2: TImage;
    UserCode: TLBEdit;
    UserPass: TLBEdit;
    procedure EnterButtonClick(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure UserCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure UserPassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDeleteAccount: TfrmDeleteAccount;
  i: integer;

implementation

uses uSelectAcc;

{$R *.dfm}

procedure TfrmDeleteAccount.EnterButtonClick(Sender: TObject);
begin
  if (Trim(UserCode.Text)=frmSelectAcc.AccCds.FieldByName('UserName').asstring) and
     (Trim(UserPass.Text)=frmSelectAcc.AccCds.FieldByName('UserPassword').asstring) then
    frmSelectAcc.isUser:=True
  else
    Application.MessageBox('管理员编号或密码不正确，你不能删除该帐套。','提示信息', $30);
  Close;
end;


procedure TfrmDeleteAccount.CancelButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmDeleteAccount.UserCodeKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmDeleteAccount.UserPassKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then EnterButtonClick(Sender);
end;

procedure TfrmDeleteAccount.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.