u_othercharge.pas

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

unit u_OtherCharge;

interface

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

type
  TfrmOtherCharge = class(TForm)
    Panel1: TPanel;
    qry: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    btnAdd: TButton;
    btnEdit: TButton;
    btnDelete: TButton;
    btnClose: TButton;
    procedure btnAddClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    BmkFlag : TBookmark;
    { Public declarations }
  end;

var
  frmOtherCharge: TfrmOtherCharge;

implementation

uses u_DataCtrl, u_OtherChargeAdd, u_OtherChargeEdit;

{$R *.dfm}

procedure TfrmOtherCharge.btnAddClick(Sender: TObject);
begin
  frmOtherChargeAdd.ShowModal;
end;

procedure TfrmOtherCharge.btnCloseClick(Sender: TObject);
begin
  frmDataCtrl.Close;
  close;
end;

procedure TfrmOtherCharge.btnEditClick(Sender: TObject);
begin
  BmkFlag := qry.GetBookmark;
  frmOtherChargeEdit.ShowModal;
end;

procedure TfrmOtherCharge.btnDeleteClick(Sender: TObject);
begin
  qry.Delete;
  if qry.IsEmpty then
  begin
    btnDelete.Enabled := False;
    btnEdit.Enabled   := False;
  end;

end;

procedure TfrmOtherCharge.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := Cafree ;
end;

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

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

end.