umain.~pas

一个简单CUDR例子

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,ULogin,UAdd,USelect, ComCtrls, ActnList, ExtCtrls;

type
  TFMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ActionList1: TActionList;
    ActionAdd: TAction;
    ActionSelect: TAction;
    ActionModify: TAction;
    ActionDelete: TAction;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure ActionAddExecute(Sender: TObject);
    procedure ActionSelectExecute(Sender: TObject);
    procedure ActionModifyExecute(Sender: TObject);
    procedure ActionDeleteExecute(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

     formMDI:TForm;    //通用窗体

  end;

var
  FMain: TFMain;

implementation
 uses
  UModify,UDelete;

{$R *.dfm}

procedure TFMain.ActionAddExecute(Sender: TObject);
   var  f:TForm1;
begin
     f:=TForm1.Create(nil);
     f.Show;

end;

procedure TFMain.ActionSelectExecute(Sender: TObject);
  var
    f:TFSelect;
begin
    f:=TFSelect.Create(nil);
    f.Show;
end;

procedure TFMain.ActionModifyExecute(Sender: TObject);
var
  f:TFModify;
begin
  f:=TFModify.Create(nil);
  f.Show;
end;

procedure TFMain.ActionDeleteExecute(Sender: TObject);
  var
    f:TFDelete;

begin
    f:=TFDelete.Create(nil);
    f.Show;
end;

procedure TFMain.N2Click(Sender: TObject);
var
  f:TFLogin;

begin
   f:=TFLogin.Create(nil);
   f.ShowModal;
end;

procedure TFMain.N7Click(Sender: TObject);
begin
close;
end;

procedure TFMain.FormCreate(Sender: TObject);
 var
   i:integer;
begin
    for i:=0 to ActionList1.ActionCount-1 do
      TAction(ActionList1.Actions[i]).Enabled:=false;
end;


procedure TFMain.N3Click(Sender: TObject);
  var
    i:integer;
begin
    for i:=0 to ActionList1.ActionCount-1 do
       TAction(ActionList1.Actions[i]).Enabled:=false;
end;

procedure TFMain.Timer1Timer(Sender: TObject);
begin
     StatusBar1.Panels[1].Text:=FormatDateTime('yyyy:mm:dd hh:mm:ss',now);
end;

end.