ufrmbanbieedit.pas

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

unit uFrmBanBieEdit;

interface

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

type
  TFrm_BanBieEdit = class(Tframe_frmsingleedit)
    lbldutyclassname: TLabel;
    lblmemo: TLabel;
    edtdutyclassname: TEdit;
    edtmemo: TEdit;
  private
    function validate: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_BanBieEdit: TFrm_BanBieEdit;

implementation

uses frame_uDM, umydm, frame_UtilFunc;

{$R *.dfm}
 function TFrm_BanBieEdit.validate: Boolean;
 var
  tmp,tmpsql: string;
  param:TStringList;

begin
  result:=true;
  frame_DM.opensql(gv_qry,'select count(*) from t_dutyclass where classname=:p1',[edtdutyclassname.text]);
  if addstate or
  ((not addstate) and    (edtdutyclassname.text<>mydg.DataSource.DataSet.FieldByName('classname').Text))
  then
  begin
    if (gv_qry.fields[0].AsInteger>0) then
    begin
      result:=false;
      showmessage('该班别已存在，请重新输入');
      edtdutyclassname.SetFocus;
      exit;
    end;
  end;
  if edtdutyclassname.Text='' then
  begin
      result:=false;
      showmessage('请输入用户ID!');
      edtdutyclassname.SetFocus;
      exit
  end;


end;
end.