pd.pas

药品进销存系统 delphi V6开发,入门级参考源代码

unit pd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Gauges, Db, DBTables;

type
  TFrmpd = class(TForm)
    BitBtn2: TBitBtn;
    Shape1: TShape;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Gauge1: TGauge;
    Label_rec: TLabel;
    Label_zje: TLabel;
    BitBtn3: TBitBtn;
    Query_kc: TQuery;
    Query_ckxx: TQuery;
    Database: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmpd: TFrmpd;
  table_name:array[0..25] of string;

implementation

uses  pdrep, main;

{$R *.DFM}

procedure TFrmpd.FormCreate(Sender: TObject);
  var i:integer;
begin
   i:=0;
   Query_ckxx.close;
   Query_ckxx.UnPrepare;
   Query_ckxx.sql.Clear;
   Query_ckxx.SQL.Add('select * from ckxxb');
   Query_ckxx.Prepare;
   Query_ckxx.open;
   Listbox1.Clear;
   while not Query_ckxx.Eof do
    begin
     Listbox1.Items.Add(Query_ckxx.fieldbyname('ck_mc').asstring);
     table_name[i]:=Query_ckxx.fieldbyName('bm').asString;
     inc(i);
     Query_ckxx.Next;
    end;
   bitbtn1.Enabled:=false;
end;

procedure TFrmpd.BitBtn2Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmpd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TFrmpd.BitBtn1Click(Sender: TObject);
begin
  if (not Query_kc.Eof) or (not Query_kc.Bof) then
    begin
      Frmpdrep.quickrep1.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_pm.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_gg.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_dw.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_sl.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_jj.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_cd.DataSet:=Query_kc;
      Frmpdrep.qrdbtext_ph.DataSet:=Query_kc;
      Frmpdrep.QRlabel_ckmc.Caption:=Listbox1.Items[Listbox1.itemindex];
      Frmpdrep.QRlabel_rq.Caption:=Formatdatetime('yyyy-mm-dd',Frmmain.GetServerTime);
      Frmpdrep.QRlabel_hj.Caption:=Label_zje.Caption;
      Frmpdrep.QuickRep1.Prepare;
     // Frmpdrep.QuickRep1.Preview;
      Frmpdrep.QuickRep1.print;
      bitbtn1.Enabled:=false;
  end;
end;

procedure TFrmpd.BitBtn3Click(Sender: TObject);
    var zje:real;
    step:integer;
begin
   if listbox1.ItemIndex=-1 then exit;
   zje:=0.0;
   Gauge1.Progress:=0;
   step:=1;
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
   Query_kc.sql.add('select * from '+table_name[listbox1.itemindex]);
   Query_kc.sql.Add(' order by pm ');
   Query_kc.Prepare;
   Query_kc.Open;
   Label_rec.caption:=inttostr(Query_kc.RecordCount);
   Gauge1.MaxValue:=Query_kc.RecordCount;
   Query_kc.First;
   while not Query_kc.Eof do
     begin
       Gauge1.AddProgress(step);
       zje:=zje+Query_kc.fieldbyname('jj').asfloat*Query_kc.fieldbyname('kcs').asfloat;
       Query_kc.Next;
     end;
   Label_zje.Caption:=format('￥%.2f',[zje]);
   bitbtn1.Enabled:=true;
end;

end.