storage_warn_limit.pas

delphi的一个开发实例

unit Storage_warn_Limit;

interface

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

type
  Tfrm_Storage_warn_Limit = class(TForm)
    Panel1: TPanel;
    P_Goods: TPanel;
    Edit_Up: TLabeledEdit;
    Edit_Down: TLabeledEdit;
    Cmd_Yes: TSpeedButton;
    Cmd_NO: TSpeedButton;
    procedure Cmd_NOClick(Sender: TObject);
    procedure Cmd_YesClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit_UpKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_DownKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Storage_warn_Limit: Tfrm_Storage_warn_Limit;

implementation

uses func;

{$R *.dfm}

procedure Tfrm_Storage_warn_Limit.Cmd_NOClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_warn_Limit.Cmd_YesClick(Sender: TObject);
begin
    if Storage_Warn_Limit_Set='Up_And_Down' then
    begin
        if (Trim(Edit_Up.Text)='') or (Trim(Edit_Down.Text)='') then
        begin
            Application.MessageBox('错误操作，【库存上限数量】和【库存下限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Exit;
        end
        else
        begin
            Storage_Up_Limit:='';
            Storage_Down_Limit:='';
            Storage_Up_Limit:=Trim(Edit_Up.Text);
            Storage_Down_Limit:=Trim(Edit_Down.Text);
            Close;
        end;
    end;
    if Storage_Warn_Limit_Set='Only_Up' then
    begin
        if (Trim(Edit_Up.Text)='') then
        begin
            Application.MessageBox('错误操作，【库存上限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Exit;
        end
        else
        begin
            Storage_Up_Limit:='';
            Storage_Down_Limit:='';
            Storage_Up_Limit:=Trim(Edit_Up.Text);
            //Storage_Down_Limit:=Trim(Edit_Down.Text);
            Close;
        end;
    end;
    if Storage_Warn_Limit_Set='Only_Down' then
    begin
        if (Trim(Edit_Down.Text)='') then
        begin
            Application.MessageBox('错误操作，【库存下限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Exit;
        end
        else
        begin
            Storage_Up_Limit:='';
            Storage_Down_Limit:='';
            //Storage_Up_Limit:=Trim(Edit_Up.Text);
            Storage_Down_Limit:=Trim(Edit_Down.Text);
            Close;
        end;
    end;
end;

procedure Tfrm_Storage_warn_Limit.FormShow(Sender: TObject);
begin
    if Storage_Warn_Limit_Set='Up_And_Down' then
    begin
        Edit_Up.Visible:=True;
        Edit_Down.Visible:=True;
        frm_Storage_warn_Limit.Caption:=CK_MC+'库存上下限设置';
        P_Goods.Caption:='【操作商品】:'+SP_MC;
    end;
    if Storage_Warn_Limit_Set='Only_Up' then
    begin
        Edit_Up.Visible:=True;
        Edit_Down.Visible:=False;
        frm_Storage_warn_Limit.Caption:=CK_MC+'库存上限设置';
        P_Goods.Caption:='【操作商品】:'+SP_MC;
    end;
    if Storage_Warn_Limit_Set='Only_Down' then
    begin
        Edit_Up.Visible:=False;
        Edit_Down.Visible:=True;
        frm_Storage_warn_Limit.Caption:=CK_MC+'库存下限设置';
        P_Goods.Caption:='【操作商品】:'+SP_MC;
    end;
end;

procedure Tfrm_Storage_warn_Limit.Edit_UpKeyPress(Sender: TObject;
  var Key: Char);
begin
    if (Storage_Warn_Limit_Set='Up_And_Down') and (key=#13) then
    begin
        if trim(Edit_Up.Text)='' then
        begin
            application.MessageBox('错误操作！【库存上限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Exit;
        end;
        Edit_Down.SetFocus;
    end;
    if (Storage_Warn_Limit_Set='Only_Up') and (key=#13) then
    begin
        if trim(Edit_Up.Text)='' then
        begin
            application.MessageBox('错误操作！【库存上限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Exit;
        end;
        Cmd_Yes.Click();
    end;
end;

procedure Tfrm_Storage_warn_Limit.Edit_DownKeyPress(Sender: TObject;
  var Key: Char);
begin
    if (Storage_Warn_Limit_Set='Up_And_Down') and (key=#13) then
    begin
        if trim(Edit_Down.Text)='' then
        begin
            application.MessageBox('错误操作！【库存下限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Edit_Down.SetFocus;
            Exit;
        end;
        Cmd_Yes.Click();
    end;
    if (Storage_Warn_Limit_Set='Only_Down') and (key=#13) then
    begin
        if trim(Edit_Down.Text)='' then
        begin
            application.MessageBox('错误操作！【库存下限数量】不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
            Edit_Down.SetFocus;
            Exit;
        end;
        Cmd_Yes.Click();
    end;
end;

end.