untpurchase.pas

来自「这是一个不错的数据库管理程序」· PAS 代码 · 共 40 行

unit untPurChase;

interface

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

type
  TfrmPurChase = class(TForm)
    qryPurChaseGrd: TADOQuery;
    souPurChaseGrd: TDataSource;
    grdPurChase: TDBGrid;
    btnOK: TBitBtn;
    qryPurChaseGrdGoodsCode: TStringField;
    qryPurChaseGrdQuantity: TBCDField;
  private
    { Private declarations }
  public

   function Execute: boolean;
    { Public declarations }
  end;

var
  frmPurChase: TfrmPurChase;

implementation

uses untGoodsOrderDat;
function TfrmPurChase.Execute: boolean;
begin
  result := showModal = mrOK;
end;


{$R *.dfm}

end.