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] ... 下一页 >>