unit_main.~pas

美汇美容网网站管理系统

unit Unit_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Unit_info, ComCtrls, Unit_job, StdCtrls, ShellAPI;

type
  TForm_Main = class(TForm)
    Image1: TImage;
    imInfoManage: TImage;
    imResumeManage: TImage;
    imJobManage: TImage;
    imShopManage: TImage;
    ImOrderManage: TImage;
    ImDealerManage: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure imInfoManageClick(Sender: TObject);
    procedure ImDealerManageClick(Sender: TObject);
    procedure ImOrderManageClick(Sender: TObject);
    procedure imJobManageClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure imResumeManageClick(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure imShopManageClick(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Main: TForm_Main;

implementation

uses Unit_Enterprise, Unit_order_list, Unit_Setup, Unit_DM, Unit_Resume,
  Unit_Image_Upload, Unit_Goods;

{$R *.dfm}

procedure TForm_Main.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=false;
  if Application.MessageBox('确定要退出程序吗?','提示',MB_YESNO)=IDYES then
    CanClose:=true;
end;

procedure TForm_Main.imInfoManageClick(Sender: TObject);
begin
  application.CreateForm(TForm_Info,form_info);
  AnimateWindow(form_info.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  form_info.Show;
  form_info.Visible:=false;
  form_info.ShowModal;
  form_info.Free;
end;

procedure TForm_Main.ImDealerManageClick(Sender: TObject);
begin
  application.CreateForm(TForm_enterprise,Form_enterprise);
  AnimateWindow(Form_enterprise.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_enterprise.Show;
  Form_enterprise.Visible:=false;
  Form_enterprise.ShowModal;
  Form_enterprise.Free;
end;

procedure TForm_Main.ImOrderManageClick(Sender: TObject);
begin
  application.CreateForm(TForm_Order_List,Form_Order_List);
  AnimateWindow(Form_Order_List.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_Order_List.Show;
  Form_Order_List.Visible:=false;
  Form_Order_List.ShowModal;
  Form_Order_List.Free;
end;

procedure TForm_Main.imJobManageClick(Sender: TObject);
begin
  application.CreateForm(TForm_Job,Form_Job);
  AnimateWindow(Form_Job.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_Job.Show;
  Form_Job.Visible:=false;
  Form_Job.ShowModal;
  Form_Job.Free;
end;

procedure TForm_Main.Label1Click(Sender: TObject);
begin
  application.CreateForm(TForm_Setup,Form_Setup);
  AnimateWindow(Form_Setup.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_Setup.Show;
  Form_Setup.Visible:=false;
  Form_Setup.ShowModal;
  Form_Setup.Free;
end;

procedure TForm_Main.FormShow(Sender: TObject);
begin
  try
    dm.adoc.open;
  except
    application.MessageBox('连接数据库失败.'+#13+'请进入系统设置,设置ODBC.','提示',MB_OK);
  end;
end;

procedure TForm_Main.imResumeManageClick(Sender: TObject);
begin
  application.CreateForm(TForm_Resume,Form_Resume);
  AnimateWindow(Form_Resume.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_Resume.Show;
  Form_Resume.Visible:=false;
  Form_Resume.ShowModal;
  Form_Resume.Free;
end;
procedure TForm_Main.Label2Click(Sender: TObject);
begin
  application.CreateForm(TForm_Image_UpLoad,Form_Image_UpLoad);
  AnimateWindow(Form_Image_UpLoad.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_Image_UpLoad.Show;
  Form_Image_UpLoad.Visible:=false;
  Form_Image_UpLoad.ShowModal;
  Form_Image_UpLoad.Free;
end;

procedure TForm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.adoc.Close;
end;

procedure TForm_Main.imShopManageClick(Sender: TObject);
begin
  application.CreateForm(TForm_Goods,Form_Goods);
  AnimateWindow(Form_Goods.Handle,500,AW_VER_POSITIVE);

  {参数说明：
  1。hwnd : 一个你要显示窗体的句柄。
  2。dwTime : 完成显示操作的时间。（一般为500-1000，你可以自己调　　　　　　　　节）
　3。dwFlags :　这是一个关键的东东，它决定了你的子窗体弹出的方　　　　　　　　　式。
　dwFlags其中包括9种基本弹出方式，当然你可以组合它们使用，下面我就对者9种方法做个简单的介绍：
　a. AW_SLIDE : 表示用滑动方式显示；
　b. AW_BLEND : 表示用淡出或淡入方式显示；(Windows 2000菜单显示)
　c. AW_CENTER : 表示窗体从小窗体沿对角线扩大至窗体定义的大小；
　d. AW_HIDE : 顾名思义，就是隐藏窗体；
　e. AW_HOR_POSITIVE :窗体从左向右生成生成显示
　f. AW_HOR_NEGATIVE :窗体从右向左生成生成显示
　g. AW_VER_NEGATIVE :窗体从下向上生成生成显示
　h: AW_VER_POSITIVE :窗体从上向下生成生成显示
　i: AW_ACTIVATE :顾名思义，就是激活窗体；}


  Form_Goods.Show;
  Form_Goods.Visible:=false;
  Form_Goods.ShowModal;
  Form_Goods.Free;
end;

procedure TForm_Main.Label3Click(Sender: TObject);
begin
  ShellAbout(Handle,'美汇网站管理系统', '通途国际',Application.Icon.Handle);
end;

procedure TForm_Main.Label4Click(Sender: TObject);
begin
  ShellExecute(handle,nil,'http://www.contactu.net',nil,nil,sw_shownormal);
end;

end.