main.~pas

超市系统开发 超市系统开发 超市系统开发 超市系统开发

  StatusBar.Panels.Items[2].Text := '计算机机种: '+GetCPUVendor;
  
  
  FMMAIN.Height := 150;
  I := UNSET_READ_SIN('_SYS_SET_MAINHT');
  IF I >=150 THEN FMMAIN.Height := I;
  T_STR := UNSET_READ_SST('_SYS_SET_MAINCR');
  IF T_STR <> '' THEN FMMAIN.COLOR := STRINGTOCOLOR(T_STR);
  FMMAIN.Caption := UNSET_READ_SME('_SYS_SET_MAINCP');
end;

procedure TFMMAIN.FormShow(Sender: TObject);
VAR I         : INTEGER;
    T_USES_DAY: REAL;
    T_BG : STRING;
begin

  IF REGISTER_KEY_VALUE_STR('\Software\WEB','SF_ID') <> REGISTER_NUMBER_POS(GetCPUID[4]) THEN
     BEGIN
     IF FormExists('FMAINR')=FALSE THEN Application.CreateForm(TFMMAINR, FMMAINR );
     FMMAINR.SHOWMODAL;
  
     //看看是否过期
     T_USES_DAY := DATE - REGISTER_KEY_VALUE_DATE('\Software\WEB','RUN_FIRST_DATE');
     {IF (T_USES_DAY > 90) OR (T_USES_DAY <  0) THEN}  // 90天限制
     if False then                                     // 无任何使用时间限制!!!
        BEGIN
        SHOWMESSAGE('本软件为标准版, '+#10#13+'若要合法并享用售后服务, 请洽本公司 !');
        CLOSE;
        EXIT;
        END;
  
     END ELSE BEGIN // 已登录完成
     IF FileExists('\SYSTEM.SYS') = FALSE  THEN FILE_CREATE('\SYSTEM.SYS');
     END;
  IF UNSET_READ_SBL ('_SYS_SET_LOGIN') = TRUE THEN
     BEGIN
     IF FormExists('FMLOG')=FALSE THEN Application.CreateForm(TFMLOG, FMLOG);
     _SUPER_USER := FALSE;
     FMLOG.LOGIN_NAME := '后台';
     Form_NORMAL_SHOWMODAL(FMLOG,-1,-1);


     END;
  //显示底图
  T_BG := UNSET_READ_SME('_SYS_SET_MAINBG');
  IF FileExists(T_BG) = TRUE THEN FMMAIN.Image_BG.Picture.LoadFromFile(T_BG);
     
end;



procedure TFMMAIN.BCSTClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BCST_OPEN') = FALSE THEN EXIT;

  IF FormExists('FMBCST' )=FALSE THEN Application.CreateForm(TFMBCST ,  FMBCST   );
  Form_NORMAL_SHOW(FMBCST,-1,-1);
end;

procedure TFMMAIN.M_FMPOSMClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'POSM_OPEN') = FALSE THEN EXIT;

  IF FormExists('FMPOSM' )=FALSE THEN Application.CreateForm(TFMPOSM ,  FMPOSM   );
  Form_NORMAL_SHOW(FMPOSM,-1,-1);
end;

procedure TFMMAIN.M_FMPOSNClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'POSN_OPEN') = FALSE THEN EXIT;

  IF FormExists('FMPOSN' )=FALSE THEN Application.CreateForm(TFMPOSN ,  FMPOSN   );
  Form_NORMAL_SHOW(FMPOSN,-1,-1);
end;

procedure TFMMAIN.M_FMRCINClick(Sender: TObject);
begin
  IF FormExists('FMRCIN' )=FALSE THEN Application.CreateForm(TFMRCIN , FMRCIN   );
  Form_NORMAL_SHOW(FMRCIN,-1,-1);
end;

procedure TFMMAIN.M_FMRCINBClick(Sender: TObject);
begin
  IF FormExists('FMRCJN' )=FALSE THEN Application.CreateForm(TFMRCJN , FMRCJN   );
  Form_NORMAL_SHOW(FMRCJN,-1,-1);
end;



procedure TFMMAIN.M_INVTClick(Sender: TObject);
begin
  IF FormExists('FRCOLLECT' )=FALSE THEN Application.CreateForm(TFRCOLLECT , FRCOLLECT );
  IF FormExists('FMIVTX' )=FALSE   THEN Application.CreateForm(TFMIVTX   , FMIVTX   );
  Form_NORMAL_SHOW(FMIVTX,-1,-1);
end;


procedure TFMMAIN.N19Click(Sender: TObject);
begin
  IF FormExists('FMCCAW' )=FALSE THEN Application.CreateForm(TFMCCAW ,  FMCCAW   );
  Form_NORMAL_SHOW(FMCCAW,-1,-1);
end;

procedure TFMMAIN.N67Click(Sender: TObject);
begin
  IF FormExists('FMKCLR' )=FALSE THEN Application.CreateForm(TFMKCLR ,  FMKCLR   );
  Form_NORMAL_SHOW(FMKCLR,-1,-1);
end;

procedure TFMMAIN.ACLEVERClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_HARD') = FALSE THEN EXIT;

  IF FormExists('FRCLEVER' )=FALSE THEN Application.CreateForm(TFRCLEVER , FRCLEVER );
  Form_NORMAL_SHOWMODAL(FRCLEVER,-1,-1);
end;

procedure TFMMAIN.AARGOXClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_HARD') = FALSE THEN EXIT;

  IF FormExists('FRARGOX' )=FALSE THEN Application.CreateForm(TFRARGOX , FRARGOX );
  Form_NORMAL_SHOWMODAL(FRARGOX,-1,-1);
end;

procedure TFMMAIN.DCOLLECTClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_HARD') = FALSE THEN EXIT;

  IF FormExists('FRCOLLECT' )=FALSE THEN Application.CreateForm(TFRCOLLECT , FRCOLLECT );
  Form_NORMAL_SHOWMODAL(FRCOLLECT,-1,-1);
end;


procedure TFMMAIN.INVOICEClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_HARD') = FALSE THEN EXIT;

  IF FormExists('FRINVOICE' )=FALSE THEN Application.CreateForm(TFRINVOICE , FRINVOICE );
  Form_NORMAL_SHOWMODAL(FRINVOICE,-1,-1);
end;
//==============================================================================









//==============================================================================
procedure TFMMAIN.N78Click(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_LABEL') = FALSE THEN EXIT;

  IF FormExists('FRCLEVER')=FALSE THEN Application.CreateForm(TFRCLEVER,  FRCLEVER  );
  IF FormExists('FRARGOX')=FALSE THEN Application.CreateForm(TFRARGOX,  FRARGOX  );
  IF FormExists('FMLBDS')=FALSE THEN Application.CreateForm(TFMLBDS, FMLBDS);

  FMLBDS.QR_NAME := _QRBMEM; //设置档案  //打印标签
  FMLBDS.QR_NAME := ExtractFilePath(Application.EXEName)+'QR.ini';
  FMLBDS.LOAD_INI;
  FMLBDS.SHOWMODAL;
end;

procedure TFMMAIN.N81Click(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_LABEL') = FALSE THEN EXIT;
 
  IF FormExists('FRCLEVER')=FALSE THEN Application.CreateForm(TFRCLEVER,  FRCLEVER  );
  IF FormExists('FRARGOX')=FALSE THEN Application.CreateForm(TFRARGOX,  FRARGOX  );
  IF FormExists('FMLBDS')=FALSE THEN Application.CreateForm(TFMLBDS, FMLBDS);
 
  FMLBDS.QR_NAME := _QRBMAD; //设置档案  //打印标签
  FMLBDS.QR_NAME := ExtractFilePath(Application.EXEName)+'QR.ini';
  FMLBDS.LOAD_INI;
  FMLBDS.SHOWMODAL;
end;

procedure TFMMAIN.N83Click(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_LABEL') = FALSE THEN EXIT;
 
  IF FormExists('FRCLEVER')=FALSE THEN Application.CreateForm(TFRCLEVER,  FRCLEVER  );
  IF FormExists('FRARGOX')=FALSE THEN Application.CreateForm(TFRARGOX,  FRARGOX  );
  IF FormExists('FMLBDS')=FALSE THEN Application.CreateForm(TFMLBDS, FMLBDS);
 
  FMLBDS.QR_NAME := _QRBGDS; //设置档案  //打印标签
  FMLBDS.QR_NAME := ExtractFilePath(Application.EXEName)+'QR.ini';
  FMLBDS.LOAD_INI;
  FMLBDS.SHOWMODAL;
end;
//==============================================================================

   
procedure TFMMAIN.M_RPPOS3Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_POS3') = FALSE THEN EXIT; //检查权限============================================

  IF FormExists('RMPOS3F')=FALSE THEN Application.CreateForm(TRMPOS3F,  RMPOS3F  );
  Form_NORMAL_SHOW(RMPOS3F,-1,-1);
end;

procedure TFMMAIN.M_RPPOS5Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_POS5') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMPOS5F')=FALSE THEN Application.CreateForm(TRMPOS5F,  RMPOS5F  );
  Form_NORMAL_SHOW(RMPOS5F,-1,-1);
end;

procedure TFMMAIN.M_RPPOS6Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_POS6') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMPOS6F')=FALSE THEN Application.CreateForm(TRMPOS6F,  RMPOS6F  );
  Form_NORMAL_SHOW(RMPOS6F,-1,-1);
end;

procedure TFMMAIN.M_RPPOS7Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_POS7') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMPOS7F')=FALSE THEN Application.CreateForm(TRMPOS7F,  RMPOS7F  );
  Form_NORMAL_SHOW(RMPOS7F,-1,-1);
end;

procedure TFMMAIN.N39Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_TOP1') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMTOP1F')=FALSE THEN Application.CreateForm(TRMTOP1F, RMTOP1F );
  Form_NORMAL_SHOW(RMTOP1F,-1,-1);
end;

procedure TFMMAIN.N40Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_TOP2') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMTOP2F')=FALSE THEN Application.CreateForm(TRMTOP2F, RMTOP2F );
  Form_NORMAL_SHOW(RMTOP2F,-1,-1);
end;

procedure TFMMAIN.N211Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_TOP3') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMTOP3F')=FALSE THEN Application.CreateForm(TRMTOP3F, RMTOP3F );
  Form_NORMAL_SHOW(RMTOP3F,-1,-1);
end;


procedure TFMMAIN.N76Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_LOG') = FALSE THEN EXIT; //检查权限============================================

   IF FormExists('RMLOGF')=FALSE THEN Application.CreateForm(TRMLOGF, RMLOGF );
   Form_NORMAL_SHOW(RMLOGF,-1,-1);
end;




procedure TFMMAIN.SpeedButton1Click(Sender: TObject);
begin
  IF FormExists('FMEMAIL' )=FALSE THEN Application.CreateForm(TFMEMAIL, FMEMAIL );
  Form_NORMAL_SHOW(FMEMAIL,-1,-1);
end;


procedure TFMMAIN.BTNQUTClick(Sender: TObject);
begin
  CLOSE;
end;
//==============================================================================












procedure TFMMAIN.BTNRPTClick(Sender: TObject);
begin
  IF FormExists('FMRPTX')=FALSE THEN Application.CreateForm(TFMRPTX, FMRPTX );
  Form_NORMAL_SHOW(FMRPTX,-1,-1);
end;

end.