www.pudn.com > Excel.zip > MainF.pas

unit MainF; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, DBCtrls, Grids, DBGrids; 
 
type 
  TMainForm = class(TForm) 
    PageControl1: TPageControl; 
    TabSheet1: TTabSheet; 
    Panel1: TPanel; 
    CreateBtn: TButton; 
    ConnectBtn: TButton; 
    OpenBtn: TButton; 
    LoadBtn: TButton; 
    DBGrid1: TDBGrid; 
    DBNavigator1: TDBNavigator; 
    StatusBar: TStatusBar; 
    procedure CreateBtnClick(Sender: TObject); 
    procedure ConnectBtnClick(Sender: TObject); 
    procedure OpenBtnClick(Sender: TObject); 
    procedure LoadBtnClick(Sender: TObject); 
  private 
    { Private declarations } 
    FExcelWindow:         HWND; 
    FOldExcelParent:      HWND; 
  public 
    { Public declarations } 
  end; 
 
var 
  MainForm: TMainForm; 
 
implementation 
 
uses MainD; 
 
{$R *.dfm} 
 
const 
  WORKBOOK_NAME           = 'Items.xls'; 
 
procedure TMainForm.CreateBtnClick(Sender: TObject); 
begin 
  MainDm.CreateExcelWorkbook(WORKBOOK_NAME); 
end; 
 
procedure TMainForm.ConnectBtnClick(Sender: TObject); 
begin 
  MainDm.ConnectToExcel; 
end; 
 
procedure TMainForm.OpenBtnClick(Sender: TObject); 
begin 
  MainDm.OpenExcelWorkbook(WORKBOOK_NAME); 
  MainDm.CopyExcelDataToClientDataSet; 
end; 
 
procedure TMainForm.LoadBtnClick(Sender: TObject); 
begin 
  MainDm.LoadWorksheetData; 
end; 
 
end.