www.pudn.com > sybase_dblib4.zip > SybSchema.pas

unit SybSchema; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  sybschemamain; 
 
type 
  SybObjectname = string[30]; 
 
type 
  TSybSchema = class(TComponent) 
  private 
    { Private declarations } 
    FDbname      :SybObjectname; 
    FUserName    :SybObjectname; 
    FPassword    :SybObjectname; 
    FServerName  :SybObjectname; 
    FLoginPrompt :boolean; 
    FServerPrompt:boolean; 
    procedure SetDbName(Value :SybObjectname); 
    procedure SetUserName(Value :SybObjectname); 
    procedure SetPassword(Value :SybObjectname); 
    procedure SetServerName(Value :SybObjectname); 
    procedure SetLoginPrompt(Value :boolean); 
    procedure SetServerPrompt(Value :boolean); 
 protected 
    { Protected declarations } 
  public 
    { Public declarations } 
    dbproc  :integer; 
    procedure exec; 
    constructor create(AOwner:TComponent); override; 
  published 
    { Published declarations } 
    property Password :SybObjectname read FPassword write SetPassword; 
    property DBName :SybObjectname read FDBName write SetDBName; 
    property UserName :SybObjectname read FUserName write SetUserName; 
    property ServerName :SybObjectname read FServerName write SetServerName; 
    property LoginPrompt :boolean read Floginprompt write Setloginprompt default True; 
    property ServerPrompt :boolean read FServerPrompt write SetServerPrompt default True; 
  end; 
 
procedure Register; 
 
implementation 
 
procedure Register; 
begin 
  RegisterComponents('Sybase DBLIB', [TSybSchema]); 
end; 
 
procedure TSybSchema.SetDbname(Value :SybObjectname); 
var retcode : integer; 
begin 
  FDbname:=value; 
end; 
 
procedure TSybSchema.exec; 
begin 
  main:=Tmain.create(self); 
  main.show; 
  sybschemamain.main.schema_syb.username:=fusername; 
  sybschemamain.main.schema_syb.dbname:=fdbname; 
  sybschemamain.main.schema_syb.servername:=fservername; 
  sybschemamain.main.schema_syb.loginprompt:=floginprompt; 
  sybschemamain.main.schema_syb.serverprompt:=fserverprompt; 
  sybschemamain.main.schema_syb.connect; 
end; 
 
constructor TSybSchema.create(AOwner:TComponent); 
var p:pointer; 
begin 
  inherited create(AOwner); 
  Floginprompt:=True; 
  Fserverprompt:=True; 
  FDBName:='master'; 
end; 
 
procedure TSybSchema.SetUserName(Value :SybObjectname); 
begin 
  FUserName:=Value; 
end; 
 
procedure TSybSchema.SetServerName(Value :SybObjectname); 
begin 
  FServerName:=Value; 
end; 
 
procedure TSybSchema.SetPassword(Value :SybObjectname); 
begin 
  FPassword:=Value; 
end; 
 
procedure TSybSchema.SetLoginPrompt(Value :boolean); 
begin 
  FLoginPrompt:=Value; 
end; 
 
procedure TSybSchema.SetServerPrompt(Value :boolean); 
begin 
  FServerPrompt:=Value; 
end; 
 
end.