purchasein.pas

来自「delphi制作的图书管理系统」· PAS 代码 · 共 40 行

unit PurchaseIn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ToolWin, ComCtrls, StdCtrls, Menus, Grids, DBGrids;

type
  TFramePurchase = class(TFrame)
    DBGrid1: TDBGrid;
    BtbOK: TButton;
    BtnClose: TButton;
    EdtPurchaseID: TEdit;
    LblPurchaseID: TLabel;
    LblPurchaseDate: TLabel;
    DtpPurchaseDate: TDateTimePicker;
    LblPurchaser: TLabel;
    Edtpurhcaser: TEdit;
    LblFrmTitle: TLabel;
    procedure BtnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses DataModuel;

{$R *.dfm}

procedure TFramePurchase.BtnCloseClick(Sender: TObject);
begin
  self.Destroy;
end;

end.