buy.pas

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· PAS 代码 · 共 55 行

unit Buy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, MConnect, StdCtrls, ComCtrls, ExtCtrls, Grids,
  DBGrids, DBCtrls;

type
  TfrmBuy = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    DBNavigator2: TDBNavigator;
    DBGrid2: TDBGrid;
    DBMemo1: TDBMemo;
    Splitter2: TSplitter;
    Panel3: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBuy: TfrmBuy;

implementation

uses DataM, AddBuy;

{$R *.dfm}

procedure TfrmBuy.Button1Click(Sender: TObject);
begin
    frmAddBuy := TfrmAddBuy.Create(Application);
    if frmAddBuy.ShowModal=mrOk then
        DataModule1.cdsBuy2.Refresh;
    frmAddBuy.Free;
end;

procedure TfrmBuy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.