📄 maint.pas

📁 主要介绍超市管理系统的后台系统,后台程序是系统初始化和系统维护最常使用的一部分程序,主要任务是建产基本数据,进出货盘点和打印报表.后台程序主要负责的都是管理上的功能,当后台建立完整的数据后,前台才能顺
💻 PAS
📖 第 1 页 / 共 4 页
字号:
END;

PROCEDURE TFMMAINT.INS_BMAN;
BEGIN
MEMO1.Lines.Add('检查人员设置');
PUERY.SQL.CLEAR;      //SERVER===============================
PUERY.SQL.ADD('SELECT * FROM BMAN');
PUERY.Close;
PUERY.OPEN;
Gauge.MaxValue := PUERY.RecordCount;

PUERY.FIRST;
WHILE NOT PUERY.EOF DO
 BEGIN
 QUERY1.SQL.CLEAR;      //LOCAL------------------------
 QUERY1.SQL.ADD('SELECT * FROM BMAN');
 QUERY1.SQL.ADD('WHERE BNENO = '''+PUERY.FieldByName('BNENO').AsString+'''');
 QUERY1.Close;
 QUERY1.OPEN;
 IF QUERY1.EOF = FALSE THEN // UPDATE
    BEGIN
    MEMO1.Lines.Add('更新人员设置 '+PUERY.FieldByName('BNENO').AsString+PUERY.FieldByName('BNNAM').AsString);
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.ADD('UPDATE BMAN ');
    QINS.SQL.ADD('SET ');
    QINS.SQL.ADD('BNENO = '''+PUERY.FieldByName('BNENO').AsString+''', ');
    QINS.SQL.ADD('BNNAM = '''+PUERY.FieldByName('BNNAM').AsString+'''  ');
    QINS.SQL.ADD('WHERE BNENO = '''+PUERY.FieldByName('BNENO').AsString+'''');
    TRY QINS.EXECSQL; EXCEPT MEMO1.Lines.Add('更新人员设置 '+PUERY.FieldByName('BNENO').AsString+PUERY.FieldByName('BNNAM').AsString+'更新失败');  END;
    END;
 IF QUERY1.EOF = TRUE THEN  //INSERT
    BEGIN
    MEMO1.Lines.Add('新增人员设置 '+PUERY.FieldByName('BNENO').AsString+PUERY.FieldByName('BNNAM').AsString);
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.ADD('INSERT INTO BMAN ');
    QINS.SQL.ADD(' ( BNENO, BNNAM ) ');
    QINS.SQL.ADD('VALUES (');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BNENO').AsString+''', ');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BNNAM').AsString+''') ');
    TRY QINS.EXECSQL; EXCEPT MEMO1.Lines.Add('更新人员设置 '+PUERY.FieldByName('BNENO').AsString+PUERY.FieldByName('BNNAM').AsString+'更新失败');  END;
    END;

 PUERY.Next;
 Gauge.AddProgress(1);
 END;

Gauge.Progress := 0;
END;

PROCEDURE TFMMAINT.INS_BGDS;
BEGIN
MEMO1.Lines.Add('检查新产品');
PUERY.SQL.CLEAR;      //SERVER===============================
PUERY.SQL.ADD('SELECT * FROM BGDS, BGDSB');
PUERY.SQL.ADD('WHERE BGDS.BGENO IS NOT NULL');
PUERY.SQL.ADD('  AND BGDS.BGENO = BGDSB.BGENO');
PUERY.SQL.ADD(SQLSERVERFINDFORM_WHEREKEY_DATE('BGDSB.BGDAT',BGDS_DAT1.Text,BGDS_DAT2.Text));
PUERY.Close;
PUERY.OPEN;
Gauge.MaxValue := PUERY.RecordCount;

PUERY.FIRST;
WHILE NOT PUERY.EOF DO
 BEGIN
 QUERY1.SQL.CLEAR;      //LOCAL------------------------
 QUERY1.SQL.ADD('SELECT * FROM BGDS');
 QUERY1.SQL.ADD('WHERE BGENO = '''+PUERY.FieldByName('BGENO').AsString+'''');

 QUERY1.Close;
 QUERY1.OPEN;
 IF QUERY1.EOF = FALSE THEN // UPDATE
    BEGIN
    MEMO1.Lines.Add('更新产品 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString);
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.ADD('UPDATE BGDS ');
    QINS.SQL.ADD('SET ');
//    QINS.SQL.ADD('BGENO = '''+PUERY.FieldByName('BGENO').AsString+''', ');
    QINS.SQL.ADD('BGNAM = '''+PUERY.FieldByName('BGNAM').AsString+''', ');
    QINS.SQL.ADD('BGKIN = '''+PUERY.FieldByName('BGKIN').AsString+''', ');
    QINS.SQL.ADD('BGPST =   '+PUERY.FieldByName('BGPVP').AsString+'  , ');
    QINS.SQL.ADD('BGPVP =   '+PUERY.FieldByName('BGPST').AsString+'  , ');
    QINS.SQL.ADD('BGPMM =   '+PUERY.FieldByName('BGPMM').AsString+'  , ');
    QINS.SQL.ADD('BGQTS =   '+PUERY.FieldByName('BGQTS').AsString+'  , ');
    QINS.SQL.ADD('BGCOS =   '+PUERY.FieldByName('BGCOS').AsString+'  , ');
    QINS.SQL.ADD('BSENO = '''+PUERY.FieldByName('BSENO').AsString+''', ');
    QINS.SQL.ADD('BGID1 = '''+PUERY.FieldByName('BGID1').AsString+'''  ');
    QINS.SQL.ADD('WHERE BGENO = '''+PUERY.FieldByName('BGENO').AsString+'''');
    TRY
     QINS.EXECSQL;
     MEMO1.Lines.Add('产品 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'已更新');
    EXCEPT
     MEMO1.Lines.Add('产品 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'更新失败');
    END;
    END;
 IF QUERY1.EOF = TRUE THEN  //INSERT
    BEGIN
    MEMO1.Lines.Add('下载产品 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString);
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.ADD('INSERT INTO BGDS ');
    QINS.SQL.ADD(' ( BGENO, BGNAM, BGKIN, BGPST, BGPVP, BGPMM, BGQTS, BGCOS, BSENO, BGID1 ) ');
    QINS.SQL.ADD('VALUES (');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BGENO').AsString+''', ');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BGNAM').AsString+''', ');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BGKIN').AsString+''', ');
    QINS.SQL.ADD('   '+PUERY.FieldByName('BGPVP').AsString+'  , ');
    QINS.SQL.ADD('   '+PUERY.FieldByName('BGPST').AsString+'  , ');
    QINS.SQL.ADD('   '+PUERY.FieldByName('BGPMM').AsString+'  , ');
    QINS.SQL.ADD('   '+PUERY.FieldByName('BGQTS').AsString+'  , ');
    QINS.SQL.ADD('   '+PUERY.FieldByName('BGCOS').AsString+'  , ');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BSENO').AsString+''', ');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BGID1').AsString+''') ');
    TRY
     if TABLECHECK_RE1('BGDS','BGENO',PUERY.FieldByName('BGENO').AsString) <= 0 THEN
        QINS.EXECSQL;
     MEMO1.Lines.Add('产品 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'已下载');
    EXCEPT
     MEMO1.Lines.Add('产品 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'下载失败');
    END;
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.ADD('INSERT INTO BGDSB ');
    QINS.SQL.ADD(' ( BGENO ) ');
    QINS.SQL.ADD('VALUES (');
    QINS.SQL.ADD(' '''+PUERY.FieldByName('BGENO').AsString+''') ');
    TRY
     if TABLECHECK_RE1('BGDSB','BGENO',PUERY.FieldByName('BGENO').AsString) <= 0 THEN
        QINS.EXECSQL;
     MEMO1.Lines.Add('产品B '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'已下载');
    EXCEPT
     MEMO1.Lines.Add('产品B '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'下载失败');
    END;

    //新增库存
    TRY
     RBRN_CHECK_EXIST(PUERY.FieldByName('BGENO').AsString,_SYS_RBPST);
     MEMO1.Lines.Add('产品库存 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'已下载');
    EXCEPT
     MEMO1.Lines.Add('产品库存 '+PUERY.FieldByName('BGENO').AsString+PUERY.FieldByName('BGNAM').AsString+'下载失败');
    END;
    END;

 PUERY.Next;
 Gauge.AddProgress(1);
 END;

Gauge.Progress := 0;
END;

PROCEDURE TFMMAINT.INS_BMEM;
VAR
T_BMENO,T_BMNAM,T_BMCNA,T_BMBTH,T_BMSEX,T_BMLVE,T_BMBYR,T_BMBTO,T_BMBPO,
T_BMBTM,T_BMBDT,T_BMBYD,T_BMPGR,T_BMWPN,T_BMTL1,T_BMTL2,T_BMFX1,T_BMFX2,
T_BMAD1,T_BMAD2,T_BMEML,T_BMWWW,T_BMJND,T_BMCRD,T_BMDAT,T_BMMRK,T_BMZP1,T_BMZP2 :STRING;
BEGIN
MEMO1.Lines.Add('检查新会员');
PUERY.SQL.CLEAR;      //SERVER===============================
PUERY.SQL.ADD('SELECT * FROM BMEM');
PUERY.SQL.ADD('WHERE BMENO IS NOT NULL');
PUERY.SQL.ADD(SQLSERVERFINDFORM_WHEREKEY_DATE('BMDAT',BMEM_DAT1.Text,BMEM_DAT2.Text));
PUERY.Close;
PUERY.OPEN;
Gauge.MaxValue := PUERY.RecordCount;

PUERY.FIRST;
WHILE NOT PUERY.EOF DO
 BEGIN
 T_BMENO := TRIM(PUERY.FieldByName('BMENO').AsString);
 T_BMNAM := TRIM(PUERY.FieldByName('BMNAM').AsString);
 T_BMCNA := TRIM(PUERY.FieldByName('BMCNA').AsString);
 T_BMBTH := DATETOSTR(PUERY.FieldByName('BMBTH').AsDATETIME);
 T_BMSEX := TRIM(PUERY.FieldByName('BMSEX').AsString);
 T_BMLVE := INTTOSTR(PUERY.FieldByName('BMLVE').AsINTEGER);
 T_BMBYR := INTTOSTR(PUERY.FieldByName('BMBYR').AsINTEGER);
 T_BMBTO := INTTOSTR(PUERY.FieldByName('BMBTO').AsINTEGER);
 T_BMBPO := INTTOSTR(PUERY.FieldByName('BMBPO').AsINTEGER);
 T_BMBTM := INTTOSTR(PUERY.FieldByName('BMBTM').AsINTEGER);
 T_BMBDT := DATETOSTR(PUERY.FieldByName('BMBDT').AsDATETIME);
 T_BMBYD := DATETOSTR(PUERY.FieldByName('BMBYD').AsDATETIME);
 T_BMPGR := TRIM(PUERY.FieldByName('BMPGR').AsString);
 T_BMWPN := TRIM(PUERY.FieldByName('BMWPN').AsString);
 T_BMTL1 := TRIM(PUERY.FieldByName('BMTL1').AsString);
 T_BMTL2 := TRIM(PUERY.FieldByName('BMTL2').AsString);
 T_BMFX1 := TRIM(PUERY.FieldByName('BMFX1').AsString);
 T_BMFX2 := TRIM(PUERY.FieldByName('BMFX2').AsString);
 T_BMAD1 := TRIM(PUERY.FieldByName('BMAD1').AsString);
 T_BMAD2 := TRIM(PUERY.FieldByName('BMAD2').AsString);
 T_BMEML := TRIM(PUERY.FieldByName('BMEML').AsString);
 T_BMWWW := TRIM(PUERY.FieldByName('BMWWW').AsString);
 T_BMJND := DATETOSTR(PUERY.FieldByName('BMJND').AsDATETIME);
 T_BMCRD := DATETOSTR(PUERY.FieldByName('BMCRD').AsDATETIME);
 T_BMDAT := DATETOSTR(PUERY.FieldByName('BMDAT').AsDATETIME);
 T_BMMRK := TRIM(PUERY.FieldByName('BMMRK').AsString);
 T_BMZP1 := TRIM(PUERY.FieldByName('BMZP1').AsString);
 T_BMZP2 := TRIM(PUERY.FieldByName('BMZP2').AsString);
  
 QUERY1.SQL.CLEAR;      //LOCAL------------------------
 QUERY1.SQL.ADD('SELECT * FROM BMEM');
 QUERY1.SQL.ADD('WHERE BMENO = '''+PUERY.FieldByName('BMENO').AsString+'''');
 QUERY1.Close;
 QUERY1.OPEN;
 IF QUERY1.EOF = FALSE THEN // UPDATE
    BEGIN
    MEMO1.Lines.Add('更新会员 '+PUERY.FieldByName('BMENO').AsString+PUERY.FieldByName('BMNAM').AsString);
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.Add('UPDATE BMEM ');
    QINS.SQL.Add('SET ');
    QINS.SQL.Add('BMNAM = '''+T_BMNAM+''', ');
    QINS.SQL.Add('BMCNA = '''+T_BMCNA+''', ');
    QINS.SQL.Add('BMBTH =  #'+T_BMBTH+'# , ');
    QINS.SQL.Add('BMSEX = '''+T_BMSEX+''', ');
    QINS.SQL.Add('BMLVE =   '+T_BMLVE+'  , ');
    QINS.SQL.Add('BMBYR =   '+T_BMBYR+'  , ');
    QINS.SQL.Add('BMBTO =   '+T_BMBTO+'  , ');
    QINS.SQL.Add('BMBPO =   '+T_BMBPO+'  , ');
    QINS.SQL.Add('BMBTM =   '+T_BMBTM+'  , ');
    QINS.SQL.Add('BMBDT =  #'+T_BMBDT+'#,  ');
    QINS.SQL.Add('BMBYD =  #'+T_BMBYD+'#,  ');
    QINS.SQL.Add('BMPGR = '''+T_BMPGR+''', ');
    QINS.SQL.Add('BMWPN = '''+T_BMWPN+''', ');
    QINS.SQL.Add('BMTL1 = '''+T_BMTL1+''', ');
    QINS.SQL.Add('BMTL2 = '''+T_BMTL2+''', ');
    QINS.SQL.Add('BMFX1 = '''+T_BMFX1+''', ');
    QINS.SQL.Add('BMFX2 = '''+T_BMFX2+''', ');
    QINS.SQL.Add('BMAD1 = '''+T_BMAD1+''', ');
    QINS.SQL.Add('BMAD2 = '''+T_BMAD2+''', ');
    QINS.SQL.Add('BMZP1 = '''+T_BMZP1+''', ');
    QINS.SQL.Add('BMZP2 = '''+T_BMZP2+''', ');
    QINS.SQL.Add('BMEML = '''+T_BMEML+''', ');
    QINS.SQL.Add('BMWWW = '''+T_BMWWW+''', ');
    QINS.SQL.Add('BMJND =  #'+T_BMJND+'#,  ');
    QINS.SQL.Add('BMCRD =  #'+T_BMCRD+'#,  ');
    QINS.SQL.Add('BMDAT =  #'+T_BMDAT+'#,  ');
    QINS.SQL.Add('BMMRK = '''+T_BMMRK+'''  ');
    QINS.SQL.ADD('WHERE BMENO = '''+T_BMENO+'''');
    TRY
     QINS.EXECSQL;
     MEMO1.Lines.Add('会员 '+PUERY.FieldByName('BMENO').AsString+PUERY.FieldByName('BMNAM').AsString+'已更新');
    EXCEPT
     MEMO1.Lines.Add('会员 '+PUERY.FieldByName('BMENO').AsString+PUERY.FieldByName('BMNAM').AsString+'更新失败');
    END;
    END;
 IF QUERY1.EOF = TRUE THEN
    BEGIN
    MEMO1.Lines.Add('下载会员 '+PUERY.FieldByName('BMENO').AsString+PUERY.FieldByName('BMNAM').AsString);
    QINS.Close;   // LOCAL INSERT
    QINS.SQL.CLEAR;
    QINS.SQL.ADD('INSERT INTO BMEM ');
    QINS.SQL.ADD(' ( BMENO, BMNAM, BMCNA, BMBTH, BMSEX, BMLVE, BMBYR, BMBTO, BMBPO, BMBTM, BMBDT, BMBYD, BMPGR, BMWPN, BMTL1, BMTL2, BMFX1, BMFX2, BMAD1, BMAD2, BMEML, BMWWW, BMJND, BMCRD, BMDAT, BMMRK, BMZP1, BMZP2 ) ');
    QINS.SQL.ADD('VALUES (');
    QINS.SQL.ADD(' '''+T_BMENO+''', ');
    QINS.SQL.ADD(' '''+T_BMNAM+''', ');
    QINS.SQL.ADD(' '''+T_BMCNA+''', ');
    QINS.SQL.ADD('  #'+T_BMBTH+'# , ');
    QINS.SQL.ADD(' '''+T_BMSEX+''', ');
    QINS.SQL.ADD('   '+T_BMLVE+'  , ');
    QINS.SQL.ADD('   '+T_BMBYR+'  , ');
    QINS.SQL.ADD('   '+T_BMBTO+'  , ');
    QINS.SQL.ADD('   '+T_BMBPO+'  , ');
    QINS.SQL.ADD('   '+T_BMBTM+'  , ');
    QINS.SQL.ADD('  #'+T_BMBDT+'#, ');
    QINS.SQL.ADD('  #'+T_BMBYD+'#, ');
    QINS.SQL.ADD(' '''+T_BMPGR+''', ');
    QINS.SQL.ADD(' '''+T_BMWPN+''', ');
    QINS.SQL.ADD(' '''+T_BMTL1+''', ');
    QINS.SQL.ADD(' '''+T_BMTL2+''', ');
    QINS.SQL.ADD(' '''+T_BMFX1+''', ');
    QINS.SQL.ADD(' '''+T_BMFX2+''', ');
    QINS.SQL.ADD(' '''+T_BMAD1+''', ');
    QINS.SQL.ADD(' '''+T_BMAD2+''', ');
    QINS.SQL.ADD(' '''+T_BMEML+''', ');
    QINS.SQL.ADD(' '''+T_BMWWW+''', ');
    QINS.SQL.ADD('  #'+T_BMJND+'#, ');
    QINS.SQL.ADD('  #'+T_BMCRD+'#, ');
    QINS.SQL.ADD('  #'+T_BMDAT+'#, ');
    QINS.SQL.ADD(' '''+T_BMMRK+''', ');
    QINS.SQL.ADD(' '''+T_BMZP1+''', ');
    QINS.SQL.ADD(' '''+T_BMZP2+''') ');
    TRY
    //SHOWMESSAGE(QINS.SQL.TEXT);
    if TABLECHECK_RE1('BMEM','BMENO',T_BMENO) <= 0 THEN
       QINS.EXECSQL;
    MEMO1.Lines.Add('会员 '+PUERY.FieldByName('BMENO').AsString+PUERY.FieldByName('BMNAM').AsString+'已下载');
    EXCEPT
     MEMO1.Lines.Add('会员 '+PUERY.FieldByName('BMENO').AsString+PUERY.FieldByName('BMNAM').AsString+'下载失败');
    END;
    END;
  PUERY.Next;
  Gauge.AddProgress(1);
  END;

Gauge.Progress := 0;
END;

PROCEDURE TFMMAINT.INS_POSA;
VAR PAENO_S : STRING;
    PAENO,RBPST,BGCOT,BMENO,BNENO,PAIDE,PAIPN,PAIVO,PADAT,PATME,
    PACNO,PACDT,PACNA,PACKD,PACIV,PABCK,PABCN,PACPD,PAWEK :STRING;
    PBENO,RBCNT,BGENO,BGCNT,BGCOS,BGCOT2            :STRING;
    BGKIN : STRING;   //产品类别
    BMBPO : INTEGER;  //会员点数
BEGIN
MEMO1.Lines.Add('上传销售资料');
QUERY1.SQL.CLEAR;  //LOCAL===============================
QUERY1.SQL.ADD('SELECT * FROM POSA');
QUERY1.SQL.ADD('WHERE PABCN = 0 ');
QUERY1.SQL.ADD(SQLSERVERFINDFORM_WHEREKEY_DATE('PADAT',POSA_DAT1.Text,POSA_DAT2.Text));
QUERY1.Close;
QUERY1.OPEN;
Gauge.MaxValue := QUERY1.RecordCount;

QUERY1.FIRST;
WHILE NOT QUERY1.EOF DO
 BEGIN
 PUERY.SQL.CLEAR;      //SERVER------------------------
 PUERY.SQL.ADD('SELECT * FROM POSA');
 PUERY.SQL.ADD('WHERE PAENO = '''+QUERY1.FieldByName('PAENO').AsString+'''');
 PUERY.Close;
 PUERY.OPEN;
 PAENO := TRIM(        QUERY1.FieldByName('PAENO').AsString);
 RBPST := TRIM(        QUERY1.FieldByName('RBPST').AsString);
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -