upublic.pas

商场销售信息系统只要用于小商场的销售管理

unit uPublic;

interface
uses StdCtrls,Dialogs;
type
TUserInfo=record
  UserID:integer;
  UserName:string[20];
  Password:string[15];
  Level:integer;
  Gtdm:integer;
end;
//以下定义全局变量
var

AppPath:string;  //应用程序路径
connstr:string;
Conn:OLEVariant;
VarExcel,range:OLEVariant;
Rs:OLEVariant;
UserInfoA,UserInfoB:TUserInfo;
Login:boolean;
strSql:string;
const
YinHao='''';


procedure MxFormatEditKeyPress(Edit:TCustomEdit;var Key:Char;EditType:integer;
        Digits:integer);
implementation

procedure MxFormatKeyPress(Text:string;SelStart,SelLength:integer;
        var Key:Char;EditType:integer;Digits:integer);
begin
  if (Key=#27) or (Key=#8) or (EditType=1) then exit;
  if EditType=2 then
    if not (Key in ['0'..'9','+','-'] ) then Key:=#0;
  if EditType=3 then
  begin
    if (key='.') and (pos('.',Text )>0)then Key:=#0;
    if not (Key in ['0'..'9','+','-','.'] ) then Key:=#0;
    if (Digits>0) and (pos('.',Text )>0)then
       if length(Text)-pos('.',Text )>=Digits then Key:=#0;

  end;
  //控制+-
  if (Key ='-') or (Key='+' ) then begin
    if ((Pos('-',Text) > 0) or (Pos('+',Text) > 0 )) and
            (SelLength=0 ) then Key:=#0;
    if SelStart > 0 then Key:=#0;
  end;
  //控制.
  if (Key = '.') and (EditType=3 ) then begin
    if (Pos('.',Text) > 0) and (not((SelStart=Pos('.',Text) ))) then Key:=#0;
    if SelStart=0 then Key:=#0;
    if (Digits>0)  and (EditType=3) then
    begin
    if (pos('.',Text )>0 ) and (SelStart>=pos('.',Text)) then
      if length(Text)-pos('.',Text )>=Digits then Key:=#0;
    end;

end;

end;


procedure MxFormatEditKeyPress(Edit:TCustomEdit;var Key:Char;EditType:integer;
        Digits:integer);
begin
  MxFormatKeyPress(Edit.Text,Edit.SelStart,Edit.SelLength,Key,EditType,Digits);
end;
end.