main.pas

Nicesoft ERP 是新一代智能型 ERP 系统

//库存结帐
  FindShowForm(TSTBrGoodsOutCostForm, '');
end;

procedure TMainForm.STGoodsCountOffExecute(Sender: TObject);
begin
//盘盈盘亏
  FindShowForm(TSTBrGoodsCountOffForm, '');
end;

procedure TMainForm.MSClearTestDataExecute(Sender: TObject);
begin
//
end;

procedure TMainForm.SRJobsActionExecute(Sender: TObject);
begin
//计件项目
  FindShowForm(TSRBrJobsForm, '');
end;

procedure TMainForm.SRJobsPriceExecute(Sender: TObject);
begin
//计件工价
  FindShowForm(TSRBrJobPriceForm, '');
end;

procedure TMainForm.SRWorkQuantityExecute(Sender: TObject);
begin
// 工作量统计
  FindShowForm(TSRBrWorkQuantityForm, '');
end;

procedure TMainForm.SRBaseSalaryExecute(Sender: TObject);
begin
//工资表核算
  FindShowForm(TSRBrBaseSalaryForm, '');
end;

procedure TMainForm.SRSalaryAnalyzeExecute(Sender: TObject);
begin
//工资分析
  FindShowForm(TSRSalaryAnalyzeForm, '');
end;

procedure TMainForm.PCCreditActionExecute(Sender: TObject);
begin
//采购信用
  FindShowForm(TPCCreditBrowseForm, '');
end;

procedure TMainForm.SLCreditActionExecute(Sender: TObject);
begin
//客户信用
  FindShowForm(TSLCreditBrowseForm, '');
end;

procedure TMainForm.YDBOMBackExecute(Sender: TObject);
begin
//物料还原
  FindShowForm(TYDBOMBackFrom, '');
end;

procedure TMainForm.YDGoodsCostExecute(Sender: TObject);
begin
//生产成本
//
end;

procedure TMainForm.YDStockInWorkExecute(Sender: TObject);
begin
//车间库存
  FindShowForm(TYDStockInWorkFrom, '');
end;

procedure TMainForm.YDPurchasePlanExecute(Sender: TObject);
begin
//采购计划
  FindShowForm(TYDBrPurchasePlanForm, '');
end;

procedure TMainForm.FileSystemIniExecute(Sender: TObject);
var adoTemp,adoTemp1: TADOQuery;
   StrOfDat :string;
begin
  inherited;
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp1 := TADOQuery.Create(nil);
  adoTemp1.Connection := CommonData.acnConnection;

  StrOfDat :='.Dmo' ;
  adoTemp.Close;
  adoTemp.sql.Text := 'select ID,RecordState from MSCompanyUser where '
    +' RecordState like '+QuotedStr('%清除演示%') ;
  adoTemp.open;
  if not adoTemp.IsEmpty then
  if MessageDlg('演示数据已经清除过了,是否继续清除？', mtwarning, [mbyes, mbno], 0) = mrno then
   exit
   else StrOfDat :='.Dat';


  adoTemp.close;
  adoTemp.SQL.Text := Format('BACKUP DATABASE [%s] TO DISK = ''%s'' WITH DIFFERENTIAL',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup\' + CommonData.acnConnection.DefaultDatabase + StrOfDat]);

  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text := 'select ID,OriginTable from MSBillTable order by OriginTable' ;
  adoTemp.open;
  adoTemp.First;
  while not adoTemp.Eof do
  begin
    if not adoTemp.FieldByName('OriginTable').IsNull then
    begin
      adoTemp1.Close;
      adoTemp1.SQL.Text := ' truncate table ' + adoTemp.FieldByName('OriginTable').AsString;
      adoTemp1.ExecSQL;
    end;
    adoTemp.Next;
  end;
  adoTemp.Close;
  adoTemp.sql.Text := 'select ID,RecordState from MSCompanyUser' ;
  adoTemp.open;
  if  adoTemp.IsEmpty then adoTemp.Append;
  adoTemp.Edit;
  adoTemp.FieldByName('RecordState').AsString :='清除演示';
  adoTemp.Post;
  showmessage('演示数据整理完毕,请重新登陆系统！')  ;
  Application.Terminate ;
end;

procedure TMainForm.PCPurchaseFruitActionExecute(Sender: TObject);
begin
//采购排行榜
  FindShowForm(TPCPurchaseFruitListForm, '');

end;

procedure TMainForm.SRWorktimeActionExecute(Sender: TObject);
begin
//工作时段
  FindShowForm(TSRBrWorkTimeForm, '');
end;

procedure TMainForm.SRWorkScheduleActionExecute(Sender: TObject);
begin
//作息时间
  FindShowForm(TSRBrWorkScheduleForm, '');
end;

procedure TMainForm.SRWorkRestActionExecute(Sender: TObject);
begin
//生产排班
  FindShowForm(TSRBrWorkRestForm, '');
end;

procedure TMainForm.SLSaleClientActionExecute(Sender: TObject);
begin
//客户销售
  FindShowForm(TSLBrSaleClientForm, '');
end;

procedure TMainForm.SRWorkTimeCntExecute(Sender: TObject);
begin
//计时统计
  FindShowForm(TSRBrWorkTimeCntForm, '');
end;

procedure TMainForm.SLSaleChainListExecute(Sender: TObject);
begin
//连锁加盟排行榜
  FindShowForm(TSLSaleChainListForm, '');
end;

procedure TMainForm.FileDataBackupExecute(Sender: TObject);
var adoTemp: TADOQuery;
begin
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp.close;
  adoTemp.SQL.Text := Format('BACKUP DATABASE [%s] TO DISK = ''%s'' WITH DIFFERENTIAL',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup\' + CommonData.acnConnection.DefaultDatabase + '.bak']);
  adoTemp.ExecSQL;
//  if  not  adoTemp.IsEmpty then    showmessage('数据备份完毕！');
  showmessage('数据备份完毕！');
end;

procedure TMainForm.SRLeaveReptExecute(Sender: TObject);
begin
//请假调班
//  FindShowForm(TSRBrWorkTimeCntForm, '');
end;

procedure TMainForm.FAAssetAddActionExecute(Sender: TObject);
begin
//资产增加
  FindShowForm(TFABrAssetAddForm, '');
end;

procedure TMainForm.FADepreciationExecute(Sender: TObject);
begin
//资产折旧
  FindShowForm(TFABrDepreciationForm, '');
end;


procedure TMainForm.FAAssetReptExecute(Sender: TObject);
begin
//资产总表
  FindShowForm(TFNAssetReptFrom, '');
end;

procedure TMainForm.FAAssetReduceExecute(Sender: TObject);
begin
//资产处置
  FindShowForm(TFABrAssetReduceForm, '');
end;

procedure TMainForm.FAAssetRepairExecute(Sender: TObject);
begin
//资产维修
  FindShowForm(TFABrAssetRepairForm, '');
end;

procedure TMainForm.FAAssetRePlanExecute(Sender: TObject);
begin
//维修计划
  FindShowForm(TFABrAssetRePlanForm, '');
end;

procedure TMainForm.FAAssetChangeExecute(Sender: TObject);
begin
//资产变动
  FindShowForm(TFAAssetChangeFrom, '');
end;

procedure TMainForm.FAAssetPlanReptExecute(Sender: TObject);
begin
//计划管理
  FindShowForm(TFAAssetPlanReptFrom, '');
end;

procedure TMainForm.YDDailyReportExecute(Sender: TObject);
begin
//生产日报
  FindShowForm(TYDDailyReportForm, '');
end;

procedure TMainForm.YDStatisticReportExecute(Sender: TObject);
begin
//生产统计
  FindShowForm(TYDStatisticReportForm, '');
end;

procedure TMainForm.FNAccountAgeActionExecute(Sender: TObject);
begin
//帐龄分析
  FindShowForm(TFNAccountAgeForm, '');
end;

procedure TMainForm.SLSaleForecastExecute(Sender: TObject);
begin
//销售分析预测
  FindShowForm(TSLSaleForeCastForm, '');
end;

procedure TMainForm.SLSaleStatisticExecute(Sender: TObject);
begin
//销售统计
  FindShowForm(TSLSaleStatisticForm, '');
end;

procedure TMainForm.PCpurchaseStatisticExecute(Sender: TObject);
begin
//采购统计
  FindShowForm(TPCPurchaseStatisticForm, '');
end;

procedure TMainForm.PCPurchaseForecastExecute(Sender: TObject);
begin
//采购分析预测
  FindShowForm(TPCPurchaseForecastForm, '');
end;

procedure TMainForm.FileDataRestoreExecute(Sender: TObject);
begin
  Application.CreateForm(TMSDataRestoreForm, MSDataRestoreForm);
  MSDataRestoreForm.ShowModal;
  MSDataRestoreForm.Free;
end;

procedure TMainForm.FileShowHelpDocExecute(Sender: TObject);
var Url: string;
  I: integer;
  Flags: OLEVariant;
begin
  FindShowForm(TNavigatorForm, '');
  Url := '《企业管理系统(ERP)》产品手册';
  for I := 0 to Screen.FormCount - 1 do
  begin
    if Screen.Forms[I].Caption = '导航' then
    begin
      (Screen.Forms[I] as TNavigatorForm).SetFocus;
      (Screen.Forms[I] as TNavigatorForm).URLs.Text := WideString(ExtractFilePath(Application.ExeName)) + 'Navigation\' + Url + '.htm';
      Flags := 0;
      try
        if Url <> '' then
          (Screen.Forms[I] as TNavigatorForm).WebBrowser.Navigate(WideString((Screen.Forms[I] as TNavigatorForm).Urls.Text), Flags, Flags, Flags, Flags)
        else
          (Screen.Forms[I] as TNavigatorForm).WebBrowser.Navigate(WideString(ExtractFilePath(Application.ExeName)) + 'Navigation\系统管理.htm', Flags, Flags, Flags, Flags);
      except
      end;
    end;
  end;
//  ShellExecute(0, 'open', PChar(GetCurrentDir + '\《企业管理系统(ERP)》产品手册.doc'), '', '', SW_SHOW);
end;

procedure TMainForm.FilePasswordChangeActionExecute(Sender: TObject);
begin
  Application.CreateForm(TMSEdUserPassWordForm, MSEdUserPassWordForm);
  MSEdUserPassWordForm.ShowModal;
  MSEdUserPassWordForm.Free;
end;

procedure TMainForm.DAMaterialClassActionExecute(Sender: TObject);
begin
//材料分类
  FindShowForm(TDAMaterialClassBrowseForm, '');
end;

procedure TMainForm.DAMaterialActionExecute(Sender: TObject);
begin
//材料资料
  FindShowForm(TDAMaterialBrowseForm, '');
end;

procedure TMainForm.DAProjectActionExecute(Sender: TObject);
begin
//项目名称
//  FindShowForm(TDAProjectBrowseForm, '');
  FindShowForm(TDABrProjectForm, '');

end;

procedure TMainForm.EGMaterialInActionExecute(Sender: TObject);
begin
//项目进料单
  FindShowForm(TEGBrMaterialInForm, '');
end;

procedure TMainForm.EGProExpenseActionExecute(Sender: TObject);
begin
//项目费用单
  FindShowForm(TEGBrExpenseForm, '');
end;

procedure TMainForm.EGMaterialOutActionExecute(Sender: TObject);
begin
//项目领料单
  FindShowForm(TEGBrMaterialOutForm, '');
end;

procedure TMainForm.EGMaterialInSTTActionExecute(Sender: TObject);
begin
//项目进料台帐
  FindShowForm(TEGMaterialInStatisticForm, '');
end;

procedure TMainForm.EGMaterialOutSTTActionExecute(Sender: TObject);
begin
//项目用料台帐
  FindShowForm(TEGMaterialOutStatisticForm, '');
end;

procedure TMainForm.FileClearBusDataExecute(Sender: TObject);
var adoTemp,adoTemp1: TADOQuery;
   StrOfDat :string;
begin
  inherited;
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp1 := TADOQuery.Create(nil);
  adoTemp1.Connection := CommonData.acnConnection;
  StrOfDat :='.Bus' ;

  adoTemp.close;
  adoTemp.SQL.Text := Format('BACKUP DATABASE [%s] TO DISK = ''%s'' WITH DIFFERENTIAL',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup\' + CommonData.acnConnection.DefaultDatabase + StrOfDat]);

  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text := 'select ID,OriginTable from MSBillTable '
    +' where OriginTable like '+Quotedstr('%Master')
    +' Or OriginTable like '+Quotedstr('%Detail')
    +' order by OriginTable' ;
  adoTemp.open;


  adoTemp.First;
  while not adoTemp.Eof do
  begin
    if not adoTemp.FieldByName('OriginTable').IsNull then
    begin
      adoTemp1.Close;
      adoTemp1.SQL.Text := ' truncate table ' + adoTemp.FieldByName('OriginTable').AsString;
      adoTemp1.ExecSQL;
    end;
    adoTemp.Next;
  end;
  showmessage('业务数据清理完毕！')  ;
end;

procedure TMainForm.EGMaterialBalanceExecute(Sender: TObject);
begin
//项目材料库存
  FindShowForm(TEGMaterialBalanceForm, '');
end;

procedure TMainForm.EGMaterialChangeActExecute(Sender: TObject);
begin
//项目材料变动
  FindShowForm(TEGMaterialChangeForm, '');
end;

procedure TMainForm.EGProjectExpenseActionExecute(Sender: TObject);
begin
//项目费用台帐
//  FindShowForm(TEGExpenseStatisticForm, '');
  FindShowForm(TEGExpenseStatisticEgmForm, ''); 
end;


procedure TMainForm.EGProjectCostActionExecute(Sender: TObject);
begin
  //项目成本总帐
  FindShowForm(TEGProjectCostSTTForm, '');
end;

procedure TMainForm.DAProjectClassActExecute(Sender: TObject);
begin
  //项目分类
  FindShowForm(TDAProjectClassBrowseForm, '');

end;

procedure TMainForm.FNCredenceActionExecute(Sender: TObject);
begin
  // 记帐凭证
  FindShowForm(TFNCredenceBrowseForm, '');
end;

end.