main.pas

详细的ERP设计资料

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.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(TYDBrFormulaForm, '');
end;

procedure TMainForm.STGoodsOutInExecute(Sender: TObject);
begin
  FindShowForm(TSTBrGoodsOutInForm, '');
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.YDForecastPLActExecute(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.SLSaleFruitListActExecute(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.STStockStatisticsActExecute(Sender: TObject);
begin
 FindShowForm(TSTActualStockForm,'');
end;

procedure TMainForm.STStockChangeExecute(Sender: TObject);
begin
 FindShowForm(TSTStockChangeFrom,'');
end;

procedure TMainForm.STNewStockRepActExecute(Sender: TObject);
begin
  FindShowForm(TSTNewStockRepForm, '');
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.FNProfitLossActExecute(Sender: TObject);
begin

  FindShowForm(TFNProfitLossForm, '');
end;

procedure TMainForm.FNBalanceSheetExecute(Sender: TObject);
begin

  FindShowForm(TFNBalanceSheetForm, '');
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.YDBOMBackActionExecute(Sender: TObject);
begin
  FindShowForm(TYDBOMBackFrom, '');
end;

procedure TMainForm.YDGoodsCostExecute(Sender: TObject);
begin

//
end;

procedure TMainForm.YDStockInWorkActExecute(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'' ',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup\' + CommonData.acnConnection.DefaultDatabase
    +  FormatDateTime('yymmdd-hhnnss', Now) + StrOfDat]);

  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text := 'select ID,OriginTable from MSBillTable '
    +' where OriginID>=1  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;