frame_roleedit.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 53 行

unit frame_roleEdit;

interface

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

type
  Tframe_frmRoleEdit = class(Tframe_frmsingleedit)
    lbljobname: TLabel;
    edtjobname: TEdit;
    lbljobdesc: TLabel;
    mmojobdesc: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
    function validate:Boolean;override;
  end;

var
  frame_frmRoleEdit: Tframe_frmRoleEdit;

implementation

uses frame_uDM;

{$R *.dfm}

{ Tframe_frmRoleEdit }

function Tframe_frmRoleEdit.validate: Boolean;
begin
  result:=true;
  frame_DM.opensql(gv_qry,'select count(*) from t_job where jobname=:p1',[edtjobname.text]);
  if addstate or
  ((not addstate) and    (edtjobname.text<>mydg.DataSource.DataSet.FieldByName('jobname').Text))
  then
  begin
    if (gv_qry.fields[0].AsInteger>0) then
    begin
      result:=false;
      showmessage('角色已存在，请重新输入');
      edtjobname.SetFocus;
    end;
  end;

end;

end.