您现在的位置：毕业论文 >> 论文 >> 正文

DELPHI办公管理系统第14页

更新时间：2010-1-17: 来源：毕业论文

DELPHI办公管理系统第14页
procedure TBM_LOGINF.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
// canclose:=false;
//if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
// canclose:=true;
//application.Terminate ;
end;

end.
3.2 部门管理界面与代码设计实现及功能

代码设计:
unit BM_BUMENU;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls,
Menus, ImgList, DB, DBTables, Buttons;

type
TBM_BENMENF = class(TForm)
    Splitter1: TSplitter;
    pmOperate: TPopupMenu;
    N_insert: TMenuItem;
    N_delete: TMenuItem;
    N_edit: TMenuItem;
    N_cancel: TMenuItem;
    N_save: TMenuItem;
    N7: TMenuItem;
    N_refresh: TMenuItem;
    ImageList2: TImageList;
    ImageList1: TImageList;
    pmOther: TPopupMenu;
    N_Order: TMenuItem;
    N_Print: TMenuItem;
    Panel1: TPanel;
    TreeView: TTreeView;
    Panel4: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel3: TPanel;
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdt_Bmbm: TDBEdit;
    DBEdt_Bmmc: TDBEdit;
    DBEdt_Fzrxm: TDBEdit;
    DBEdt_Bmsx: TDBEdit;
    DBEdt_Lxdh: TDBEdit;
    DBEdt_DZ: TDBEdit;
    DBEdt_BZ: TDBEdit;
    TabSheet2: TTabSheet;
    DBGrid: TDBGrid;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    add: TSpeedButton;
    del2: TSpeedButton;
    save: TSpeedButton;
    fresh: TSpeedButton;