dfm_delstohst.pas

仓库管理系统 仓库管理系统

unit dfm_delstohst;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB;

type
  Tdfmdelstohst = class(TForm)
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    delbtn: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure delbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmdelstohst: Tdfmdelstohst;

implementation

uses  dbmRainbowMis;

{$R *.DFM}

procedure Tdfmdelstohst.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOTable1.active:=false;
  action:=cafree;
end;

procedure Tdfmdelstohst.quitbtnClick(Sender: TObject);
begin
  close;
end;

procedure Tdfmdelstohst.FormCreate(Sender: TObject);
begin
  ADOTable1.active:=true;
end;

procedure Tdfmdelstohst.delbtnClick(Sender: TObject);
begin
  with ADOQuery1 do
  begin
    close;
    Parameters.ParamByName ('vbmh').value:=ADOTable1['bmh'];
    Parameters.ParamByName ('vyear').value:=ADOTable1['cyear'];
    Parameters.ParamByName ('vmonth').value:=ADOTable1['cmonth'];
    execsql;
  end;
  ADOTable1.Close;
  ADOTable1.Open;
end;

end.