llmd.~pas

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

unit llmd;

interface

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

type
  Tllmdform = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  llmdform: Tllmdform;

implementation

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

{$R *.dfm}

procedure Tllmdform.Button1Click(Sender: TObject);
begin
tzzmdform.Show;
end;

procedure Tllmdform.Button2Click(Sender: TObject);
begin
tzbcyform.Show;
end;

procedure Tllmdform.Button3Click(Sender: TObject);
begin
tfsjform.Show;
end;

procedure Tllmdform.Button4Click(Sender: TObject);
begin
dkpxmdform.Show;
end;

procedure Tllmdform.Button5Click(Sender: TObject);
begin
fzdxmdform.Show;
end;

procedure Tllmdform.Button6Click(Sender: TObject);
begin
ybdymdform.Show;
end;

procedure Tllmdform.Button7Click(Sender: TObject);
begin
zsdymdform.Show;
end;

procedure Tllmdform.Button8Click(Sender: TObject);
begin
close;
end;

end.