mainform.pas

delphi编写的联合管理程序,很不错的哦

unit mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMenu, StdCtrls, ExtCtrls, jpeg, ComCtrls;

type
  Tfrmainform = class(TForm)
    GroupBox1: TGroupBox;
    MainMenu1: TMainMenu;
    newinput: TMenuItem;
    N1: TMenuItem;
    modify: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    find: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    print: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    quit: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure quitClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmainform: Tfrmainform;

implementation

uses input, datacont, modify, del, find, report1;

{$R *.dfm}

procedure Tfrmainform.quitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmainform.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels.Items[4].text:=timetostr(time);
end;

procedure Tfrmainform.FormCreate(Sender: TObject);
begin
statusbar1.Panels.Items[2].Text :=datetostr(now);
end;

procedure Tfrmainform.N1Click(Sender: TObject);
begin
frminput.Show;
end;

procedure Tfrmainform.N2Click(Sender: TObject);
begin
frmmodify.Show;
end;

procedure Tfrmainform.N3Click(Sender: TObject);
begin
frmdel.Show ;
end;
procedure Tfrmainform.N4Click(Sender: TObject);
begin
frmfind.Show;
frmfind.pagectl.ActivePageIndex:=0;
end;

procedure Tfrmainform.N5Click(Sender: TObject);
begin
frmfind.Show ;
frmfind.pagectl.ActivePageIndex:=1;
end;

procedure Tfrmainform.N6Click(Sender: TObject);
begin
frmfind.Show;
frmfind.pagectl.ActivePageIndex:=2;
end;

procedure Tfrmainform.N7Click(Sender: TObject);
begin
frmfind.Show;
frmfind.pagectl.ActivePageIndex:=3;
end;

procedure Tfrmainform.N8Click(Sender: TObject);
begin
frmrep:=tfrmrep.Create(self);
frmrep.qukrep1.Preview;
end;

procedure Tfrmainform.N9Click(Sender: TObject);
begin
frmrep:=tfrmrep.Create(self); 
frmrep.qukrep1.Print;
end;

procedure Tfrmainform.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
close;
end;

end.