unitopen.pas

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

unit UnitOpen;

interface

uses
  Windows, Messages, SysUtils, Forms;

type
  TFormOpen = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
    { Public declarations }
  end;

implementation

uses UnitDataMD, MainOutUnit;

{$R *.dfm}

procedure TFormOpen.FormCreate(Sender: TObject);
begin
  with DataMD do begin
    ADOConnection.ConnectionString:=DCntString;
    ADOConnection.Connected:=True;
  end;
end;

end.