u_main.~pas

试卷管理系统

unit U_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, Menus, DB, DBTables, OleCtnrs, StdCtrls, jpeg,
  ComCtrls;

type
  Tfrm_main = class(TForm)
    MainMenu1: TMainMenu;
    mnu_stgl: TMenuItem;
    mnu_sjsc: TMenuItem;
    mnu_sjgl: TMenuItem;
    N4: TMenuItem;
    menu_exit: TMenuItem;
    mnu_sjscfa: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure menu_stwhClick(Sender: TObject);
    procedure mnu_sjscfaClick(Sender: TObject);
    procedure mnu_sjscClick(Sender: TObject);
    procedure mnu_stglClick(Sender: TObject);
    procedure menu_exitClick(Sender: TObject);
    procedure mnu_sjglClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation
uses U_stlr,P_RES,U_stwh,U_sjscfawh,U_sjzdsc,U_sjgl,U_xlcj1;
{$R *.dfm}

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  Pb_runpath:=ExtractFileDir(Application.Exename);

  km_hzxh[1]:='一';
  km_hzxh[2]:='二';
  km_hzxh[3]:='三';
  km_hzxh[4]:='四';
  km_hzxh[5]:='五';
  km_hzxh[6]:='六';
  km_hzxh[7]:='七';
  km_hzxh[8]:='八';
  km_hzxh[9]:='九';
  km_hzxh[10]:='十';
  km_hzxh[11]:='十一';
  km_hzxh[12]:='十二';
  km_hzxh[13]:='十三';
  km_hzxh[14]:='十四';
  km_hzxh[15]:='十五';
  km_hzxh[16]:='十六';
  km_hzxh[17]:='十七';
  km_hzxh[18]:='十八';
  km_hzxh[19]:='十九';
  km_hzxh[20]:='二十';
  km_hzxh[21]:='二十一';
  km_hzxh[22]:='二十二';
  km_hzxh[23]:='二十三';
  km_hzxh[24]:='二十四';
  km_hzxh[25]:='二十五';
  km_hzxh[26]:='二十六';
  km_hzxh[27]:='二十七';
  km_hzxh[28]:='二十八';
  km_hzxh[29]:='二十九';
  km_hzxh[30]:='三十';
end;

procedure Tfrm_main.menu_stwhClick(Sender: TObject);
var
  form:Tfrm_stwh;
begin
  form:=Tfrm_stwh.Create(self);
  form.ShowModal;
  form.Free;
end;

procedure Tfrm_main.mnu_sjscfaClick(Sender: TObject);
var
  form:Tfrm_sjscfawh;
begin
  form:=Tfrm_sjscfawh.Create(self);
  form.ShowModal;
  form.Free;
end;

procedure Tfrm_main.mnu_sjscClick(Sender: TObject);
var
  form:Tfrm_sjzdsc;
begin
  form:=Tfrm_sjzdsc.Create(self);
  form.ShowModal;
  form.Free;
end;

procedure Tfrm_main.mnu_stglClick(Sender: TObject);
var
  form:Tfrm_stlr;
begin
  form:=Tfrm_stlr.Create(self);
  form.ShowModal;
  form.Free;
end;

procedure Tfrm_main.menu_exitClick(Sender: TObject);
begin
  close;
end;

procedure Tfrm_main.mnu_sjglClick(Sender: TObject);
var
  form:Tfrm_sjgl;
begin
  form:=Tfrm_sjgl.Create(self);
  form.ShowModal;
  form.Free;
end;

procedure Tfrm_main.N4Click(Sender: TObject);
var
  form:Txlcj1;
begin
  form:=Txlcj1.Create(self);
  form.ShowModal;
  form.Free;
end;

end.