temp_unit2.pas

来自「Msaccess 転換成 Bcon, 使用Delphi 編寫COM Msacc」· PAS 代码 · 共 46 行

unit Temp_Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,
  DB, ADODB, DBClient;

type
  TForm2 = class(TForm)
    ADOTable1: TADOTable;
    ClientDataSet1: TClientDataSet;
    ADOTable1DSDesigner: TAutoIncField;
    ADOTable1ServerName: TWideStringField;
    ADOTable1ServerPort: TIntegerField;
    ADOTable1ServerUser: TWideStringField;
    ADOTable1ServerPassword: TWideStringField;
    ADOTable1SMTPAuthenticationType: TIntegerField;
    ADOTable1EmailAccount: TWideStringField;
    ADOTable1CONNECT_STRING: TWideStringField;
    ADOTable1TestMailAddress: TWideStringField;
    ClientDataSet1CDSDesigner: TAutoIncField;
    ClientDataSet1ServerName: TWideStringField;
    ClientDataSet1ServerPort: TIntegerField;
    ClientDataSet1ServerUser: TWideStringField;
    ClientDataSet1ServerPassword: TWideStringField;
    ClientDataSet1SMTPAuthenticationType: TIntegerField;
    ClientDataSet1EmailAccount: TWideStringField;
    ClientDataSet1CONNECT_STRING: TWideStringField;
    ClientDataSet1TestMailAddress: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.