mainu.pas

DELPHI编写的商场收银POS机源代码

//试用版记录数限定
FUNCTION CHECK_DEMO_VERSION_RECCNT(T_TABLE:STRING):BOOLEAN;
VAR QCHECK : TQUERY;
BEGIN

IF UNSETREAD('SYSSET','S_VER0') = '1' THEN
   BEGIN
   TRY
    QCHECK := TQUERY.Create(APPLICATION.Owner);
    QCHECK.DatabaseName := 'MAIN';
    QCHECK.SQL.Clear;
    QCHECK.SQL.Add('SELECT COUNT(*) FROM '+T_TABLE);
    QCHECK.Close;
    QCHECK.Open;
    IF QCHECK.Fields.Fields[0].AsInteger >= 12 THEN
       BEGIN
       SHOWMESSAGE('您所使用的为试用版，请和本公司联系，谢谢!');
       RESULT := FALSE;
       END ELSE RESULT := TRUE;
   FINALLY
    QCHECK.Free;
   END;
   END ELSE BEGIN
   RESULT := TRUE;
   END;
END;


//字符串查询
FUNCTION FINDFORM_WHEREKEY_STRING(F_NAME, T_STR1,T_STR2:STRING):STRING;
BEGIN
  RESULT := '';
  IF F_NAME <> '' THEN
     BEGIN
     IF (TRIM(T_STR1)<>'')AND(TRIM(T_STR2)<>'') THEN
        BEGIN
        RESULT := 'AND '+F_NAME+'>='''+TRIM(T_STR1)+'''AND '+F_NAME+'<='''+TRIM(T_STR2)+'''';
        END ELSE BEGIN
        IF TRIM(T_STR1)<>'' THEN RESULT := 'AND '+F_NAME+' LIKE '''+'%'+T_STR1+'%'+'''';
        IF TRIM(T_STR2)<>'' THEN RESULT := 'AND '+F_NAME+' LIKE '''+'%'+T_STR2+'%'+'''';
        END;
     END;
END;

//数字查询
FUNCTION FINDFORM_WHEREKEY_INTEGER(F_NAME, T_INT1,T_INT2:STRING):STRING;
BEGIN
  RESULT := '';
  IF F_NAME <> '' THEN
     BEGIN
     IF (TRIM(T_INT1)<>'')AND(TRIM(T_INT2)<>'') THEN
        BEGIN
        RESULT := 'AND '+F_NAME+'>='+TRIM(T_INT1)+' AND '+F_NAME+'<='+TRIM(T_INT2)+'';
        END ELSE BEGIN
        IF TRIM(T_INT1)<>'' THEN RESULT := 'AND '+F_NAME+' = '+T_INT1+'';
        IF TRIM(T_INT2)<>'' THEN RESULT := 'AND '+F_NAME+' = '+T_INT2+'';
        END;
     END;
END;

//ACCESS " DATE " WHERE KEY  ======================
FUNCTION FINDFORM_WHEREKEY_DATE(F_NAME, T_DATE1,T_DATE2:STRING):STRING;
VAR T1, T2 : STRING;
BEGIN
  RESULT := '';

  // modified by ds
  //IF T_DATE1 <> '' THEN T1 := CDATE_TO_EDATE(T_DATE1);
  //IF T_DATE2 <> '' THEN T2 := CDATE_TO_EDATE(T_DATE2);
  // modified by ds

  IF T_DATE1 <> '' THEN T1 := T_DATE1;
  IF T_DATE2 <> '' THEN T2 := T_DATE2;

  IF (TRIM(T1)<>'')AND(TRIM(T2)<>'') THEN
     BEGIN
     RESULT := 'AND '+F_NAME+'>='+_DT+ T1 +_DT+' AND '+F_NAME+'<='+_DT+ T2 +_DT+'';
     END ELSE BEGIN
     IF TRIM(T1)<>'' THEN RESULT := 'AND '+F_NAME+' = '+_DT+ T1 +_DT+'';
     IF TRIM(T2)<>'' THEN RESULT := 'AND '+F_NAME+' = '+_DT+ T2 +_DT+'';
     END;
END;

//查询 排序    //ORDER BYE=======================================
FUNCTION FINDFORM_ORDERBY3(F_NAME1,F_NAME2,F_NAME3:STRING; I_1, I_2, I_3 :INTEGER):STRING;
VAR T_STR : ARRAY[1..3] OF STRING;
    T_RETURN : STRING;
BEGIN
  T_RETURN := '';
  T_STR [1] := F_NAME1;
  T_STR [2] := F_NAME2;
  T_STR [3] := F_NAME3;

  IF I_1 >= 0 THEN
     BEGIN
     T_RETURN := T_RETURN + 'ORDER BY '+T_STR[I_1+1] ;
     IF I_2 >= 0 THEN
        BEGIN
                         T_RETURN := T_RETURN + ', '+T_STR[I_2+1] ;
        IF I_3 >= 0 THEN T_RETURN := T_RETURN + ', '+T_STR[I_3+1] ;
        END;
     END;

  RESULT := T_RETURN;
END;

// 检查个人信息
FUNCTION POS_CHECK_PERSONAL_MESSAGE(T_BNENO:STRING):STRING;
VAR QCHECK : TQUERY;
BEGIN
  TRY
   RESULT := '';
   QCHECK := TQUERY.Create(APPLICATION.Owner);
   QCHECK.DatabaseName := 'MAIN';
   QCHECK.SQL.Clear;
   QCHECK.SQL.ADD('SELECT * FROM SYSLST ');
   QCHECK.SQL.ADD('WHERE LSTID1 = ''BNENOMSG''');
   QCHECK.SQL.ADD('  AND LSTNAM = ''EVERONE'' ');
   QCHECK.CLOSE;
   QCHECK.OPEN;
   IF QCHECK.Eof = FALSE THEN
      BEGIN
      RESULT := RESULT + '全部信息' + #13;
      QCHECK.FIRST;
      WHILE NOT QCHECK.EOF DO
        BEGIN
        RESULT := RESULT + QCHECK.FieldByName('LSTMRK').AsString + #13;
        QCHECK.NEXT;
        END;
      END;
   QCHECK.SQL.Clear;
   QCHECK.SQL.ADD('SELECT * FROM SYSLST ');
   QCHECK.SQL.ADD('WHERE LSTID1 = ''BNENOMSG''');
   QCHECK.SQL.ADD('  AND LSTNAM = '''+T_BNENO+'''');
   QCHECK.CLOSE;
   QCHECK.OPEN;
   IF QCHECK.Eof = FALSE THEN
      BEGIN
      RESULT := RESULT + '=====================' + #13;
      RESULT := RESULT + '个人信息' + #13;
      QCHECK.FIRST;
      WHILE NOT QCHECK.EOF DO
        BEGIN
        RESULT := RESULT + QCHECK.FieldByName('LSTMRK').AsString + #13;
        QCHECK.NEXT;
        END;
      END;
  FINALLY
   QCHECK.Free;
  END;
END;


// 检查个人信息
FUNCTION POS_DEL_PERSONAL_MESSAGE(T_BNENO:STRING):STRING;
VAR QCHECK : TQUERY;
BEGIN
  TRY
   QCHECK := TQUERY.Create(APPLICATION.Owner);
   QCHECK.DatabaseName := 'MAIN';
   QCHECK.SQL.Clear;
   QCHECK.SQL.ADD('DELETE FROM SYSLST ');
   QCHECK.SQL.ADD('WHERE LSTID1 = ''BNENOMSG''');
   QCHECK.SQL.ADD('  AND LSTNAM = '''+T_BNENO+'''');
   QCHECK.ExecSQL;
  FINALLY
   QCHECK.Free;
  END;
END;

//修改编号限定
FUNCTION CHANGE_BGENO(S_BGENO,T_BGENO:STRING):BOOLEAN;
BEGIN
  RESULT := FALSE;
  IF TRIM(S_BGENO) = '' THEN EXIT;
  IF TRIM(T_BGENO) = '' THEN EXIT;
  IF TABLECHECK_RE1('BGDS','BGENO',S_BGENO) > 0 THEN
     BEGIN
     IF (TABLECHECK_RE1('BGDS','BGENO',T_BGENO) >= 1)AND(S_BGENO<>T_BGENO) THEN
        BEGIN
        SHOWMESSAGE('编号重复!'); RESULT := FALSE; EXIT;
        END;
     DB_QUERY_UPDATE_VALUE_STRING('RPCHB','BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCSG' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCSGT','BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RBRN' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCINB','BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCONB','BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RQKI' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('RQKO' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('POSB' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('POSM' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('POSN' ,'BGEN1',S_BGENO,'BGEN1',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('POSN' ,'BGEN2',S_BGENO,'BGEN2',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('IVTA' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('IVTT' ,'BGEN1',S_BGENO,'BGEN1',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('IVTT' ,'BGEN2',S_BGENO,'BGEN2',T_BGENO );
     DB_QUERY_UPDATE_VALUE_STRING('ACUS' ,'BGENO',S_BGENO,'BGENO',T_BGENO );
     RESULT := TRUE;
     END ELSE BEGIN
     END;
END;

FUNCTION CHANGE_BMENO(S_BMENO,T_BMENO:STRING):BOOLEAN;
BEGIN
  RESULT := FALSE;
  IF TRIM(S_BMENO) = '' THEN EXIT;
  IF TRIM(T_BMENO) = '' THEN EXIT;
  IF TABLECHECK_RE1('BMEM','BMENO',S_BMENO) > 0 THEN
     BEGIN
     DB_QUERY_UPDATE_VALUE_STRING('POSA' ,'BMENO',S_BMENO,'BMENO',T_BMENO );
     DB_QUERY_UPDATE_VALUE_STRING('CCAW' ,'BMENO',S_BMENO,'BMENO',T_BMENO );
     RESULT := TRUE;
     END ELSE BEGIN
     END;
END;

FUNCTION CHANGE_BSENO(S_BSENO,T_BSENO:STRING):BOOLEAN;
BEGIN
  RESULT := FALSE;
  IF TRIM(S_BSENO) = '' THEN EXIT;
  IF TRIM(T_BSENO) = '' THEN EXIT;
  IF TABLECHECK_RE1('BSUP','BSENO',S_BSENO) > 0 THEN
     BEGIN
     DB_QUERY_UPDATE_VALUE_STRING('BGDS' ,'BSENO',S_BSENO,'BSENO',T_BSENO );
     DB_QUERY_UPDATE_VALUE_STRING('RPCHA','BSENO',S_BSENO,'BSENO',T_BSENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCSG' ,'RGICS',S_BSENO,'RGICS',T_BSENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCIN' ,'BSENO',S_BSENO,'BSENO',T_BSENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCII' ,'BSENO',S_BSENO,'BSENO',T_BSENO );
     DB_QUERY_UPDATE_VALUE_STRING('RQKI' ,'BSENO',S_BSENO,'BSENO',T_BSENO );
     RESULT := TRUE;
     END ELSE BEGIN
     END;
END;

FUNCTION CHANGE_BCENO(S_BCENO,T_BCENO:STRING):BOOLEAN;
BEGIN
  RESULT := FALSE;
  IF TRIM(S_BCENO) = '' THEN EXIT;
  IF TRIM(T_BCENO) = '' THEN EXIT;
  IF TABLECHECK_RE1('BCST','BCENO',S_BCENO) > 0 THEN
     BEGIN
     DB_QUERY_UPDATE_VALUE_STRING('RCON' ,'BCENO',S_BCENO,'BCENO',T_BCENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCOI' ,'BCENO',S_BCENO,'BCENO',T_BCENO );
     DB_QUERY_UPDATE_VALUE_STRING('RQKO' ,'BCENO',S_BCENO,'BCENO',T_BCENO );
     RESULT := TRUE;
     END ELSE BEGIN
     END;
END;

FUNCTION CHANGE_BNENO(S_BNENO,T_BNENO:STRING):BOOLEAN;
BEGIN
  RESULT := FALSE;
  IF TRIM(S_BNENO) = '' THEN EXIT;
  IF TRIM(T_BNENO) = '' THEN EXIT;
  IF TABLECHECK_RE1('BMAN','BNENO',S_BNENO) > 0 THEN
     BEGIN
     DB_QUERY_UPDATE_VALUE_STRING('SYSPSW','BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('SYSPMS','BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('SYSLOG','BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('BCST'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('BSAL'  ,'BAENO',S_BNENO,'BAENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RPCHA' ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCSG'  ,'RGRBN',S_BNENO,'RGRBN',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCSGT' ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCIN'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCII'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCII'  ,'RAMAN',S_BNENO,'RAMAN',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCON'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCON'  ,'ROMAN',S_BNENO,'ROMAN',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCOI'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RCOI'  ,'RBMAN',S_BNENO,'RBMAN',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RQKI'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('RQKO'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('POSA'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     DB_QUERY_UPDATE_VALUE_STRING('ACUS'  ,'BNENO',S_BNENO,'BNENO',T_BNENO );
     RESULT := TRUE;
     END ELSE BEGIN
     END;
END;

FUNCTION DOWNLOAD_TABLE(TABLE_NAME, FILE_NAME:STRING):INTEGER;
VAR I, J, CNT : INTEGER;
    FILENAME , STR: STRING;
    TF : TEXTFILE;
    QCHECK : TQUERY;
BEGIN
  CNT := 0;

  TRY
   QCHECK := TQUERY.Create(APPLICATION.Owner);
   QCHECK.DatabaseName := 'MAIN';
   QCHECK.SQL.Clear;
   QCHECK.SQL.ADD('SELECT * FROM '+TABLE_NAME);
   QCHECK.CLOSE;
   QCHECK.OPEN;

   IF FileExists(FILENAME) = FALSE THEN FILE_CREATE(FILE_NAME);
   IF TEST_OPEN_FILE(FILE_NAME) = TRUE THEN
      BEGIN
      AssignFile(TF,FILE_NAME);
      REWRITE(TF);

      QCHECK.FIRST;
      WHILE NOT QCHECK.EOF DO
        BEGIN
        FOR I := 0 TO QCHECK.FieldCount-1 DO
           BEGIN
           STR := QCHECK.Fields.Fields[I].AsString;
           IF QCHECK.Fields.Fields[I].DataType = ftString   THEN STR := STR+ REPLICATE(' ',QCHECK.Fields.Fields[I].DataSize-LENGTH(STR));
           IF QCHECK.Fields.Fields[I].DataType = ftFloat    THEN STR := STR+ REPLICATE(' ',8-LENGTH(STR));
           IF QCHECK.Fields.Fields[I].DataType = ftDateTime THEN STR := STR+ REPLICATE(' ',10-LENGTH(STR));
           WRITE(TF,STR);
           END;
        WRITELN(TF,'');
        QCHECK.NEXT;
        INC(CNT);
        END;

      CloseFile(TF);
      END;

  FINALLY
    QCHECK.Free;
  END;

  RESULT := CNT;
END;

FUNCTION DOWNLOAD_TABLEADD(TABLE_NAME, FILE_NAME:STRING):INTEGER;
VAR I, J, CNT : INTEGER;
    FILENAME , STR: STRING;
    TF : TEXTFILE;
    QCHECK : TQUERY;
BEGIN
  CNT := 0;

  TRY
   QCHECK := TQUERY.Create(APPLICATION.Owner);
   QCHECK.DatabaseName := 'MAIN';

   QCHECK.SQL.Clear;
   QCHECK.SQL.ADD('SELECT * FROM '+TABLE_NAME);
   QCHECK.CLOSE;
   QCHECK.OPEN;
  
   IF TEST_OPEN_FILE(FILE_NAME) = TRUE THEN
     BEGIN
     AssignFile(TF,FILE_NAME);
     APPEND(TF);
  
     QCHECK.FIRST;
     WHILE NOT QCHECK.EOF DO
       BEGIN
       FOR I := 0 TO QCHECK.FieldCount-1 DO
           BEGIN
           STR := QCHECK.Fields.Fields[I].AsString;
           IF QCHECK.Fields.Fields[I].DataType = ftString   THEN STR := STR+ REPLICATE(' ',QCHECK.Fields.Fields[I].DataSize-LENGTH(STR));
           IF QCHECK.Fields.Fields[I].DataType = ftFloat    THEN STR := STR+ REPLICATE(' ',8-LENGTH(STR));
           IF QCHECK.Fields.Fields[I].DataType = ftDateTime THEN STR := STR+ REPLICATE(' ',10-LENGTH(STR));
           WRITE(TF,STR);
           END;
       WRITELN(TF,'');
       QCHECK.NEXT;
       INC(CNT);
       END;

     CloseFile(TF);
     END;

  FINALLY
    QCHECK.Free;
  END;