unit12.pas

药房管理程序实现药房的基本管理功能

unit Unit12;

interface

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

type
  Txstj_form = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Cmdok: TButton;
    cmd: TButton;
    begin_DTP: TDateTimePicker;
    DBGrid1: TDBGrid;
    end_DTP: TDateTimePicker;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    procedure cmdClick(Sender: TObject);
    procedure CmdokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xstj_form: Txstj_form;

implementation

{$R *.dfm}

procedure Txstj_form.cmdClick(Sender: TObject);
begin
close;

end;

procedure Txstj_form.CmdokClick(Sender: TObject);

 var
    ksrq,jsrq,sqlstr:string;
begin
    ksrq:=datetostr(begin_DTP.Date);
    jsrq:=datetostr(end_DTP.Date);

    sqlstr:='select 图书编号,sum(数量)as 总数量  from 图书销售 where (日期>='''+ksrq+''')and(日期<='''+jsrq+''') group by 图书编号 ';
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(sqlstr);
    ADOQuery1.Open;
    application.MessageBox('统计完成，请及时去库存管理修改过期信息！','',MB_OK);
    end;
end.