storage_police.pas

delphi的一个开发实例

unit Storage_police;

interface

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

type
  Tfrm_Storage_police = class(TForm)
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Storage_police: Tfrm_Storage_police;

implementation

uses Storage_Warn, func;

{$R *.dfm}

procedure Tfrm_Storage_police.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=cafree;
end;

procedure Tfrm_Storage_police.SpeedButton1Click(Sender: TObject);
begin
    func.Public_Do:='';
    func.Public_Do_Result:='';
    func.Public_Do:='Stock_warn_all';
    frm_Storage_Warn:=Tfrm_Storage_Warn.Create(self);
    frm_Storage_Warn.TabSheet1.Caption :='【库存上下限报警设置】';
    frm_Storage_Warn.TabSheet1.TabVisible:=True;
    frm_Storage_Warn.TabSheet2.TabVisible:=False;
    frm_Storage_Warn.TabSheet3.TabVisible:=False;
    frm_Storage_Warn.ShowModal;
    frm_Storage_Warn.free;
end;

procedure Tfrm_Storage_police.SpeedButton2Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_police.SpeedButton28Click(Sender: TObject);
begin
    {frm_Storage_Warn:=Tfrm_Storage_Warn.Create(self);
    frm_Storage_Warn.TabSheet1.TabVisible:=False;
    frm_Storage_Warn.TabSheet2.TabVisible:=True;
    frm_Storage_Warn.TabSheet3.TabVisible:=False;
    frm_Storage_Warn.ShowModal;
    frm_Storage_Warn.free; }
    func.Public_Do:='';
    func.Public_Do_Result:='';
    func.Public_Do:='Stock_warn_up';
    frm_Storage_Warn:=Tfrm_Storage_Warn.Create(self);
    frm_Storage_Warn.TabSheet1.Caption :='【库存上限报警设置】';
    frm_Storage_Warn.TabSheet1.TabVisible:=True;
    frm_Storage_Warn.TabSheet2.TabVisible:=False;
    frm_Storage_Warn.TabSheet3.TabVisible:=False;
    frm_Storage_Warn.ShowModal;
    frm_Storage_Warn.free;
end;

procedure Tfrm_Storage_police.SpeedButton29Click(Sender: TObject);
begin
    {frm_Storage_Warn:=Tfrm_Storage_Warn.Create(self);
    frm_Storage_Warn.TabSheet1.TabVisible:=False;
    frm_Storage_Warn.TabSheet2.TabVisible:=False;
    frm_Storage_Warn.TabSheet3.TabVisible:=True;
    frm_Storage_Warn.ShowModal;
    frm_Storage_Warn.free;}
    func.Public_Do:='';
    func.Public_Do_Result:='';
    func.Public_Do:='Stock_warn_down';
    frm_Storage_Warn:=Tfrm_Storage_Warn.Create(self);
    frm_Storage_Warn.TabSheet1.Caption :='【库存下限报警设置】';
    frm_Storage_Warn.TabSheet1.TabVisible:=True;
    frm_Storage_Warn.TabSheet2.TabVisible:=False;
    frm_Storage_Warn.TabSheet3.TabVisible:=False;
    frm_Storage_Warn.ShowModal;
    frm_Storage_Warn.free;
end;

end.