productselect.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 58 行

unit ProductSelect;

interface

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

type
  TProductSelectFrm = class(TForm)
    Panel1: TPanel;
    DepartDBG: TDBGrid;
    Panel2: TPanel;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    Label1: TLabel;
    procedure BB_ConfirmClick(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
    procedure DepartDBGCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
    P_ID:integer;
    P_Name,P_Standard,P_Unit:string;
  end;

var
  ProductSelectFrm: TProductSelectFrm;

implementation
  uses DataModule;
{$R *.dfm}

procedure TProductSelectFrm.BB_ConfirmClick(Sender: TObject);
begin
   ProductSelectFrm.Close;  //关闭产品选择窗口
   ProductSelectFrm.ModalResult := mrOk; //表示用户确定选择的产品
   DM.AQ_Product.Active:=false;
end;

procedure TProductSelectFrm.BB_CancelClick(Sender: TObject);
begin
   ProductSelectFrm.Close;  //关闭产品选择窗口
   ProductSelectFrm.ModalResult := mrCancel; //表示用户确定选择的产品
   DM.AQ_Product.Active:=false;
end;

procedure TProductSelectFrm.DepartDBGCellClick(Column: TColumn);
begin
   P_ID:=DM.AQ_Product['Product_ID'];
   P_Name:=DM.AQ_Product['Product_Name'];
   P_Standard:=DM.AQ_Product['Product_Standard'];
   P_Unit:=DM.AQ_Product['Product_Unit'];
end;

end.