good_d.pas

来自「飞恒进销存(超市批发)管理系统（含源程序） 语言：Delphi 6/7 相」· PAS 代码 · 共 53 行

unit Good_D;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Menus, ComCtrls, ToolWin, DBGridEh, information, Grids;

type
  TGoodDForm = class(TinfoForm)
    procedure TBsecClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TbexitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GoodDForm: TGoodDForm;

implementation
uses datamodule1, search;
{$R *.dfm}

procedure TGoodDForm.TBsecClick(Sender: TObject);
begin
//  inherited;
with DataE2.queryDlg do
begin
close;
Sql.Clear;
Sql.Text:='select a.code,a.name,a.units,a.inprice,b.STOREID,b.name from Goods a,Store b';
open;
end;
end;

procedure TGoodDForm.FormShow(Sender: TObject);
begin
//  inherited;

end;

procedure TGoodDForm.TbexitClick(Sender: TObject);
begin
//  inherited;
close;
DataE2.queryDlg.Close;
end;

end.