main.pas

详细的ERP设计资料

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''',
    [CommonData.acnConnection.DefaultDatabase,
    ExtractFilePath(Application.ExeName) + 'Backup\' +
    CommonData.acnConnection.DefaultDatabase +
    FormatDateTime('yymmdd-hhnnss', Now) + '.bak']);
  adoTemp.ExecSQL;
  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.YDDailyReportActExecute(Sender: TObject);
begin
  FindShowForm(TYDDailyReportForm, '');
end;

procedure TMainForm.YDStatisticReportExecute(Sender: TObject);
begin
  FindShowForm(TYDStatisticReportForm, '');
end;

procedure TMainForm.FNAccountAgeActExecute(Sender: TObject);
begin
  FindShowForm(TFNAccountAgeSLForm, '');
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.DAProjectActionExecute(Sender: TObject);
begin
  FindShowForm(TDABrProjectForm, '');
end;

procedure TMainForm.EGFNClearEGActionExecute(Sender: TObject);
begin
  FindShowForm(TFNBrClearEGForm, '');
end;

procedure TMainForm.EGMaterialOutActionExecute(Sender: TObject);
begin
  FindShowForm(TEGBrGoodsOutForm, '');
end;

procedure TMainForm.EGProjectCostSttActExecute(Sender: TObject);
begin
  FindShowForm(TEGProjectStatisticForm, '');
end;

procedure TMainForm.DAProjectClassActExecute(Sender: TObject);
begin
   FindShowForm(TDAProjectClassBrowseForm, '');

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'' ',
    [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 and ( '
    +' OriginTable like '+Quotedstr('%Master')
    +' Or OriginTable like '+Quotedstr('%Detail')
    +' Or OriginTable like '+Quotedstr('%DAProject')
    +' ) 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.FNCredenceActionExecute(Sender: TObject);
begin
    FindShowForm(TFNCredenceBrowseForm, '');
end;

procedure TMainForm.PayableAccountActExecute(Sender: TObject);
begin
  FindShowForm(TFNAccountAgePCForm, '');
end;

procedure TMainForm.FNSubjectDetailsCollectActionExecute(Sender: TObject);
begin
  FindShowForm(TFNSubjectDetailsCollectReportForm, '');
end;

procedure TMainForm.FNCustomizeReportActionExecute(Sender: TObject);
begin
  FindShowForm(TFNCustomizeReportForm, '');
end;

procedure TMainForm.FNSubjectCollectActionExecute(Sender: TObject);
begin
  FindShowForm(TFNSubjectCollectReportForm, '');
end;

procedure TMainForm.FNSubjectDetailsReportActionExecute(Sender: TObject);
begin
  FindShowForm(TFNSubjectDetailsReportForm, '');
end;

procedure TMainForm.RegisterActions;

  function GetPermissionName(const ACaption: string): string;
  var
    Idx: Integer;
  begin
    Idx := Pos('($', ACaption);
    if Idx > 0 then Result := Copy(ACaption, 1, Idx - 1)
    else Result := ACaption;
  end;

var
  I, L: Integer;
  Actions: array of TBasicAction;
  PmsNames: TStringDynArray;
begin
  SetLength(Actions, ActionList.ActionCount);
  SetLength(PmsNames, ActionList.ActionCount);
  L := 0;
  for I := 0 to ActionList.ActionCount - 1 do
  begin

    Actions[I] := ActionList.Actions[I];
    PmsNames[I] := GetPermissionName(TAction(ActionList.Actions[I]).Caption);
    Inc(L);
  end;
  SetLength(Actions, L);
  SetLength(PmsNames, L);
  Guarder.RegisterActions(Actions, PmsNames);
end;

procedure TMainForm.STPCGoodsInCostActExecute(Sender: TObject);
begin
  FindShowForm(TSTBrPCGoodsInCostForm, '');
end;

procedure TMainForm.STYDGoodsOutCostActExecute(Sender: TObject);
begin
  FindShowForm(TSTBrYDGoodsOutCostForm, '');
end;

procedure TMainForm.STYDGoodsInCostActExecute(Sender: TObject);
begin
  FindShowForm(TSTBrYDGoodsInCostForm, '');
end;

procedure TMainForm.STSLGoodsOutCostActExecute(Sender: TObject);
begin
  FindShowForm(TSTBrSLGoodsOutCostForm, '');
end;

procedure TMainForm.DisableMenuItems(Item: TMenuItem);
var
  I: Integer;
begin
  for I := 0 to Item.Count - 1 do
  begin
    DisableMenuItems(Item.Items[I]);
    if Item.Items[I].Action <> nil then
      Item.Items[I].Enabled := Guarder.HasPermission(Item.Items[I].Action);
  end;
end;

procedure TMainForm.FashionSaleActionExecute(Sender: TObject);
begin
  FindShowForm(TSLBrSaleClothForm, '');
end;

procedure TMainForm.FashionPurchaseAtcExecute(Sender: TObject);
begin
  FindShowForm(TPCBrPurchaseClothForm, '');
end;

procedure TMainForm.FashionRemoveActExecute(Sender: TObject);
begin
  FindShowForm(TSTBrClothOutInForm, '');
end;

procedure TMainForm.FashionCountOffActExecute(Sender: TObject);
begin
  FindShowForm(TSTBRClothCountOffForm, '');
end;

procedure TMainForm.FashionSaleSttActExecute(Sender: TObject);
begin
  FindShowForm(TSLSaleClothStatisticForm, '');
end;

procedure TMainForm.FashionPurchaseSttActExecute(Sender: TObject);
begin
  FindShowForm(TPCPurchaseClothStatisticForm, '');
end;

procedure TMainForm.FashionStockActExecute(Sender: TObject);
begin
  FindShowForm(TSTClothStockRepForm, '');
end;

procedure TMainForm.FileBaseDataFDSExecute(Sender: TObject);
var adoTemp: TADOQuery;
begin
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp.close;
  adoTemp.SQL.Text :='truncate table MSUnit ' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into MSUnit ( '
    +' CreateDate, CreateUserID, RecordState, Name, ExchangeRate, '
    +' GoalUnitID, IsGoalUnit ) '
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, ExchangeRate, '
    +' GoalUnitID, IsGoalUnit '
    +' from MSUnitFDS  ';
  adoTemp.ExecSQL;

  adoTemp.close;
  adoTemp.SQL.Text :='truncate table DAGoodsClass' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into DAGoodsClass ( '
    +' CreateDate, CreateUserID, RecordState, Name, GeneralPACID, '
    +' GeneralCACID, GeneralACID, UpID, LevelCode ) '
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, GeneralPACID, '
    +' GeneralCACID, GeneralACID, UpID, LevelCode '
    +' from DAGoodsClassFDS  ';
  adoTemp.ExecSQL;

  adoTemp.close;
  adoTemp.SQL.Text :='truncate table DAGoods' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into DAGoods  ( '
    +' CreateDate, CreateUserID, RecordState, Name, Code, Spec, '
    +' BarCode, GoodsClassID, UnitID, AddUnitID, AddUnitRate, '
    +' StockMax, StockMin, PricePurchase, PriceSales, GoodsPictrue )'
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, Code, Spec, '
    +' BarCode, GoodsClassID, UnitID, AddUnitID, AddUnitRate, '
    +' StockMax, StockMin, PricePurchase, PriceSales, GoodsPictrue '
    +' from DAGoodsFDS ';
  adoTemp.ExecSQL;
  Showmessage('饲料业资料更新完毕！');
end;

procedure TMainForm.FileBaseDataClothExecute(Sender: TObject);
var adoTemp: TADOQuery;
begin
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp.close;
  adoTemp.SQL.Text :='truncate table MSUnit ' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into MSUnit ( '
    +' CreateDate, CreateUserID, RecordState, Name, ExchangeRate, '
    +' GoalUnitID, IsGoalUnit ) '
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, ExchangeRate, '
    +' GoalUnitID, IsGoalUnit '
    +' from MSUnitCloth   ';
  adoTemp.ExecSQL;
  adoTemp.close;
  adoTemp.SQL.Text :='truncate table DAGoodsClass' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into DAGoodsClass ( '
    +' CreateDate, CreateUserID, RecordState, Name, GeneralPACID, '
    +' GeneralCACID, GeneralACID, UpID, LevelCode ) '
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, GeneralPACID, '
    +' GeneralCACID, GeneralACID, UpID, LevelCode '
    +' from DAGoodsClassCloth ';
  adoTemp.ExecSQL;

  adoTemp.close;
  adoTemp.SQL.Text :='truncate table DAGoods' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into DAGoods  ( '
    +' CreateDate, CreateUserID, RecordState, Name, Code, Spec, '
    +' BarCode, GoodsClassID, UnitID, AddUnitID, AddUnitRate, '
    +' StockMax, StockMin, PricePurchase, PriceSales, GoodsPictrue )'
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, Code, Spec, '
    +' BarCode, GoodsClassID, UnitID, AddUnitID, AddUnitRate, '
    +' StockMax, StockMin, PricePurchase, PriceSales, GoodsPictrue '
    +' from DAGoodsCloth  '  ;
  adoTemp.ExecSQL;
  Showmessage('内衣业资料更新完毕！');
end;

procedure TMainForm.FileBaseDataEGExecute(Sender: TObject);
var adoTemp: TADOQuery;
begin
  adoTemp := TADOQuery.Create(nil);
  adoTemp.Connection := CommonData.acnConnection;
  adoTemp.close;
  adoTemp.SQL.Text :='truncate table MSUnit ' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into MSUnit ( '
    +' CreateDate, CreateUserID, RecordState, Name, ExchangeRate, '
    +' GoalUnitID, IsGoalUnit ) '
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, ExchangeRate, '
    +' GoalUnitID, IsGoalUnit '
    +' from MSUnitEGM   ';
  adoTemp.ExecSQL;
  adoTemp.close;
  adoTemp.SQL.Text :='truncate table DAGoodsClass' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into DAGoodsClass ( '
    +' CreateDate, CreateUserID, RecordState, Name, GeneralPACID, '
    +' GeneralCACID, GeneralACID, UpID,LevelCode ) '
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, GeneralPACID, '
    +' GeneralCACID, GeneralACID, UpID,LevelCode '
    +' from DAGoodsClassEGM ';
  adoTemp.ExecSQL;

  adoTemp.close;
  adoTemp.SQL.Text :='truncate table DAGoods' ;
  adoTemp.ExecSQL;
  adoTemp.Close;
  adoTemp.sql.Text :='Insert Into DAGoods  ( '
    +' CreateDate, CreateUserID, RecordState, Name, Code, Spec, '
    +' BarCode, GoodsClassID, UnitID, AddUnitID, AddUnitRate, '
    +' StockMax, StockMin, PricePurchase, PriceSales, GoodsPictrue )'
    +' select '
    +' CreateDate, CreateUserID, RecordState, Name, Code, Spec, '
    +' BarCode, GoodsClassID, UnitID, AddUnitID, AddUnitRate, '
    +' StockMax, StockMin, PricePurchase, PriceSales, GoodsPictrue '
    +' from DAGoodsEGM  '  ;
  adoTemp.ExecSQL;
  Showmessage('建筑业资料更新完毕！');
end;

procedure TMainForm.SLSaleDsctActionExecute(Sender: TObject);
begin
  FindShowForm(TSLBrSaleDsctForm, '');
end;

procedure TMainForm.FNCashExchangeActExecute(Sender: TObject);
begin
  FindShowForm(TFNBrCashExchangeForm, '');
end;

procedure TMainForm.FNCashExchSttActExecute(Sender: TObject);
begin
  FindShowForm(TFNCashExchStatisticForm, '');
end;

end.