hygl_main.pas

工会会员信息管理系统 v1.0.5 (DAO+ACCESS+QR).

unit HYGL_main;

interface

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

type
  TFrmHYGL_main = class(TForm)
    MainMenu1: TMainMenu;
    mnu_file: TMenuItem;
    N1: TMenuItem;
    N20: TMenuItem;
    N10: TMenuItem;
    N17: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    mnu_cx: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N37: TMenuItem;
    mnu_tj: TMenuItem;
    N45: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N24: TMenuItem;
    mnu_Report: TMenuItem;
    N50: TMenuItem;
    N34: TMenuItem;
    N57: TMenuItem;
    mnu_tools: TMenuItem;
    N56: TMenuItem;
    XP1: TMenuItem;
    N13: TMenuItem;
    qita1: TMenuItem;
    mnu_help: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    ImageList3: TImageList;
    Img_LOGO: TImage;
    Panel1: TPanel;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton34: TToolButton;
    ToolButton9: TToolButton;
    ToolBar2: TToolBar;
    ToolButton11: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton29: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton30: TToolButton;
    ToolButton28: TToolButton;
    ToolButton33: TToolButton;
    Image1: TImage;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    FlatHint1: TFlatHint;
    N11: TMenuItem;
    N14: TMenuItem;
    N23: TMenuItem;
    N25: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N29: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N22: TMenuItem;
    procedure MenuItems(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmHYGL_main: TFrmHYGL_main;

implementation

uses HYGL_addnew, HYGL_CXHY, HYGL_about, HYGL_hydd, HYGL_ZXHY, HYGL_ZLHY,
  HYGL_addnew_ZGDB,  HYGL_CXHY_zgdb, HYGL_ZLHY_ZGDB, HYGL_ZXHY_ZGDB, HYGL_report,
  HYGL_report_dbmc, HYGL_report_dbtj, HYGL_report_HYmc, HYGL_TJ_DW,
  HYGL_TJ_RHSJ, HYGL_TJ_XB, HYGL_TJ_XL, HYGL_TJ_ZGDB, HYGL_TJ_CSNY;

{$R *.dfm}

procedure TFrmHYGL_main.FormCreate(Sender: TObject);
begin
  width:=800;
  height:=600;
end;

procedure TFrmHYGL_main.MenuItems(Sender: TObject);
var
  m:tform;
  n:integer;
begin
  m:=nil;
  n:=0;
  if (sender is tmenuitem) then
    n:=(sender as tmenuitem).tag;
  if (sender is Ttoolbutton) then
    n:=(sender as Ttoolbutton).tag;
  case n of
    11:
    try
      m:=TFrmhygl_addNew.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    12:
    try
      m:=TFrmhygl_addNew_ZGDB.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    13:
    try
      m:=TFrmhygl_HYDD.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    14:
    try
      m:=TFrmhygl_ZXHY.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    15:
    try
      m:=TFrmhygl_ZXHY_ZGDB.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    19:
      close;
    21:
    try
      m:=TFrmhygl_cxhy.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    22:
    try
      m:=TFrmhygl_cxhy_ZGDB.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    24:
    try
      m:=TFrmhygl_ZLhy.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    25:
    try
      m:=TFrmhygl_ZLhy_ZGDB.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    31:
    try
      m:=TFrmhygl_tj_XB.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    32:
    try
      m:=TFrmhygl_TJ_DW.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    33:
    try
      m:=TFrmhygl_TJ_XL.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    34:
    try
      m:=TFrmhygl_TJ_CSNY.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    35:
    try
      m:=TFrmhygl_TJ_ZGDB.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    41:
      messagebox(handle,pchar('该功能暂缺。如有需要，敬请垂询水石工作室。'),'提示',64 +mb_ok);
    42:
    try
      m:=TFrmhygl_report_HYmc.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    43:
    try
      m:=TFrmhygl_report_dbmc.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    44:
    try
      m:=TFrmhygl_report_dbtj.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
    71:
      messagebox(handle,pchar('完善中！敬请期待。'),'提示',64 +mb_ok);
    73:
    try
      m:=TFrmhygl_about.Create(application);
      m.showmodal;
    finally
      m.free;
    end;
  end;
end;


procedure TFrmHYGL_main.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MessageBox(application.handle,
                '您确定要退出工会会员信息管理系统吗？     ',
                '确认',mb_ICONQuestion+mb_YesNo)=mrno then
    canclose:=false
  else
    application.Terminate;
end;

end.