u_goodsinfo.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_GoodsInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,u_DataCtrl, Grids, DBGrids, DB, ADODB, StdCtrls,
  Buttons,u_GoodsAdd,u_GoodsEdit;

type
  TfrmGoodsInfo = class(TForm)
    Panel1: TPanel;
    qry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    btnAdd: TBitBtn;
    btnEdit: TBitBtn;
    btnDelete: TBitBtn;
    btnClose: TBitBtn;
    edtTotal: TLabeledEdit;
    procedure btnCloseClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure qryAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    BookFlag : TBookMark;
    { Public declarations }
  end;

var
  frmGoodsInfo: TfrmGoodsInfo;

implementation

{$R *.dfm}

procedure TfrmGoodsInfo.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmGoodsInfo.btnAddClick(Sender: TObject);
begin
  frmGoodsAdd.ShowModal;
end;

procedure TfrmGoodsInfo.FormShow(Sender: TObject);
begin
  qry.Active := True;
  if qry.IsEmpty then
  begin
    btnEdit.Enabled   := False;
    btnDelete.Enabled := False;
  end;
end;

procedure TfrmGoodsInfo.btnDeleteClick(Sender: TObject);
var
  TempSql : String;
begin
  if Application.MessageBox('您确定要删除这条记录吗?','提示',MB_OKCANCEL)=1 then
  begin
    TempSql := 'delete from tb_GoodsInfo where GoodsBH= '+qry.FieldValues['GoodsBH'];
    frmDataCtrl.Run_Sql(TempSql);
    qry.Close;
    qry.open;
    if qry.IsEmpty then
    begin
      btnEdit.Enabled := False;
      btnDelete.Enabled := False;
    end;
  end;
end;

procedure TfrmGoodsInfo.btnEditClick(Sender: TObject);
begin
  BookFlag := qry.GetBookmark;
  frmGoodsEdit.ShowModal;
end;

procedure TfrmGoodsInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree ;
end;

procedure TfrmGoodsInfo.DBGrid1DblClick(Sender: TObject);
begin
  if qry.IsEmpty then
  begin
    Application.MessageBox('记录为空','警告',mb_ok);
    Exit;
  end
  else
  btnEdit.Click;
end;

procedure TfrmGoodsInfo.qryAfterOpen(DataSet: TDataSet);
begin
  edtTotal.Text := IntToStr(Qry.RecordCount);
end;

end.