adosm_data.pas

来自「SM_Msg.rar 手机短信发送程序」· PAS 代码 · 共 48 行

unit ADOSM_Data;

interface

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

type
  TfrmSM_Data = class(TDataModule)
    ADOSM_Data: TADOConnection;
    ADOPar: TADOCommand;
    procedure LineItemsCalcFields(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSM_Data: TfrmSM_Data;

implementation

{$R *.dfm}

procedure TfrmSM_Data.LineItemsCalcFields(DataSet: TDataSet);
begin
{  LineItemsExtendedPrice.Value := LineItemsPrice.Value *
    ((100 - LineItemsDiscount.Value) / 100);
  LineItemsTotal.Value := LineItemsExtendedPrice.Value *
    LineItemsQty.Value;}
end;

procedure TfrmSM_Data.DataModuleCreate(Sender: TObject);
var
 CurrentDir:string;
begin
CurrentDir:=ExtractFilePath(Application.ExeName);
ADOPar.Parameters.ParamByName('User').Value:='';
ADOPar.Parameters.ParamByName('PassWord').Value:='';
ADOSM_Data.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentDir+'\SM.mdb;Persist Security Info=False';
ADOSM_Data.Connected:=True;
end;

end.