jlgx.pas

来自「希望大家能多多指教这是我给我们同学编的系统」· PAS 代码 · 共 86 行

unit jlgx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tjlgxform = class(TForm)
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jlgxform: Tjlgxform;

implementation

uses dkpxcg, dkpxdymd, dkpxmd, dkpxmd1, dl, fzdxcg, fzdxgx, fzdxmd, fzdxmd1,
  hdjb, kxcd, llmd, quit, shsj, shtl, tfsgxc, tfsj, tfsjgx, tfsjqk, trhd1,
  tzb, tzbcx, tzbcy, tzbdymd, tzzcx, tzzdy, tzzgx, tzzmd, welcome,
  YBDY, ybdycx, ybdymd, ybdymd1, zct, zsdy, zsdycx, zsdymd, zsdymd1;

{$R *.dfm}

procedure Tjlgxform.Button3Click(Sender: TObject);
begin
tzzgxform.Show;
end;

procedure Tjlgxform.Button10Click(Sender: TObject);
begin
close;
end;

procedure Tjlgxform.Button4Click(Sender: TObject);
begin
tzbform.Show;
end;

procedure Tjlgxform.Button5Click(Sender: TObject);
begin
tfsjform.Show;
end;

procedure Tjlgxform.Button6Click(Sender: TObject);
begin
dkpxmdform.Show;
end;

procedure Tjlgxform.Button7Click(Sender: TObject);
begin
fzdxgxform.Show;
end;

procedure Tjlgxform.Button8Click(Sender: TObject);
begin
 YBDYFORM.Show;
end;

procedure Tjlgxform.Button9Click(Sender: TObject);
begin
zsdyform.Show;
end;

end.