main.pas

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

procedure TMainForm.DASLDiscountExecute(Sender: TObject);
begin
//销售折扣
  FindShowForm(TSLBrDiscountForm, '');
end;

procedure TMainForm.DASLSaleGiftExecute(Sender: TObject);
begin
//商品赠送
  FIndShowForm(TSLBrSaleGiftForm, '');
end;

procedure TMainForm.DAFNClearModeExecute(Sender: TObject);
begin
//结算方式
  FindShowForm(TDABrPOClearForm, '');
end;

procedure TMainForm.DAFNAccountCodeExecute(Sender: TObject);
begin
//会计科目
  TDASubjectForm.ShowMaintenance;
//  FindShowForm(TDABrAccountCodeForm, '');
end;

procedure TMainForm.DAMSCurrencyExecute(Sender: TObject);
begin
  //币种资料
  FindShowForm(TMSBrCurrencyForm, '');
end;

procedure TMainForm.DAFNExpenseExecute(Sender: TObject);
begin
//费用资料
  findshowForm(TDABrExpenseClassForm, '')
end;

procedure TMainForm.DAFNAccountsExecute(Sender: TObject);
begin
//资金帐户
  FindShowForm(TFNBrAccountsForm, '');
end;

procedure TMainForm.MSUnitsActionExecute(Sender: TObject);
begin
//计量单位
  FindShowForm(TMSBrUnitForm, '');
end;

procedure TMainForm.MSCompanyUserActionExecute(Sender: TObject);
begin
  //公司资料
//  FindShowForm(TMSOptionForm, '');
  Application.CreateForm(TMSOptionForm, MSOptionForm);
  MSOptionForm.ShowModal;
  self.Caption :='  '+Trim(Guarder.CompanyUserName)+
      ' 管理系统(ERP)     操作员:'+Guarder.UserName;
end;

procedure TMainForm.MSDepartmentActionExecute(Sender: TObject);
begin
  //部门资料
  FindShowForm(TMSDepartmentBrowseForm, '');
end;

procedure TMainForm.MSEmployeesActionExecute(Sender: TObject);
begin
  //员工资料
  FindShowForm(TMSBrEmployeeForm, '');
end;

procedure TMainForm.MSBrAreasActionExecute(Sender: TObject);
begin
//地区资料
  findshowform(TDAAreasBrowseForm, '');
end;

procedure TMainForm.DAGoodsClassExecute(Sender: TObject);
begin
//商品分类
  FindShowForm(TDAGoodsClassesBrowseForm, '');
end;

procedure TMainForm.MSAttrDictionaryExecute(Sender: TObject);
begin
//属性字典
  FindShowForm(TDAAttributeBrForm, '');
end;

procedure TMainForm.MSPostionClassExecute(Sender: TObject);
begin
//职别工种
  FindShowForm(TMSPostionClassBrowseForm, '');
end;

procedure TMainForm.MSPostionBrowseExecute(Sender: TObject);
begin
//职位管理
  FindShowForm(TMSPostionBrowseForm, '');
end;

procedure TMainForm.MSBillTypeActionExecute(Sender: TObject);
begin
  //单据类型
  DABillTypeDlg;
end;

procedure TMainForm.PCGoodsInActionExecute(Sender: TObject);
begin
//采购入库
  FindShowForm(TPCBrGoodsInForm, '');
end;

procedure TMainForm.STYDGoodsOutExecute(Sender: TObject);
begin
//出库凭单
  FindShowForm(TYDBrGoodsOutForm, '');
end;

procedure TMainForm.STYDGoodsInExecute(Sender: TObject);
begin
//入库凭单
  FindShowForm(TYDBrGoodsInForm, '');
end;

procedure TMainForm.PCClearPCActionExecute(Sender: TObject);
begin
//采购结算
//  FindShowForm(TPCBrClearBillForm, '');
end;

procedure TMainForm.OALinkMenIDCardExecute(Sender: TObject);
begin
//联系人
  FindShowForm(TDALinkMenIDCardBrowseForm, '');
end;

procedure TMainForm.PCContractActionExecute(Sender: TObject);
begin
//采购合同
  FindShowForm(TPCBrContractForm, '');
end;

var
  ReportsDLLHandle: THandle;

procedure TMainForm.ReportsExplorerActionExecute(Sender: TObject);
var
  RunReportExplorer: procedure; stdcall;
  InitLibrary: procedure(App: TApplication); stdcall;
begin
  if ReportsDLLHandle = 0 then
  begin
    ReportsDLLHandle := LoadLibrary('Reports.DLL');
    if ReportsDLLHandle = 0 then
      raise Exception.Create('找不到报表动态连接库 Reports.DLL');
    @InitLibrary := GetProcAddress(ReportsDLLHandle, 'InitLibrary');
    InitLibrary(Application);
  end;
  @RunReportExplorer := GetProcAddress(ReportsDLLHandle, 'RunReportExplorer');
  RunReportExplorer;
end;

procedure TMainForm.OABrJobRecordsActionExecute(Sender: TObject);
begin
//工作日志
  FindShowForm(TOABrJobRecordsForm, '');
end;

procedure TMainForm.OABrJobRecordsMngExecute(Sender: TObject);
begin
//知识管理
  FindShowForm(TOABrJobRecordsMngForm, '');
end;

procedure TMainForm.PCOrderActionExecute(Sender: TObject);
begin
//采购订单
  FindShowForm(TPCBrOrderForm, '');
end;

procedure TMainForm.FNExpenseExecute(Sender: TObject);
begin
//报销申请
  FindShowForm(TFNBrExpenseForm, '');
end;

procedure TMainForm.OABrJobArrangeActionExecute(Sender: TObject);
begin
//工作安排
  FindShowForm(TOABrJobArrangeForm, '');
end;

procedure TMainForm.YDFormulaActionExecute(Sender: TObject);
begin
//物料清单
//  FindShowForm(TYDProductFormulaBrowseForm, '');
  FindShowForm(TYDBrFormulaForm, '');
end;

procedure TMainForm.STGoodsOutInExecute(Sender: TObject);
begin
//库存调拨
  FindShowForm(TSTBrGoodsOutInForm, '');
end;

procedure TMainForm.STStockCountOffExecute(Sender: TObject);
begin
//库存盘点
//  FindShowForm(TSTBrCountOffForm, '');
end;

procedure TMainForm.SLContractPriceExecute(Sender: TObject);
begin
//合同售价
  FindShowForm(TSLBrContractPriceForm,'');
end;

procedure TMainForm.FNCashInExecute(Sender: TObject);
begin
//收款申请
  FindShowForm(TFNBrCashInForm,'');
end;

procedure TMainForm.FNCashOutExecute(Sender: TObject);
begin
//付款申请
  FindShowForm(TFNBrCashOutForm,'');
end;

procedure TMainForm.OAEMailExecute(Sender: TObject);
begin
  ShellExecute(HWND_DESKTOP, 'OPEN', PChar('mailto:?subject= &body='), nil, nil, SW_SHOW);
end;

procedure TMainForm.DAProviderActionExecute(Sender: TObject);
begin
//厂商资料
FindShowForm(TDABrmanufacturerForm,'')
end;

procedure TMainForm.OAClientcRelationExecute(Sender: TObject);
begin
//厂商关系
FindShowForm(TDAClientcRelationBrowseForm,'')
end;

procedure TMainForm.OACompanyNewsExecute(Sender: TObject);
begin
//公司新闻
FindShowForm(TOABrCompanyNewsForm,'')
end;

procedure TMainForm.OAClientkRelationExecute(Sender: TObject);
begin
//客户关系
FindShowForm(TDAClientkRelationBrowseForm,'')
end;

procedure TMainForm.PCPurchaseActionExecute(Sender: TObject);
begin
//采购进货
FindShowForm(TPCBrPurchaseForm,'');
end;

procedure TMainForm.YDpowerActionExecute(Sender: TObject);
begin
//生产能力
FindShowForm(TYDBrPWForm,'');
end;

procedure TMainForm.YDPlanActionExecute(Sender: TObject);
begin
//生产计划
FindShowForm(TYDBrProductPlanForm,'');
end;

procedure TMainForm.YDPrepareActionExecute(Sender: TObject);
begin
//生产方案
FindShowForm(TYDBrBalanceForm,'');
end;

procedure TMainForm.YDForecastPLExecute(Sender: TObject);
begin
//效益测算
FindShowForm(TYDBrExpressBalanceForm,'');
end;

procedure TMainForm.SLGoodsOutBActionExecute(Sender: TObject);
begin
//退货入库
FindShowForm(TSLBrGoodsOutBForm,'');
end;

procedure TMainForm.PCGoodsInBackExecute(Sender: TObject);
begin
//退货出库
FindShowForm(TPCBrGoodsInBForm,'');
end;

procedure TMainForm.PCPurchaseBackExecute(Sender: TObject);
begin
//采购退货
FindShowForm(TPCBrPurchaseBForm,'');
end;

procedure TMainForm.PCPurchsePriceExecute(Sender: TObject);
begin
//商品进价
FindShowForm(TPCBrPurchasePriceForm, '');
end;

procedure TMainForm.SLSaleFruitListActionExecute(Sender: TObject);
begin
//销售排行榜
FindShowForm(TSLSaleFruitListForm,'');
end;

procedure TMainForm.SLSalePriceExecute(Sender: TObject);
begin
//商品售价
FindShowForm(TSLBrSalePriceForm, '');
end;

procedure TMainForm.SLSaleSpecailExecute(Sender: TObject);
begin
//特色销售开单
 FindShowForm(TSLBrSaleSForm,'');
end;

procedure TMainForm.FNClearSLactionExecute(Sender: TObject);
begin
//收款结算
 FindShowForm(TFNBrClearSLForm,'');
end;

procedure TMainForm.FNClearPCActionExecute(Sender: TObject);
begin
//付款结算
 FindShowForm(TFNBrClearPCForm,'');
end;

procedure TMainForm.PCCotractPriceExecute(Sender: TObject);
begin
//合同进价
 FindShowForm(TPCBrContractPriceForm,'');
end;

procedure TMainForm.ReportMenuItemClick(Sender: TObject);
begin
  PrintReport(TMenuItem(Sender).Caption, '', 'Screen');
end;

procedure TMainForm.MyReportMenuItemClick(Sender: TObject);
begin
  PrintReport(TMenuItem(Sender).Caption, '', 'Screen');
end;

procedure TMainForm.RebuildReportMenu;
var
  I: Integer;
  Reports: TStrings;
  FileName: string;
  Item: TMenuItem;
begin
  for I := ReportsMenu.Count - 1 downto 0 do
    if ReportsMenu.Items[I].Tag = 1 then ReportsMenu.Items[I].Free;
  FileName := ChangeFileExt(Application.ExeName, '.cfg');
  Reports := TStringList.Create;
  try
    if FileExists(FileName) then
      Reports.LoadFromFile(FileName);
    for I := 0 to Reports.Count - 1 do
    begin
      Item := TMenuItem.Create(Self);
      Item.Caption := Reports[I];
      Item.Tag := 1;
      Item.OnClick := MyReportMenuItemClick;
      ReportsMenu.Add(Item);
    end;
  finally
    Reports.Free;
  end;
end;

procedure TMainForm.MyReportsCustomizeActionExecute(Sender: TObject);
begin
  with TRpCustomizeForm.Create(Self) do
  try
    if ShowModal = mrOK then RebuildReportMenu;
  finally
    Free;
  end;
end;

procedure TMainForm.StockChangeExecute(Sender: TObject);
begin
//库存变动
 FindShowForm(TSTStockChangeFrom,'');
end;

procedure TMainForm.STActualStockExecute(Sender: TObject);
begin
//库存商品
 FindShowForm(TSTActualStockForm,'');
end;

procedure TMainForm.FNActuialCashExecute(Sender: TObject);
begin
//资金帐本
 FindShowForm(TFNActualCashFrom,'');
end;

procedure TMainForm.FNCashOutInExecute(Sender: TObject);
begin
//资金调动
  FindShowForm(TFNBrCashOutInForm, '');
end;

procedure TMainForm.FNCashFlowExecute(Sender: TObject);
begin
//现金流量
  FindShowForm(TFNCashFlowForm, '');
end;

procedure TMainForm.FNRunExpenseExecute(Sender: TObject);
begin
//费用台账
  FindShowForm(TFNExpenseSttcForm, '');
end;

procedure TMainForm.FNReceiptPayableExecute(Sender: TObject);
begin
//应收应付
  FindShowForm(TFNReceiptPayableFrom, '');
end;

procedure TMainForm.FNReceiptPayableEExecute(Sender: TObject);
begin
//其它应收款
  FindShowForm(TFNReceiptPayableEFrom, '');
end;

procedure TMainForm.FNProfitLossExecute(Sender: TObject);
begin
//营业利润
  FindShowForm(TFNProfitLossForm, '');
end;

procedure TMainForm.FNBalanceSheetExecute(Sender: TObject);
begin
//总帐余额
  FindShowForm(TFNBalanceSheetForm, '');
end;

procedure TMainForm.STGoodsOutCostExecute(Sender: TObject);
begin