pvar_lib.pas

POS收银系统

unit pvar_lib;



interface
uses
StdCtrls,DBCtrls, Db, DBTables,classes,inifiles, sysutils,pfm_optrecord;

type mTFieldName=array[0..30] of string;//记录字段中文名字
type mTFieldCap=array[0..30] of string; //字段名
type mTFieldType=array[0..30] of TFieldType;//字段类型
var
//ftBoolean.ftCurrency.ftDateTime.ftFloat..ftInteger.ftString
mUserright:TStringlist;
mFieldName:mTfieldname;
mfieldCap:mTfieldCap;
mFieldType:mTFieldType;
mFieldNum:Integer;
mUsername:string;
mUserpass:string;
mpname:string;
mUserid:string;//用户帐号
rptwherestr:string;//打印报表的查询条件

NumOp:array[0..5] of string
        =('<','<=','=','>','>=','<>');
DTOp:array[0..5] of string
        =('>','<=','=','>','>=','<>');
StrOp:array[0..7] of string
        =('>','<=','=','>','>=','<>','LIKE','NOT LIKE');
sQuerySql:string;
function InitSave2(msection:string;mitem:string;mvalue:string):boolean;
function InitRead2(msection:string;mitem:string;mDefVal:string):string;
procedure AddOptRecord(optAction:string);//加入销售日志

implementation
function InitSave2(msection:string;mitem:string;mvalue:string):boolean;
var
myinifile:Tinifile;
begin
    myinifile:=Tinifile.Create('ini\admin.ini');
    with myinifile do
    begin
        writestring(msection,mitem,mvalue);
    end;
    myinifile.Free;
    InitSave2:=true;
end;

function InitRead2(msection:string;mitem:string;mDefVal:string):string;
var
mRetValue:string;
myinifile:Tinifile;
begin
    myiniFile:=Tinifile.Create('ini\admin.ini');
    mRetValue:=myinifile.ReadString(msection,mitem,mDefVal);
    InitRead2:=mRetValue;
end;
procedure AddOptRecord(optAction:string);
begin
    fm_optrecord.qryRec.Databasename:='posdb';
    fm_optrecord.qryRec.sql.clear;
    fm_optrecord.qryRec.sql.add('insert into t_optrecord(musername,mpname,rq,maction) values('''+
    mUsername+''','''+mpname+''','''+datetimetostr(now)+''','''+optAction+''')');
    fm_optrecord.qryRec.ExecSQL;
end;
end.