unit1.pas

我的信息管理中心程序（源码）适合初级

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,MYLIB,
  Dialogs, bsTrayIcon, bsSkinData, Menus, bsSkinMenus, bsMessages, DB,
  ADODB;

type
  Tfrmlogo = class(TForm)
    bsTrayIcon1: TbsTrayIcon;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinData1: TbsSkinData;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogo: Tfrmlogo;

implementation

uses main;

{$R *.dfm}

procedure Tfrmlogo.FormCreate(Sender: TObject);
VAR MYCON:WIDESTRING;
begin
bsskindata1.LoadFromFile(GETEXEDIR+'skin.ini');
MYCON:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GETEXEDIR+'db2.mdb;Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet '
+'OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'
+''''+'t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';
ADOConnection1.ConnectionString:=MYCON;

end;

procedure Tfrmlogo.N2Click(Sender: TObject);
begin
IF FRMMAIN=NIL THEN
BEGIN                                                           
FRMMAIN:=TFRMMAIN.Create(SELF);
END;
FRMMAIN.Show;
end;

procedure Tfrmlogo.N1Click(Sender: TObject);
begin
CLOSE;
end;

end.