mxzquerym.pas

来自「本文重点研究的是医院西药药房管理系统」· PAS 代码 · 共 57 行

unit MxzQueryM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,ToolWin, ComCtrls, mxDB, mxstore, Grids, mxgrid, Db,
  ADODB, DBTables, mxtables, DBGrids, ImgList;

type
  TMxzQuery = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ADOStoredProc1: TADOStoredProc;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ImageList2: TImageList;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MxzQuery: TMxzQuery;
  MxzBand:TCollectionitem;

implementation
uses Main,Data1M;
{$R *.DFM}

procedure TMxzQuery.FormActivate(Sender: TObject);
begin
  Mxzband:=mainform.coolbar1.bands.add;
  (Mxzband as tcoolband).control:=toolbar1;

end;

procedure TMxzQuery.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 MxzQuery.Release;
end;

procedure TMxzQuery.ToolButton1Click(Sender: TObject);
begin
 ADOStoredProc1.Active:=false;
 ADOStoredProc1.Parameters.ParamByName('@EDate').value:=strtodate('2001-5-12');
 ADOStoredProc1.Parameters.ParamByName('@YpId').value:=10053;
 ADOStoredProc1.Open;
end;

end.