supply.pas

来自「随着计算机的日益普及」· PAS 代码 · 共 51 行

unit Supply;

interface

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

type
  TSupplyFrm = class(TForm)
    Panel1: TPanel;
    SupplyDBG: TDBGrid;
    BB_Confirm: TBitBtn;
    BB_Cancel: TBitBtn;
    procedure SupplyDBGCellClick(Column: TColumn);
    procedure BB_ConfirmClick(Sender: TObject);
    procedure BB_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     S_ID,S_Name:string;
  end;

var
  SupplyFrm: TSupplyFrm;

implementation
  uses DataModule;
{$R *.dfm}

procedure TSupplyFrm.SupplyDBGCellClick(Column: TColumn);
begin
   S_ID:=DM.AQ_Supply['Supply_ID'];
   S_Name:=DM.AQ_Supply['Supply_Name'];
end;

procedure TSupplyFrm.BB_ConfirmClick(Sender: TObject);
begin
  SupplyFrm.Close;
  SupplyFrm.ModalResult:=mrOK;
end;

procedure TSupplyFrm.BB_CancelClick(Sender: TObject);
begin
  SupplyFrm.Close;
  SupplyFrm.ModalResult:=mrCancel; 
end;

end.