longin.pas

本软件应用了Delphi提供的BDE数据库引擎。本系统为政教管理系统

unit longin;

interface

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

type
  Tfrmmain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
  count:integer;
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation

uses dm3, xxcx, xtwh, frmxxcx;

{$R *.dfm}

procedure Tfrmmain.Button1Click(Sender: TObject);
begin
  frmcx.show;
end;

procedure Tfrmmain.Button2Click(Sender: TObject);
begin
frmxtwh.show;
end;

procedure Tfrmmain.FormActivate(Sender: TObject);
begin
button1.SetFocus;
end;

end.