GerixSoft

Summary

This article describes the course of actions you should take

1. if your database somehow got "suspect mode" or "emergency mode";
2. if you receive the error 1813 on attaching database

The History Behind 

I've been developing under SQL 7 for a while. Sometimes transaction log grew too large. My usual fix for that problem was:

1. stop the server (on the development machine we do not need any logs), 
2. delete transaction log
3. start the server again
4. after that the server was creating empty 1MB transaction log from scratch

I had been using this technique a lot of times under SQL 7, until sometime I have migrated to MSSQL 2000...

After my transaction log grew too large, I stopped the server, deleted the log file and started the server once again. However this time it did not worked: my database got "suspect". I was not able to read or write from the database. A week of work seemed to be lost... Ouch!...

I searched the newsgroups - a lot of people were facing the same problem and nobody knew the solution. All I found was the article: http://support.microsoft.com/support/kb/articles/q251/6/28.asp. I have tried that and revealed information in the article applies only to SQL 7 and does not to SQL 2000...

Did I solved the problem? Read on!

"Suspect Mode" --> "Emergency Mode"

Open Enterprise Manager,

1. Right click onto your server node, - an SQL Server Properties dialog will popup,
2. Enable "Allow modifications to be made directly to the system catalogs" option
   
3. Now proceed to the sysdatabases table in the master database, locate your database row and put 32768 into its status column
   
4. Restart SQL Server and refresh Enterprise Manager

Open Enterprise Manager - the database will be marked as "Emergency Mode"

These articles explain the trick behind suspect and emergency mode:
http://support.microsoft.com/support/kb/articles/Q165/9/18.ASP
http://www.swynk.com/friends/knight/unmarksuspect.asp
http://support.microsoft.com/support/kb/articles/Q180/5/00.asp

"Emergency Mode" --> "Normal Mode"

Now your database is in "emergency mode". Disregard Enterprise Manager does not show tables, views and procedures - use Query Analyzer's Object Browser instead.

"Emergency mode" means database is locked against any modifications, it is readonly forever. There is no way to bring "emergency" database back to normal state. All we can do is copy all data from it into new database.

1. Create new database (pubz)
   
2. Create new DTS package
3. Use "Copy SQL Objects" task to transfer data from old database to new database (pubs->pubz)
   
4. Execute the DTS job & enjoy!

Note that there might be complex dependencies between database objects, so Copy SQL Objects task might not work properly. For example: view A is dependent on view Z; Copy SQL Objects task will try to create view A first, -- that will fail, because view Z does not exist yet.

"Error 1813" --> "Suspect Mode"

If you receive "Error 1813", this probably means that you are trying to attach database you have improperly detached, or haven't detached at all. Only successfully detached databases can be successfully attached back.

1. Create new database using the same name and file location as database that is failing to attach
2. Stop SQL Server
3. Copy non-attachable data files over the new ones
4. Delete log files
5. Start SQL Server

Open Enterprise Manager - the database will be marked as "suspect"

Once your database is "suspect", use instructions outlined above...

Note that database will be marked "suspect" only if transaction log contained active sections. To illustrate the problem for 100%, run a few inserts against the database before deleting transaction log. 

Question/Problem/Abstract:

Make TPanel designable likewise TForm & TDataModule...

Answer:

unit PanelForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls;

type
  TPanelForm = class(TPanel)
  private
    FOnCreate: TNotifyEvent;
    FOnDestroy: TNotifyEvent;
  protected
    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
  public
    constructor Create(AOwner: TComponent); override;
    constructor CreateNew(AOwner: TComponent);
    destructor Destroy; override;
  published
    property OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
  end;

implementation

uses
  Consts;

procedure TPanelForm.GetChildren(Proc: TGetChildProc; Root: TComponent);
var
  I: Integer;
  OwnedComponent: TComponent;
begin
  inherited GetChildren(Proc, Root);
  if Root = Self then
    for I := 0 to ComponentCount - 1 do
    begin
      OwnedComponent := Components[I];
      if not OwnedComponent.HasParent then Proc(OwnedComponent);
    end;
end;

constructor TPanelForm.Create(AOwner: TComponent);
begin
  CreateNew(AOwner);
  if (ClassType <> TPanelForm) {and not (csDesigning in ComponentState)} then
    if not InitInheritedComponent(Self, TPanelForm) then
      raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
  try
    if Assigned(FOnCreate) then FOnCreate(Self);
  except
    Application.HandleException(Self);
  end;
end;

constructor TPanelForm.CreateNew(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TPanelForm.Destroy;
begin
  if Assigned(FOnDestroy)
    then FOnDestroy(Self);
  inherited;
end;

end.

 unit xFormsReg;

interface

procedure Register;

implementation

uses
  DsgnIntf, Classes, PanelForm;

procedure Register;
begin
  RegisterCustomModule(TPanelForm, nil);
  RegisterClass(TPanelForm);
end;

end.

package xForms;

requires
  vcl40;

contains
  PanelForm,
  xFormsReg;

end.

There is no standard way to create such panel forms. Just create new form, change its ancestor from TForm to TPanelForm and press Alt+F12 two times.

Good luck !