frmedulevel.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 55 行

unit frmEduLevel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmDataManageBase, DB, ADODB, Grids, DBGrids, StdCtrls, DBCtrls,
  Mask, ExtCtrls, LCDBOperatTool;

type
  TFormEduLevel = class(TFormDataManageBase)
    ADOTableId: TSmallintField;
    ADOTableName: TWideStringField;
    ADOTableRemark: TMemoField;
    ADOQ: TADOQuery;
    procedure LCDBOperatTool1Click(Btn: TToolButton;
      var Continued: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormEduLevel: TFormEduLevel;

implementation
uses CommonFunc, untGlobal;
{$R *.dfm}

procedure TFormEduLevel.LCDBOperatTool1Click(Btn: TToolButton;
  var Continued: Boolean);
begin
  inherited;
  case Btn of
    tbPost:
      if LCDBOperatTool1.BtnMode = bmAdd then
      begin
        try
          ADOQ.Close;
          ADOQ.Parameters.ParamByName('id').Value := Trim(DBEdtId.Text);
          ADOQ.Open;
          if ADOQ.RecordCount >0 then
          begin
            LCShowMessage(Format(COLUMNREPLICATE,['学历编码']));
            Continued := false;
          end;
        except
        end;
      end;
  end;
end;

end.