umain.pas

来自「相关的销售服务管理行业的一个软件」· PAS 代码 · 共 94 行

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ToolWin, ComCtrls, StdCtrls, Buttons;

type
  Tfrmmain = class(TForm)
    MainMenu1: TMainMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    N3: TMenuItem;
    N6: TMenuItem;
    BitBtn3: TBitBtn;
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmain: Tfrmmain;

implementation
  uses import1, uAccept;
{$R *.DFM}

procedure Tfrmmain.N5Click(Sender: TObject);
begin
  if frmMain.MDIChildCount<>0 then
    begin
      PostMessage(frmMain.ActiveMDIChild.Handle,wm_user,makelong(0,0),0);
    end
  else
    begin
      SetReport(Application.Handle,'0','eekc');
    end;
end;

procedure Tfrmmain.N2Click(Sender: TObject);
begin
  Application.CreateForm(TfrmAccept, frmAccept);
  frmAccept.show;
end;

procedure Tfrmmain.N3Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmmain.BitBtn1Click(Sender: TObject);
begin
   if frmMain.MDIChildCount<>0 then
      begin
        PostMessage(frmMain.ActiveMDIChild.Handle,wm_user+1,makelong(0,0),0);
      end
   else
      begin
        Application.MessageBox('没有可以预览的报表!','提示',16);
      end;
end;

procedure Tfrmmain.BitBtn2Click(Sender: TObject);
begin
   if frmMain.MDIChildCount<>0 then
     begin
       PostMessage(frmMain.ActiveMDIChild.Handle,wm_user+2,makelong(0,0),0);
     end
   else
      begin
        Application.MessageBox('没有可以打印的报表!','提示',16);
      end;
end;

procedure Tfrmmain.BitBtn3Click(Sender: TObject);
begin
  close;
end;

end.