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;

  scaled := true;
  if (screen.width <> ScreenWidth) then
  begin
    height := longint(height) * longint(screen.height) div ScreenHeight;
&nb

首页 上一页 6 7 8 9 10 下一页 尾页 9/10/10

delphi+access设备保养管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](九)由毕业论文网（www.huoyuandh.com）会员上传。