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;

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>