untpurchase.~pas

数据库实习个人作品

unit untPurchase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, QuickRpt, Menus, ToolWin, ComCtrls, QRCtrls, DB, ADODB,
  Grids, DBGrids;

type
  TfrmPurchase = class(TForm)
    PurchaseMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ToolBar1: TToolBar;
    grdPurchase: TDBGrid;
    qryReport: TADOQuery;
    souPurchase: TDataSource;
    qryReportGoodsCode: TStringField;
    qryReportGoodsName: TStringField;
    qryReportUnit: TStringField;
    qryReportSafeStock: TBCDField;
    qryReportQuantity: TBCDField;
    qryReportReportDate: TDateTimeField;
    qryReportState: TSmallintField;
  private
    { Private declarations }
  public
    function Execute: Boolean;
    { Public declarations }
  end;

var
  frmPurchase: TfrmPurchase;

implementation

uses untGoodsOrderDat;

{$R *.dfm}

function TfrmPurchase.Execute:Boolean;
var
  dtStr : string;
begin
  dtStr := FormatDateTime('YYYY年MM月DD日 hh:mm:ss',now);


  // 显示窗体，并返回函数结果
  Result := ShowModal = mrOK;
end;

end.