sign_search.pas

delphi的一个开发实例

unit Sign_Search;

interface

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

type
  Tfrm_Sign_Search = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    XPMenu1: TXPMenu;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit_Goods_NO: TLabeledEdit;
    Edit_Goods_Name: TLabeledEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Sign_Search: Tfrm_Sign_Search;

implementation

uses func;

{$R *.dfm}

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

procedure Tfrm_Sign_Search.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=Cafree;
end;

procedure Tfrm_Sign_Search.SpeedButton1Click(Sender: TObject);
begin
    if Sign_Search_str='Sign_Search_str_001' then
    begin
        if (Trim(Edit_Goods_NO.Text)='') and (Trim(Edit_Goods_Name.Text)='') then
        begin
            Application.MessageBox('错误操作！【商品代码】或【商品名称】不能为空！请确认！',Pchar(Application.Title),MB_ICONWarning);
            Exit;
        end;
        Sign_Search_Result_str:='Sign_Search';
        Goods_No_Str:=Trim(Edit_Goods_NO.Text);
        Goods_Name_Str:=Trim(Edit_Goods_Name.Text);
        Close;
    end;
end;

end.