commonfunc.pas

来自「这是一个超市管理系统源代码,看上去还不错,大家看下」· PAS 代码 · 共 76 行

unit CommonFunc;

interface
uses StdCtrls, DB;

procedure ForbitInValidNum(var AKey: Char);
procedure LCShowMessage(AMessage: string; ACaption: string='提示');
function LCConfirmDlg(AMessage: string; ACaption: string='提示'): integer;
function CheckInput(Sender: TObject): boolean;
function GetApplicationPath: string;
function LCConfirmEx(AId, AMsg: string; ACaption: string = '提示'):integer;
procedure PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);

implementation

uses Windows, Forms, SysUtils, notshowagainfrm;

procedure ForbitInValidNum(var AKey: Char);
begin
  if not((AKey='1') or (AKey='2') or (AKey='') or (AKey='3') or (AKey='4')
    or (AKey='5') or (AKey='6') or (AKey='7') or (AKey='8') or (AKey='9')
    or (AKey='0') or (AKey='.') )then
  begin
    AKey := #0;
  end;
end;
procedure LCShowMessage(AMessage: string; ACaption: string='提示');
begin
  MessageBox(Application.Handle, PChar(AMessage), PChar(ACaption), MB_OK);
end;

function LCConfirmDlg(AMessage: string; ACaption: string='提示'): integer;
begin
  result := MessageBox(Application.Handle, PChar(AMessage),
    PChar(ACaption), MB_YesNo);
end;


function CheckInput(Sender: TObject): boolean;
begin
  result := true;
  if Trim((Sender as TCustomEdit).Text) = '' then
  begin
    LCShowMessage('此栏必须填写', '错误');
    (Sender as TCustomEdit).SetFocus;
    result := false;
  end;
end;

function GetApplicationPath: string;
begin
  result := ExcludeTrailingPathDelimiter(
    ExtractFilePath(Application.ExeName))+'\';
end;

function LCConfirmEx(AId, AMsg: string; ACaption: string = '提示'): integer;
var
  LDlg: TNotShowAgainDlg;
begin
  LDlg := TNotShowAgainDlg.Create(nil);
  LDlg.Caption := ACaption;
  LDlg.Id := AId;
  LDlg.Msg := AMsg;
  result := LDlg.ShowModal;
  FreeAndNil(LDlg);
end;

procedure PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
begin
    LCShowMessage(E.Message+'编码重复！');
end;

end.