vendor.pas

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

unit vendor;

interface

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

type
  TvendorForm = class(TinfoForm)
    procedure TbaddClick(Sender: TObject);
    procedure TbeditClick(Sender: TObject);
    procedure TbdelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vendorForm: TvendorForm;

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

procedure TvendorForm.TbaddClick(Sender: TObject);
begin
  inherited;
  dataE2.Tblvendor.Append;
  vend_DForm.showmodal;
end;

procedure TvendorForm.TbeditClick(Sender: TObject);
begin
  inherited;
  dataE2.Tblvendor.Edit;
  vend_DForm.showmodal
end;

procedure TvendorForm.TbdelClick(Sender: TObject);
begin
  inherited;
  if MessageDlg('真的要删除当前记录吗?', mtconfirmation, [mbyes, mbno], 0)=idyes then
    dataE2.Tblvendor.Delete
  else exit;
end;

end.