wuyeform.~pas

来自「物业管理系统」· ~PAS 代码 · 共 114 行

unit wuyeform;

interface

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

type
  Twuye = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Shape2: TShape;
    GroupBox1: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn5: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure doenterastab(var msg:TMsg; var Handled:boolean);{ Public declarations }
  end;

var
  wuye: Twuye;

implementation

uses uinput, Ufmxiaoqu, Ufmqianrjl, Ufmfeiy, Ufmjiaofei, Uquery1, Ufmwxjl,
  Ufmjiaofeicc;

{$R *.dfm}

procedure Twuye.doenterastab(var msg:TMsg; var Handled:boolean);
  begin
  if msg.message=wm_keydown then
  begin
  if msg.WParam=VK_RETURN then
  keybd_event(vk_tab,0,0,0);
  end;
end;



procedure Twuye.BitBtn1Click(Sender: TObject);
begin
application.CreateForm(tfmjiaofeicc,fmjiaofeicc);
fmjiaofeicc.Show;


end;

procedure Twuye.BitBtn3Click(Sender: TObject);
begin
application.CreateForm(tfmxiaoqu,fmxiaoqu);
fmxiaoqu.Show;
end;

procedure Twuye.BitBtn4Click(Sender: TObject);
begin
application.CreateForm(tfmqianrjl,fmqianrjl);
fmqianrjl.Show;

end;

procedure Twuye.BitBtn6Click(Sender: TObject);
begin
application.CreateForm(tfmfeiyong,fmfeiyong);
fmfeiyong.Show;

end;

procedure Twuye.BitBtn7Click(Sender: TObject);
begin
application.CreateForm(tfmjiaofei,fmjiaofei);
fmjiaofei.Show;

end;

procedure Twuye.BitBtn2Click(Sender: TObject);
begin
application.CreateForm(tfmquery1,fmquery1);
fmquery1.Show;
end;

procedure Twuye.BitBtn8Click(Sender: TObject);
begin
application.CreateForm(tfmwxjl,fmwxjl);
fmwxjl.Show;

end;

procedure Twuye.BitBtn5Click(Sender: TObject);
begin
wuye.Close;

end;

end.