useredfrm.pas

群星医药系统源码

unit UserEdFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RzCommon, RzButton, ExtCtrls, RzPanel, StdCtrls, RzEdit, RzRadChk, AdoDB,
  RzBtnEdt, Mask, RzCmboBx, DBCtrls, RzDBEdit, RzDBBnEd, DB,uGlobal, ceConst;

type
  TFmUserEd = class(TForm)
    Label1: TLabel;
    edUserID: TRzDBButtonEdit;
    edPasswd: TRzEdit;
    edPasswd2: TRzEdit;
    cbDBModiRange: TRzComboBox;
    cbDBScanRange: TRzComboBox;
    edReMark: TRzDBMemo;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Bevel1: TBevel;
    RzPanel1: TRzPanel;
    BtnOK: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    dsUser: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure edUserIDButtonClick(Sender: TObject);
  private
//    FQuery: TAdoQuery;
  public
    OldUserID, RefUserID, NewUserID: String;
  end;

var
  FmUserEd: TFmUserEd;

implementation

{$R *.DFM}

uses uDataTypes, ceGlobal,SelectEmpFrm;

procedure TFmUserEd.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
{  FQuery := TAdoQuery.Create(self);
  FQuery.Connection := AdoConnect;
}
end;

procedure TFmUserEd.FormDestroy(Sender: TObject);
begin
{  FQuery.Close;
  FQuery.Free;
}
end;

procedure TFmUserEd.FormShow(Sender: TObject);
begin
//
end;

procedure TFmUserEd.BtnOKClick(Sender: TObject);
Var
  iDBScanRange,iDBModiRange:Integer;
  str, sPasswd: String;
begin
  If edUserID.Text='' Then Begin
    Messagebox(Handle,Pchar('用户编号不能为空!'),'错误:',16);
    edUserID.SetFocus;
    Exit;
  End;
  sPasswd := edPasswd.Text;
  If sPasswd<>edPasswd2.Text Then Begin
    Messagebox(Handle,Pchar('二次所输口令不一致!'),'错误:',16);
    edPasswd.SetFocus;
    Exit;
  End;
  if sPasswd<>'' then sPasswd := xEncStr(sPasswd, sDefaultKey);
  iDBScanRange:=cbDBScanRange.ItemIndex;
  If iDBScanRange<0 Then Begin
    Messagebox(Handle,Pchar('资料浏览范围不能为空!'),'错误:',16);
    cbDBScanRange.SetFocus;
    Exit;
  End;
  iDBModiRange:=cbDBModiRange.ItemIndex;
  If iDBModiRange<0 Then Begin
    Messagebox(Handle,Pchar('资料修改范围不能为空!'),'错误:',16);
    cbDBModiRange.SetFocus;
    Exit;
  End;
  dsUser.DataSet.FieldByName('Passwd').AsString := sPasswd;
  dsUser.DataSet.FieldByName('DBScanRange').AsInteger:=iDBScanRange;
  dsUser.DataSet.FieldByName('DBModiRange').AsInteger:=iDBModiRange;
  ModalResult:=MrOK;
end;

procedure TFmUserEd.BtnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFmUserEd.edUserIDButtonClick(Sender: TObject);
var
  sEmpNo: string;
begin
  if SelectEmp(sEmpNo) then
    edUserID.Field.AsString := sEmpNo;
end;

end.