mainfm.pas

不管我的程序编得怎么样

unit mainfm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Buttons, ExtCtrls, ImgList, StdCtrls, jpeg,
  Menus;

type
  Tmainform = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Panel2: TPanel;
    Image3: TImage;
    Panel3: TPanel;
    Image4: TImage;
    Label1: TLabel;
    Image6: TImage;
    Image5: TImage;
    ImageList1: TImageList;
    ImageList2: TImageList;
    Panel4: TPanel;
    Bevel1: TBevel;
    Image8: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    stbMain: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton1: TToolButton;
    ToolButton10: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    procedure ToolButton8Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    Procedure showfrmabout;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public  
    Procedure showloginfm;
    procedure showsettingfm;
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

uses loginfm,dmfm,aboutfm,setfm,userfm,infofm,xmfm,sjfm;
{$R *.dfm}

procedure Tmainform.ToolButton8Click(Sender: TObject);
begin
close;
end;

procedure Tmainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose := False;
  if Application.MessageBox('是否真的退出系统？','询问',MB_ICONQUESTION+MB_YESNO) = IDYES then
  begin
    CanClose := True;
  end;
end;

procedure Tmainform.FormShow(Sender: TObject);
 var
  g: TRect;
  wndHandle : THandle;
  wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE);
  GETWINDOWRECT(wndHandle,g);
  Height := g.Top;
  Width  := screen.Width;
 Top  := 0;
  Left := 0;
  stbMain.Panels[0].Text := '请管理员登陆进行操作';
  stbMain.Panels[2].Text := '欢迎使用本客户管理系统!copyright BY Eleven QQ:123000948';
  stbMain.Panels[1].Text := '今天是：'+DateToStr(date)+'';
  toolbutton3.Visible:=false;
  toolbutton5.Visible:=false;
  toolbutton6.Visible:=false;
  SpeedButton1.Visible:=false;
  SpeedButton2.Visible:=false;
  SpeedButton4.Visible:=false;
  toolbutton4.Caption:='登录';
end;

procedure Tmainform.ToolButton10Click(Sender: TObject);
var
tepstr:string;
begin
 tepstr:=  'Calc.exe';
 if FileExists(tepstr) then
  Winexec(pchar(tepstr),1)
 else
  Application.MessageBox(PChar(tepstr+'文件不存在。'),'提示',MB_OK);

end;

Procedure Tmainform.showfrmabout;
begin
  if not Assigned(frmAbout) then
  begin
    frmAbout := TfrmAbout.Create(Application);
    try
      frmAbout.Image1.Tag := 1;
      frmAbout.ShowModal;
    finally
      frmAbout.Free;
      frmAbout := nil;
    end;
  end;
end;



procedure Tmainform.ToolButton1Click(Sender: TObject);
begin
showfrmAbout;
end;

procedure Tmainform.ToolButton4Click(Sender: TObject);
begin
showloginfm;
end;

procedure Tmainform.showloginfm;
begin
if not Assigned(loginform) then
 begin
    loginform := Tloginform.Create(Application);
    try
     loginform.ShowModal;
     finally
      loginform.Free;
      loginform := nil;
    end;
 end;
end;
  
procedure Tmainform.ToolButton6Click(Sender: TObject);
begin
showsettingfm;
end;

procedure Tmainform.showsettingfm;
begin 
 //if not Assigned(settingform) then
 //begin
 //   settingform := Tsettingform.Create(Application);
 //   try
     settingform.ShowModal;
 //    finally
 //     settingform.Free;
 //     settingform := nil;
 //   end;
 //end;
end;



procedure Tmainform.SpeedButton2Click(Sender: TObject);
begin
 //  if not Assigned(userform) then
//  begin
 //   userform := Tuserform.Create(Application);
//    try
      userform.ShowModal;
//    finally
//      userform.Free;
//      userform := nil;
 //   end;
//  end;
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
 infoform.ShowModal;
end;

procedure Tmainform.ToolButton3Click(Sender: TObject);
begin
xmform.ShowModal;
end;

procedure Tmainform.SpeedButton1Click(Sender: TObject);
begin
sjform.ShowModal;
end;

end.