sybschema.pas

sybase大全

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.