【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供frm_BdeLogin.pas参考,解决您在frm_BdeLogin.pas学习中工作中的难题,参考学习。
unit frm_BdeLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables,DBITypes, Grids, DBGrids, StdCtrls,xpman;
type
TForm1 = class(TForm)
TbList: TTable;
Database: TDatabase;
DataSource1: TDataSource;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
dir:String;
begin
getdir(0,dir);
session.AddStandardAlias('CcterryDB',dir+'\','Paradox');
DATABASE.AliasName:='CcterryDB';
DATABASE.DatabaseName:='TerryDB';
TBList.DatabaseName:='TerryDB';
TBList.TableName:='TerryDb.Db';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TBlist.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
tblist.Open;
end;
end.