frame_useredit.~pas

企业信息管理系统程序框架

unit frame_userEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uSingleEdit, DB, ADODB, ADOXQuery, dcfdes, ImgList,
  StdCtrls, Buttons, ComCtrls,frame_UtilFunc;

type
  Tframe_frmUserEdit = class(Tframe_frmsingleedit)
    lblemployeeid: TLabel;
    edtemployeeid: TEdit;
    lblemployeename: TLabel;
    edtemployeename: TEdit;
    lbljobname: TLabel;
    edtjobseqn: TEdit;
    cbbjobname: TComboBox;
    edtemployeeseqn: TEdit;
    procedure FormShow(Sender: TObject);
    procedure cbbjobnameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function validate:Boolean;override;
  end;

var
  frame_frmUserEdit: Tframe_frmUserEdit;

implementation

uses frame_uDM;

{$R *.dfm}

{ Tframe_frmUserEdit }

function Tframe_frmUserEdit.validate: Boolean;
begin
  result:=true;
  frame_DM.opensql(gv_qry,'select count(*) from t_employee where employeeID=:p1',[edtemployeeID.text]);
  if addstate or
  ((not addstate) and    (edtemployeeid.text<>mydg.DataSource.DataSet.FieldByName('employeeid').Text))
  then
  begin
    if (gv_qry.fields[0].AsInteger>0) then
    begin
      result:=false;
      showmessage('该用户ID已存在，请重新输入');
      edtemployeeID.SetFocus;
      exit;
    end;
  end;
  if edtemployeeid.Text='' then
  begin
      result:=false;
      showmessage('请输入用户ID!');
      edtemployeeid.SetFocus;
      exit
  end;
  if edtemployeename.Text='' then
  begin
      result:=false;
      showmessage('请输入用户名称!');
      edtemployeename.SetFocus;
      exit
  end;

  if cbbjobname.Text='' then
  begin
      result:=false;
      showmessage('请选择角色!');
      cbbjobname.SetFocus;
      exit
  end;

end;

procedure Tframe_frmUserEdit.FormShow(Sender: TObject);
begin
  frame_DM.OpenSQL(GV_Qry,'select jobname from t_job order by jobname',[]);
  while not gv_qry.Eof do
  begin
    cbbjobname.Items.Add(GV_Qry.Fields[0].asstring);
    GV_Qry.Next;
  end;
  inherited;  
end;

procedure Tframe_frmUserEdit.cbbjobnameChange(Sender: TObject);
begin
  inherited;
  frame_DM.OpenSQL(GV_Qry,'select jobseqn from t_job where jobname=:p1',[cbbjobname.Text]);
  edtjobseqn.Text:=GV_Qry.Fields[0].AsString;

end;


end.