mainunit.pas

安装完成后

    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryYWYSellForm, QueryYWYSellForm);
  QueryYWYSellForm.Dock(panel_main, BoundsRect);
  QueryYWYSellForm.show;
end;

procedure TMainForm.Menu_chart_ywyxsClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  Application.CreateForm(TChartSaleForm, ChartSaleForm);
  ChartSaleForm.showmodal;
  ChartSaleForm.free;
end;

procedure TMainForm.Menu_chart_scxsClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  Application.CreateForm(TChartSaleSCForm, ChartSaleSCForm);
  ChartSaleSCForm.showmodal;
  ChartSaleSCForm.free;
end;

procedure TMainForm.Menu_bassmessage_depotClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TDepotInfoForm, DepotInfoForm);
  DepotInfoForm.showmodal;
  DepotInfoForm.free;
   //User_depotgoodsMenu;
end;

procedure TMainForm.Menu_data_depotjhClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '增加') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TDepotjhForm, DepotjhForm);
  DepotjhForm.Dock(panel_main, BoundsRect);
  DepotjhForm.show;
end;

procedure TMainForm.Menu_data_depotthClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '增加') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TdepotthForm, depotthForm);
  depotthForm.Dock(panel_main, BoundsRect);
  depotthForm.show;
end;

procedure TMainForm.Menu_data_jhthClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '增加') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TscthForm, scthForm);
  scthForm.Dock(panel_main, BoundsRect);
  scthForm.show;

end;

procedure TMainForm.Menu_data_xsthClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '增加') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TxsthForm, xsthForm);
  xsthForm.Dock(panel_main, BoundsRect);
  xsthForm.show;
end;

procedure TMainForm.Menu_ywcx_scxstjClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryscSellForm, QueryscSellForm);
  QueryscSellForm.Dock(panel_main, BoundsRect);
  QueryscSellForm.show;
end;

procedure TMainForm.Menu_ywcx_cpxstjClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryspSellForm, QueryspSellForm);
  QueryspSellForm.Dock(panel_main, BoundsRect);
  QueryspSellForm.show;
end;

procedure TMainForm.Menu_ywcx_scjhtjClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryscjhForm, QueryscjhForm);
  QueryscjhForm.Dock(panel_main, BoundsRect);
  QueryscjhForm.show;
end;

procedure TMainForm.Menu_ywcx_ckjhtjClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryckjhForm, QueryckjhForm);
  QueryckjhForm.Dock(panel_main, BoundsRect);
  QueryckjhForm.show;

end;

procedure TMainForm.Menu_ywcx_sckcsptjClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQuerysckctjForm, QuerysckctjForm);
  QuerysckctjForm.Dock(panel_main, BoundsRect);
  QuerysckctjForm.show;
end;

procedure TMainForm.Menu_ywcx_sclskccxClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQuerylskccxForm, QuerylskccxForm);
  QuerylskccxForm.Dock(panel_main, BoundsRect);
  QuerylskccxForm.show;

end;

procedure TMainForm.Menu_ywcx_scspjxcmxClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryspjxcForm, QueryspjxcForm);
  QueryspjxcForm.Dock(panel_main, BoundsRect);
  QueryspjxcForm.show;
end;

procedure TMainForm.Menu_ywcx_spfbClick(Sender: TObject);
begin
  if not Checkrights(USERRIGHTS, '查看') then
  begin
    messagedlg(Errormsg0006 + '0007', mterror, [mbok], 0);
    exit;
  end;
  application.CreateForm(TQueryspfbForm, QueryspfbForm);
  QueryspfbForm.Dock(panel_main, BoundsRect);
  QueryspfbForm.show;
end;

procedure TMainForm.Menu_file_exitClick(Sender: TObject);
begin
  self.Close;
end;

procedure TMainForm.menu_file_aboutClick(Sender: TObject);
begin
  Application.CreateForm(TAboutForm, AboutForm);
  AboutForm.showmodal;
  AboutForm.free;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  I_temp, I_windowscount: integer;
  I_savedays, I_count: integer;
  TragetPath, DFilePath: string;
  FromBuf: array[0..255] of Char;
  OpStruc: TSHFileOpStruct;
begin
   //有打开的数据窗口，则警告
  if Panel_main.DockClientCount > 0 then
  begin
    if messagedlg(Infmsg0005 + #13 + #13 + Askmsg0003, mtConfirmation, mbOKCancel, 0) = mrOK then
    begin
      I_windowscount := panel_main.DockClientCount;
      for I_temp := 0 to I_windowscount - 1 do
      begin
        try
          (panel_main.DockClients[0] as Tform).Close;
          application.ProcessMessages;
               //窗口未被正常关闭，退出
          if I_windowscount - (I_temp + 1) < panel_main.DockClientCount then
          begin
            canclose := false;
            exit;
          end;
        except
          canclose := false;
        end;
      end;
    end
    else
    begin
      canclose := false;
      exit;
    end;
  end;
  if messagedlg('确定要退出' + application.Title + '吗？', mtconfirmation, [mbyes, mbCancel], 0) = mryes then
  begin
    if S_autosave = '1' then //系统自动备份
    begin
      self.Hide;
      application.CreateForm(TPrograssForm, PrograssForm);
      PrograssForm.P_message.Caption := '正在自动备数据，请稍候...';
      PrograssForm.show;
      PrograssForm.Update;
      Application.ProcessMessages;
      application.CreateForm(TbackupForm, backupForm);
      backupForm.B_showmessage := false; //不显示提示信息
      try
        I_savedays := strtoint(S_savedays);
      except
        I_savedays := 5;
      end;
      if (I_savedays < 1) or (I_savedays > 30) then I_savedays := 5;
      TragetPath := ExtractFileDir(Application.ExeName);
      if (StrLen(PChar(TragetPath)) <> 3) then
        TragetPath := TragetPath + '\';

      with OpStruc do
      begin
        Wnd := Handle;
        wFunc := FO_COPY;
        pFrom := @FromBuf;
        pTo := @FromBuf;
        fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
        fAnyOperationsAborted := False;
        hNameMappings := nil;
        lpszProgressTitle := nil;
      end;
      for I_count := I_savedays to 100 do
      begin
        DFilePath := TragetPath + 'BACKUPDATA\' + formatdatetime('yyyymmdd', date - I_count);
        if DirectoryExists(DFilePath) then
        begin
          try
            FillChar(FromBuf, Sizeof(FromBuf), 0);
            StrPCopy(FromBuf, Pchar(DFilePath));
            OpStruc.wFunc := FO_DELETE;
            StrPCopy(FromBuf, Pchar(DFilePath));
            ShFileOperation(OpStruc);
          except
            showmessage('系统在备份数据过程中发生一个未知错误，但这并不影响新数据的备份' + chr(13) + chr(13)
              + '如果这个问题不解决，下次系统自动备份数据时可能也出现类似信息');
          end;
        end;
      end;
      if not DirectoryExists(TragetPath + 'BACKUPDATA') then
      try
        forcedirectories(TragetPath + 'BACKUPDATA');
      except
        showmessage('系统自动份备在创建目录时发生未知错误！');
        backupForm.Free;
        canclose := true;
        PrograssForm.Free;
        exit;
      end;
      backupForm.Edit_path.Text := TragetPath + 'BACKUPDATA\' + formatdatetime('yyyymmdd', date);
      backupForm.OKBtnClick(sender);
      PrograssForm.Free;
    end;
    canclose := true;
  end
  else
    canclose := false;
end;

procedure TMainForm.Panel_mainConstrainedResize(Sender: TObject;
  var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer);
begin
  if Panel_main.DockClientCount > 0 then
    Panel_main.Color := clBtnFace
  else
    Panel_main.Color := clMoneyGreen;
end;

procedure TMainForm.Panel_mainMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  I_temp: integer;
begin
  if Panel_main.DockClientCount > 0 then
  begin
    Panel_main.Color := clBtnFace;
    for I_temp := 0 to Panel_main.DockClientCount - 1 do
    begin
      if (Panel_main.DockClients[I_temp] as Tform).Showing then exit;
    end;
    Panel_main.DockClients[0].Show;
  end
  else
    Panel_main.Color := clMoneyGreen;
end;

procedure TMainForm.TB_aboutClick(Sender: TObject);
begin
  Application.CreateForm(TAboutForm, AboutForm);
  AboutForm.showmodal;
  AboutForm.free;

end;

end.