ku_cun.pas

药店GSP源码

unit ku_cun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, Grids, DBGrids, FR_DSet,
  FR_DBSet, FR_Class;

type
  TForm16 = class(TForm)
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    Database1: TDatabase;
    Query1: TQuery;
    Query1name: TStringField;
    Query1basicunit: TStringField;
    Query1jx: TStringField;
    Query1sum_shu: TFloatField;
    Query1lotno: TStringField;
    Query1yx_date: TDateTimeField;
    Query1inprice: TFloatField;
    Query1in_sum: TFloatField;
    Query1place: TStringField;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    Button1: TButton;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation
   uses ypqd;
{$R *.dfm}

procedure TForm16.BitBtn3Click(Sender: TObject);
begin
database1.Close;
form16.Close;
end;

procedure TForm16.BitBtn2Click(Sender: TObject);
begin
frreport1.LoadFromFile('D:\药品进销存\report\kczk.frf');
frreport1.ShowReport;
end;

procedure TForm16.BitBtn1Click(Sender: TObject);
begin
 if edit1.Text='' then
   begin
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select name,basicunit,jx,sum(shu) as sum_shu,place,lotno,yx_date,inprice,sum(sum_in) as in_sum');
    query1.SQL.Add('from ku_cun');
    query1.SQL.Add('group by name,basicunit,jx,place,lotno,yx_date,inprice');
    query1.SQL.Add('order by name');
    query1.Open;
   end
 else
   begin
    edit1.Text:=trim(edit1.Text);
    database1.Connected:=true;
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select name,basicunit,jx,sum(shu) as sum_shu,place,lotno,yx_date,inprice,sum(sum_in) as in_sum');
    query1.SQL.Add('from ku_cun');
    query1.SQL.Add('where name="'+edit1.Text+'"');
    query1.SQL.Add('group by name,basicunit,jx,place,lotno,yx_date,inprice');
    query1.Open;
   end;
end;

procedure TForm16.Button1Click(Sender: TObject);
begin
 Form4.Query1.SQL.Clear;
 Form4.Query1.SQL.Add('select * from base');
 Form4.Query1.SQL.Add('where pingyingcode like "'+edit1.Text+'%"');
 Form4.Query1.Open;
 form4.Show;
end;

end.