unit5.pas

一个DEPHI设备保养系统全套,不错的设计参考

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  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;
    width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
end;

frmmain.statusbar1.Panels[1].Text:='欢迎使用！请选择你要进行的操作！' ;
frmmain.StatusBar1.Panels[2].Text:='当前用户：';

end;

procedure Tfrmmain.mnumainClick(Sender: TObject);
begin

if frmmain.ActiveMDIChild.Caption<>'主数据表' then
//if frmmain.MDIChildCount <2 then
begin
application.CreateForm(Tfrmmaintable, frmmaintable);
//frmmaintable:=tfrmmaintable.Create(nil);
frmmaintable.Show;
frmmain.mnuprint.Enabled:=true;
end
else
begin
messagedlg('SORRY!,主数据表窗口已打开，不能重复打开同一个窗口',mterror,[mbok],0);
end
end;

procedure Tfrmmain.mnuexitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmmain.mnuuserlonginClick(Sender: TObject);
begin
application.CreateForm(TPasswordDlg, PasswordDlg);
PasswordDlg.show;
end;

procedure Tfrmmain.mnuaboutClick(Sender: TObject);
begin
application.CreateForm(Tfrmabout, frmabout);
frmabout.show;
end;

procedure Tfrmmain.mnudatasetClick(Sender: TObject);
begin
EditConnectionString(frmmain.ADOCon);
sl.Text:=frmmain.adocon.ConnectionString;
IntINI;
end;

procedure TfrmMain.IntINI;
begin
  SL.SaveToFile(Filename);
  //RunTimeInfo;
end;


procedure Tfrmmain.mnuusermangClick(Sender: TObject);
begin
if frmmain.StatusBar1.Panels[3].Text<>'' then
begin
frmusermang:=tfrmusermang.Create(nil);
frmusermang.Show;
end
else
messagedlg('当前用户尚未登录，请先进行登录后再试！',mtwarning,[mbok],0);
end;
procedure Tfrmmain.mnuprintClick(Sender: TObject);   //判断当前激活的子窗口
begin
if frmmain.ActiveMDIChild.Caption='主数据表'  then
frmmaintable.tblprint.Click;

if frmmain.ActiveMDIChild.Caption='资料管理' then
form2.btnprint.Click;
end;

procedure Tfrmmain.mnuusernologinClick(Sender: TObject);
begin
frmmain.mnuusernologin.Enabled:=false;
frmmain.StatusBar1.Panels[2].Text:='当前用户：';
frmmain.StatusBar1.Panels[3].Text:='';
end;

end.