unit1.pas

来自「EhLib 4.2.16 中文汉化版 （Faceker.com 修改版） 」· PAS 代码 · 共 40 行

unit Unit1;

{$I EhLib.Inc}

interface

uses
  Windows, Messages, SysUtils,
{$IFDEF EH_LIB_6} Variants, {$ENDIF}
  Classes, Graphics, Controls, Forms,
  Dialogs, MemTableDataEh, Db, ADODB, DataDriverEh, ExtCtrls, GridsEh, DBGridEh,
  MemTableEh, ADODataDriverEh;

type
  TForm1 = class(TForm)
    MasterTBL: TADOTable;
    DetailMemTBL: TMemTableEh;
    DBGridEh1: TDBGridEh;
    Splitter1: TSplitter;
    DBGridEh2: TDBGridEh;
    MasterDS: TDataSource;
    DetailDS: TDataSource;
    DetailDataDrv: TADODataDriverEh;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

initialization
  DefFontData.Name := 'Microsoft Sans Serif';
end.