menu_tools.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 70 行

unit menu_tools;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask, ExtCtrls, Grids, DBGrids, Buttons,DB;

type
  TMenuConfig = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    Cerca: TButton;
    CercaComando: TOpenDialog;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    procedure CercaClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MenuConfig: TMenuConfig;

implementation

uses Umenu;

{$R *.DFM}

procedure TMenuConfig.CercaClick(Sender: TObject);
begin
     If CercaComando.Execute then
      begin
       With Menu_form do
        Begin
         TTMenu.Edit ;
         TTMenuComando.Value := CercaComando.Filename ;
        end ;
      end ;
end;

procedure TMenuConfig.BitBtn1Click(Sender: TObject);
begin
     Close ;
end;

procedure TMenuConfig.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
     With Menu_form do
      If (TTMenu.State = dsEdit) or (TTmenu.State = dsInsert) then
       ttMenu.Post ;
end;

end.