delphi+access设备保养管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九)

delphi+access设备保养管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](九) sp; Dialogs, Menus, ComCtrls, DB, ADODB, XPMenu,ADOConEd;

type
Tfrmmain = class(TForm)
    MainMenu: TMainMenu;
    mnufile: TMenuItem;
    mnudata: TMenuItem;
    mnuexit: TMenuItem;
    mnuabout: TMenuItem;
    mnumain: TMenuItem;
    mnuuser: TMenuItem;
    mnuuserlongin: TMenuItem;
    mnuusermang: TMenuItem;
    StatusBar1: TStatusBar;
    adocon: TADOConnection;
    mnufileline: TMenuItem;
    mnuset: TMenuItem;
    mnudataset: TMenuItem;
    mnuprint: TMenuItem;
    mnuusernologin: TMenuItem;
    mnuuserline: TMenuItem;
    XPMenu1: TXPMenu;
    procedure mnudataClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mnumainClick(Sender: TObject);
    procedure mnuexitClick(Sender: TObject);
    procedure mnuuserlonginClick(Sender: TObject);
    procedure mnuaboutClick(Sender: TObject);
    procedure mnudatasetClick(Sender: TObject);
    procedure mnuusermangClick(Sender: TObject);
    procedure mnuprintClick(Sender: TObject);
    procedure mnuusernologinClick(Sender: TObject);
private
    { Private declarations }
     procedure IntINI;
public
    { Public declarations }
     SL:TStringList;
end;

var
frmmain: Tfrmmain;
FileName:String;
implementation

uses Unit2, Unit1, Unit7, Unit8, Unit9, Unit3, Unit6;
const
ScreenWidth: LongInt = 800;
ScreenHeight: LongInt = 600;
{$R *.dfm}

procedure Tfrmmain.mnudataClick(Sender: TObject);
begin

//if frmmain.MDIChildCount <2 then
if frmmain.ActiveMDIChild.Caption<>'^论文管理' then
begin
application.CreateForm(Tform2, form2);
//form2:=tform2.Create(nil);
form2.Show;
end
else
begin
messagedlg('SORRY!,^论文管理窗口已打开，不能重复打开同一个窗口',mterror,[mbok],0);
end

end;

procedure Tfrmmain.FormCreate(Sender: TObject);
var
Con:String;
begin
fileName:=ExtractFilePath(ParamStr(0))+'datalink.ini';
if FileExists(FileName) then
begin
    SL:=TStringList.Create;
    SL.LoadFromFile(FileName);
    Con:=SL.Text;
    try
      frmmain.ADOCon.Connected:=false;
      frmmain.ADOCon.ConnectionString:=Con;
     frmmain.ADOCon.Connected:=true;
   // RunTimeInfo;
    except
      showmessage('数据库初始化错误，无法找到数据库'+#13+Con);
    end;
end;