ucostomerfunc.pas

小银行系统

unit uCostomerFunc;

interface

uses
  DB, ADODB;

Type
   TArrayString = array of string;
   TarrayDouble = array of Double;
//执行SQL语句
Procedure ExecSql(aSqlstr : string;aAdoConnection : TAdoConnection;var aResult : integer );
//接卡时处理字符串行数（将其传入的字串格式化成标准格式）
function FormatCardStr(aDate,aDate1,aInuptStr : string) : string;

implementation

Procedure ExecSql(aSqlstr : string;aAdoConnection : TAdoConnection;var aResult : integer );
var
  TmpAdo : TAdoDataSet;
begin
  TmpAdo := TAdoDataSet.create(nil);
  try
    TmpAdo.Close;
    TmpAdo.Connection := aAdoConnection;
    TmpAdo.CommandText := aSqlstr;
    TmpAdo.Open;
    aResult := TmpAdo.FieldList[0].AsInteger;
  finally
    TmpAdo.Free;
  end;
end;
//接卡时处理字符串行数（将其传入的字串格式化成标准格式）
function FormatCardStr(aDate,aDate1,aInuptStr : string) : string;
var
  iPos,i : integer;
  aryTmpStr : TArrayString;
  Tmpstr : string;
begin
  Result := '';
  SetLength(aryTmpStr,0);
  Tmpstr := aInuptStr;
  i := 0;
  while pos(',',Tmpstr) <> 0 do
  begin
    inc(i);
    iPos := pos(',',Tmpstr);
    if iPos <> 0  then
    begin
      SetLength(aryTmpStr,i);
      aryTmpStr[i-1] := copy(Tmpstr,1,iPos -1);
      Tmpstr := copy(Tmpstr,iPos + 1,Length(Tmpstr));
    end;
  end;    // while

  if High(aryTmpStr) > 0 then
  if (aryTmpStr[2] >= adate) and (aryTmpStr[2] <= aDate1) then
    Result := copy(aryTmpStr[1],1,10) + aryTmpStr[2] +
              copy(aryTmpStr[3],1,2) + copy(aryTmpStr[3],4,2)
  else
    Result := '';            
end;
end.