xstj.pas

很好的药店进销存系统

unit xstj;

interface

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

type
  Txstj_Form = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    begin_DTP: TDateTimePicker;
    end_DTP: TDateTimePicker;
    cmdadd: TButton;
    cmdprt: TButton;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure cmdprtClick(Sender: TObject);
    procedure cmdaddClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xstj_Form: Txstj_Form;

implementation

uses main, data;

{$R *.dfm}

procedure Txstj_Form.cmdprtClick(Sender: TObject);
begin
    Close;
end;

procedure Txstj_Form.cmdaddClick(Sender: TObject);
var
    ksrq,jsrq,sqlstr:string;
begin
    ksrq:=datetostr(begin_DTP.Date);
    jsrq:=datetostr(end_DTP.Date);
    sqlstr:='select a.编号,a.名称,isnull(b.sl,0) as 销售数量 from 药品信息 a ';
    sqlstr:=sqlstr+' left outer join (select 药编号,sum(数量) as sl from 药品销售 ';
    sqlstr:=sqlstr+' where (日期>='''+ksrq+''')and(日期<='''+jsrq+''')group by 药编号) b' ;
    sqlstr:=sqlstr+' on a.编号=b.药编号  order by 销售数量 ';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
end;

procedure Txstj_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N36.Enabled:=true;
end;

procedure Txstj_Form.FormCreate(Sender: TObject);
begin
    Query1.SessionName:=DM_form.Database1.SessionName;
    Query1.DatabaseName:=DM_form.Database1.DatabaseName;
end;

end.