fm_utl.pas

商品入库

     IF F_MESSAGE <> '' THEN SHOWMESSAGE(F_MESSAGE);
     RESULT := FALSE;
     END ELSE RESULT := TRUE;
END;

//更新数据库 POST
FUNCTION FM_DB_QUERY_POST(T_DATABASE:TDATABASE;T_QUERY:TQUERY):boolean;
BEGIN
  try
    WITH T_QUERY    AS TQUERY    DO Post;
    WITH T_DATABASE AS TDATABASE DO STARTTRANSACTION;
    WITH T_QUERY    AS TQUERY    DO ApplyUpdates;
    WITH T_QUERY    AS TQUERY    DO CommitUpdates;
    WITH T_DATABASE AS TDATABASE DO COMMIT;
    RESULT := TRUE;
  EXCEPT
    WITH T_DATABASE AS TDATABASE DO ROLLBACK;
    WITH T_QUERY    AS TQUERY    DO CANCELUpdates;
    SHOWMESSAGE('存盘失败!');
    RESULT := FALSE;
  END;
END;

FUNCTION FM_DB_QUERY_UPDATE(T_DATABASE:TDATABASE;T_QUERY:TQUERY):boolean;
BEGIN
  try
    WITH T_DATABASE AS TDATABASE DO STARTTRANSACTION;
    WITH T_QUERY    AS TQUERY    DO ApplyUpdates;
    WITH T_QUERY    AS TQUERY    DO CommitUpdates;
    WITH T_DATABASE AS TDATABASE DO COMMIT;
    RESULT := TRUE;
  EXCEPT
    WITH T_DATABASE AS TDATABASE DO ROLLBACK;
    WITH T_QUERY    AS TQUERY    DO CANCELUpdates;
    SHOWMESSAGE('存盘失败!');
    RESULT := FALSE;
  END;
END;








FUNCTION REGISTER_NUMBER_POS(CPU_ID:LONGINT):STRING;
VAR T_REG:LONGINT;
BEGIN
 T_REG  := (((CPU_ID *2) +4) *6)+8         ;
 RESULT := COPY_R(INTTOSTR(T_REG),1,8);
END;

FUNCTION REGISTER_NUMBER_WHOUSE(CPU_ID:LONGINT):STRING;
VAR T_REG:LONGINT;
BEGIN
 T_REG  := (((CPU_ID *5) +3) *4)-2    ;
 RESULT := COPY_R(INTTOSTR(T_REG),1,8);
END;










FUNCTION REGISTER_POS_CREATE(T_REG_NAME:STRING):BOOLEAN;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    IF Reg.OpenKey(T_REG_NAME,True) then
       BEGIN
       Reg.WriteDate   ('RUN_FIRST_DATE',DATE);
       Reg.WriteInteger('CPU_ID'        ,GetCPUID[4]);
       Reg.WriteString ('SF_ID'         ,'');
       RESULT := TRUE;
       END ELSE RESULT := FALSE;
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_POS_REGISTER(T_REG_NAME, T_SF_ID:STRING):BOOLEAN;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    IF Reg.OpenKey(T_REG_NAME,True) then
       BEGIN
       Reg.WriteString ('SF_ID' ,T_SF_ID);
       RESULT := TRUE;
       END ELSE RESULT := FALSE;
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_KEY_VALUE_STR (T_REG_NAME, T_KEY:STRING):STRING;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    IF Reg.OpenKey(T_REG_NAME,True) then RESULT := Reg.ReadString (T_KEY);
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_KEY_VALUE_DATE(T_REG_NAME, T_KEY:STRING):TDATE;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    IF Reg.OpenKey(T_REG_NAME,True) then RESULT := Reg.ReadDate (T_KEY);
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_KEY_CHECK(T_REG_NAME:STRING):BOOLEAN;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    RESULT := Reg.KeyExists( T_REG_NAME );
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_KEY_CREATE(T_REG_NAME:STRING):BOOLEAN;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey( T_REG_NAME ,True);
    RESULT := TRUE;
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_KEY_DELETE(T_REG_NAME:STRING):BOOLEAN;
var REG: TRegistry;
BEGIN
  REG := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.DeleteKey( T_REG_NAME );
    RESULT := TRUE;
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;
















FUNCTION REGISTER_SAVE_OBJECT_INT(T_REG_NAME:STRING;T_KEY:INTEGER):BOOLEAN;
VAR REG: TRegistry;
BEGIN
  RESULT      := FALSE;
  REG         := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  TRY
    IF Reg.OpenKey(T_REG_NAME,True) THEN
       BEGIN
       Reg.WriteInteger(T_REG_NAME, T_KEY);
       RESULT := TRUE;
       END;
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_SAVE_OBJECT_STR(T_REG_NAME:STRING;T_KEY:STRING ):BOOLEAN;
VAR REG: TRegistry;
BEGIN
  RESULT      := FALSE;
  REG         := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  TRY
    IF Reg.OpenKey(T_REG_NAME,True) THEN
       BEGIN
       Reg.WriteString(T_REG_NAME, T_KEY);
       RESULT := TRUE;
       END;
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;










FUNCTION REGISTER_LOAD_OBJECT_INT(T_REG_NAME:STRING;T_DEFAULT:INTEGER):INTEGER;
VAR REG: TRegistry;
BEGIN
  RESULT      := T_DEFAULT;
  REG         := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  TRY
    IF Reg.KeyExists(T_REG_NAME)=False THEN
       BEGIN
       Reg.OpenKey(T_REG_NAME,True);
       Reg.WriteInteger(T_REG_NAME, T_DEFAULT);
       Reg.CloseKey;
       END;
    IF Reg.OpenKey(T_REG_NAME,True)    THEN RESULT := Reg.ReadInteger(T_REG_NAME);
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;

FUNCTION REGISTER_LOAD_OBJECT_STR(T_REG_NAME:STRING;T_DEFAULT:STRING ):STRING;
VAR REG: TRegistry;
BEGIN
  RESULT      := T_DEFAULT;
  REG         := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  TRY
    IF Reg.KeyExists(T_REG_NAME)=False THEN
       BEGIN
       Reg.OpenKey(T_REG_NAME,True);
       Reg.WriteString(T_REG_NAME, T_DEFAULT);
       Reg.CloseKey;
       END;
    IF Reg.OpenKey(T_REG_NAME,True)    THEN RESULT := Reg.ReadString(T_REG_NAME);
  FINALLY
    Reg.CloseKey;
    Reg.Free;
  END;
END;














end.