main.pas

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

  
  {
  IF FileExists('\DELPHI\PIC\MICROPOS.JPG') = TRUE  THEN
     BEGIN
     IF FormExists('FMLOGO')=FALSE THEN Application.CreateForm(TFMLOGO, FMLOGO);
     FMMAIN.TOP := 1000;
     FMLOGO.SHOWMODAL;
     FMMAIN.TOP := 0;
  //   FMMAIN.WINDOWSTATE:=wsMaximized;
     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.SYSQUITClick(Sender: TObject);
begin
  CLOSE;
end;

procedure TFMMAIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled := False;
  FMMAIN.RELEASE;
end;







procedure TFMMAIN.Timer1Timer(Sender: TObject);
begin
  IF _USER_ID =  '' THEN StatusBar.Panels.Items[0].Text := '目前没有使用者登入';
  IF _USER_ID <> '' THEN
    StatusBar.Panels.Items[0].Text :=
    '使用者 '+_USER_ID+' '+_USER_NAME+'  登入时间:'+DATETIMETOSTR(_USER_LOGINDATETIME);

  StatusBar.Panels.Items[1].Text := '系统日期: '+DATETOSTR(DATE)+'   系统时间: '+ TIMETOSTR(NOW);
end;

procedure TFMMAIN.SYSABOUTClick(Sender: TObject);
begin
  IF FormExists('FMABOUT' )=FALSE THEN Application.CreateForm(TFMABOUT,  FMABOUT   );
  Form_NORMAL_SHOW(FMABOUT,-1,-1);
end;


procedure TFMMAIN.SYSSETClick(Sender: TObject);
VAR I : REAL;
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'SET_MAINS') = FALSE THEN EXIT;

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


procedure TFMMAIN.SYSLOGClick(Sender: TObject);
begin
  IF FormExists('FMLOG')=FALSE THEN Application.CreateForm(TFMLOG, FMLOG);
  Form_NORMAL_SHOWMODAL(FMLOG,-1,-1);
end;

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

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

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

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

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

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

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

  IF FormExists('FMBSUP' )=FALSE THEN Application.CreateForm(TFMBSUP ,  FMBSUP   );
  Form_NORMAL_SHOW(FMBSUP,-1,-1);
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_RPPOSDClick(Sender: TObject);
begin
  IF FormExists('FMRPTX')=FALSE THEN Application.CreateForm(TFMRPTX, FMRPTX );
  Form_NORMAL_SHOW(FMRPTX,-1,-1);
end;

procedure TFMMAIN.M_RPPOS1Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_POS1') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMPOS1F')=FALSE THEN Application.CreateForm(TRMPOS1F,  RMPOS1F  );
  Form_NORMAL_SHOW(RMPOS1F,-1,-1);
end;

procedure TFMMAIN.M_RPPOS2Click(Sender: TObject);
begin
  IF PERMISSION_CHECK(_USER_ID,'RPT_POS2') = FALSE THEN EXIT; //检查权限============================================
 
  IF FormExists('RMPOS2F')=FALSE THEN Application.CreateForm(TRMPOS2F,  RMPOS2F  );
  Form_NORMAL_SHOW(RMPOS2F,-1,-1);
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.