loadtblf.pas

是一个delphi的流程制作软件

{-----------------------------------------------------------------------------
 Unit Name: LoadTblF
 Author:    hubdog
 Purpose:
 History:   注意在中文环境下应该将所有的英文相关的名称信息，改成中文方能运行通过
-----------------------------------------------------------------------------}


unit LoadTblF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Db, DBTables, Mask, ComCtrls;

type
  TLoadTableForm = class(TForm)
    ApptTable: TTable;
    ContactDs: TDataSource;
    DBNavigator1: TDBNavigator;
    LoadBtn: TButton;
    PageControl1: TPageControl;
    ListTs: TTabSheet;
    DetailsTs: TTabSheet;
    DBGrid1: TDBGrid;
    procedure LoadBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoadTableForm: TLoadTableForm;

implementation

uses ComObj;

{$R *.DFM}

procedure TLoadTableForm.LoadBtnClick(Sender: TObject);
var
  OutlookApp,
  Mapi,
  ApptItems,
  CurrentAppt:       Variant;
begin
  {Get the Outlook Application object.}
  OutlookApp := CreateOleObject('Outlook.Application');
  {Get the MAPI NameSpace object.}
  Mapi := OutlookApp.GetNameSpace('MAPI');
  {Get the Items collection from the Contacts folder.
   Note that if you do not do this FindNext will not work.}
  ApptItems := Mapi.Folders('个人文件夹').Folders('Calendar').Items;
  {Load Contacts into table.}
  with ApptTable do
  begin
    EmptyTable;
    Open;
    DisableControls;
    CurrentAppt := ApptItems.Find('[Start] > ' +
                        '"4/27/99" and [AllDayEvent] = True');
    while not VarIsEmpty(CurrentAppt) do
    begin
      Insert;
      FieldByName('Start').AsDateTime := CurrentAppt.Start;
      FieldByName('Subject').AsString := CurrentAppt.Subject;
      FieldByName('End').AsDateTime := CurrentAppt.End;
      FieldByName('Busy').AsBoolean := CurrentAppt.BusyStatus;
      Post;
      CurrentAppt := ApptItems.FindNext;
    end; //while
    EnableControls;
  end; //with
  {Close Outlook.}
  OutlookApp := Unassigned;
end;

procedure TLoadTableForm.FormCreate(Sender: TObject);
begin
  ApptTable.DatabaseName := ExtractFilePath(Application.ExeName);
end;

end.