unewuser.pas

天涯進銷存系統

unit uNewUser;

interface

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

type
  TfrmNewUser = class(TForm)
    Image1: TImage;
    WindowCaption: TLabel;
    Shape1: TShape;
    Shape4: TShape;
    Shape2: TShape;
    SysCloseButton: TLBMorphButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    LBDBEdit1: TLBDBEdit;
    LBDBEdit2: TLBDBEdit;
    LBDBEdit3: TLBDBEdit;
    LBEdit1: TLBEdit;
    Image2: TImage;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    Shape24: TShape;
    Shape25: TShape;
    procedure EnterButtonClick(Sender: TObject);
    procedure LBDBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SysCloseButtonClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    UserOldCode: string;
  end;

var
  frmNewUser: TfrmNewUser;

implementation

uses uPublicvar, uDataMO, uUserSetup, uConst;

{$R *.dfm}

procedure TfrmNewUser.EnterButtonClick(Sender: TObject);
var
  i: integer;
  s: string;
begin
  if Trim(LBDBEdit1.Text)='' then
  begin
    Application.MessageBox('请输入用户编号。',Hintinfo, $30);
    LBDBEdit1.SetFocus;
    Exit; 
  end;
  if Trim(LBDBEdit2.Text)='' then
  begin
    Application.MessageBox('请输入用户名称。',Hintinfo, $30);
    LBDBEdit2.SetFocus;
    Exit; 
  end;
  if Trim(LBDBEdit3.Text)<>Trim(LBEdit1.Text) then
  begin
    Application.MessageBox('用户密码输入不正确，请重新输入。',Hintinfo, $30);
    LBDBEdit3.Clear;
    LBEdit1.Clear;
    LBDBEdit3.SetFocus;   
  end;
  if isExist('UserKey', 'UserCode', Trim(LBDBEdit1.Text), UserOldCode, '') then
  begin
    Application.MessageBox('此用户编号已存在，请重新输入。',Hintinfo,$30);
    LBDBEdit1.SetFocus;
    Exit; 
  end;
  if UserOldCode='' then
  begin
    for i:=1 to 44 do
    begin
      s:=s+'0';
    end;
    FrmUserSetup.UserData.FieldByName('isSys').AsString:='0';
    FrmUserSetup.UserData.FieldByName('userKey').AsString:=s;
  end;
  FrmUserSetup.UserData.ApplyUpdates(-1);
  Close; 
end;

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

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

procedure TfrmNewUser.SysCloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmNewUser.FormDestroy(Sender: TObject);
begin
  frmUserSetup.UserData.Cancel;
end;

procedure TfrmNewUser.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

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

end.