indexmain.pas

2004090611144625767.rar 资源名称:通用工资管理

unit indexmain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, OleCtrls, SHDocVw;

type
  Tindexmainb = 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;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  indexmainb: Tindexmainb;

implementation

uses yggb, rsbm, whzd, zczw, ggjs, gzgn, qqdj, qjdj, npyj, rsfind, gztj,
  gzprint, childform, datamodule;

{$R *.DFM}

procedure Tindexmainb.N2Click(Sender: TObject);
begin
yggbb:=tyggbb.create(nil);
yggbb.show;
end;

procedure Tindexmainb.N3Click(Sender: TObject);
begin
rsbmb:=trsbmb.create(nil);
rsbmb.show;
end;

procedure Tindexmainb.N4Click(Sender: TObject);
begin
whzdb:=twhzdb.create(nil);
whzdb.show;
end;

procedure Tindexmainb.N5Click(Sender: TObject);
begin
zczwb:=tzczwb.Create(nil);
zczwb.show;
end;

procedure Tindexmainb.N8Click(Sender: TObject);
begin
ggjsb:=tggjsb.create(nil);
ggjsb.show;
end;

procedure Tindexmainb.N9Click(Sender: TObject);
begin
gzgnb:=tgzgnb.Create(nil);
gzgnb.show;
end;

procedure Tindexmainb.N10Click(Sender: TObject);
begin
qqdjb:=tqqdjb.create(nil);
qqdjb.show;
end;

procedure Tindexmainb.N11Click(Sender: TObject);
begin
qjdjb:=tqjdjb.create(nil);
qjdjb.show;
end;

procedure Tindexmainb.N12Click(Sender: TObject);
begin
npyjb:=tnpyjb.create(nil);
npyjb.show;
end;

procedure Tindexmainb.N6Click(Sender: TObject);
begin
rsfindb:=trsfindb.create(nil);
rsfindb.show;
end;

procedure Tindexmainb.N13Click(Sender: TObject);
begin
gzprintb:=tgzprintb.create(nil);
gzprintb.show;
end;

procedure Tindexmainb.N14Click(Sender: TObject);
begin
gztjb:=tgztjb.create(nil);
gztjb.show;
end;

procedure Tindexmainb.N20Click(Sender: TObject);
begin
self.close;
end;

procedure Tindexmainb.FormShow(Sender: TObject);
begin

form2:=tform2.create(nil);
form2.width:=150;
form2.height:=575;
datamodule1:=tdatamodule1.create(nil);
WebBrowser1.Navigate('i:\aaaa\aa.html.htm');
end;

procedure Tindexmainb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
self.release;
end;

procedure Tindexmainb.Button1Click(Sender: TObject);
begin
gzgnb:=tgzgnb.Create(nil);
gzgnb.show;
end;

end.