开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
Ukctj.pas
资源名称：连锁药店源码.rar　[点击查看]
上传用户：jiete_yjc
上传日期：2010-02-11
资源大小：422k
文件大小：5k
源码类别：

医药行业

开发平台：

Delphi

Ukctj.pas：源码内容
  1. unit Ukctj;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, StdCtrls, Buttons,  DBCtrlsEh, Grids, DBGridEh,
  8.   ExtCtrls, PrnDbgeh,udm, Mask;
  10. type
  11.   Tfkctj = class(TForm)
  12.     TabControl1: TTabControl;
  13.     Label2: TLabel;
  14.     fromdate: TDBDateTimeEditEh;
  15.     Label4: TLabel;
  16.     todate: TDBDateTimeEditEh;
  17.     BitBtn5: TBitBtn;
  18.     BitBtn1: TBitBtn;
  19.     PrintDBGridEh1: TPrintDBGridEh;
  20.     BitBtn3: TBitBtn;
  21.     PageControl1: TPageControl;
  22.     TabSheet1: TTabSheet;
  23.     DBGridEh1: TDBGridEh;
  24.     TabSheet2: TTabSheet;
  25.     Label1: TLabel;
  26.     Label3: TLabel;
  27.     Label5: TLabel;
  28.     Label6: TLabel;
  29.     Label7: TLabel;
  30.     Label8: TLabel;
  31.     Label9: TLabel;
  32.     Label10: TLabel;
  33.     Bevel1: TBevel;
  34.     Label11: TLabel;
  35.     Label12: TLabel;
  36.     Label13: TLabel;
  37.     Label14: TLabel;
  38.     Label15: TLabel;
  39.     rk: TEdit;
  40.     py: TEdit;
  41.     ty: TEdit;
  42.     xs: TEdit;
  43.     pk: TEdit;
  44.     bs: TEdit;
  45.     pf: TEdit;
  46.     ls: TEdit;
  47.     zj: TEdit;
  48.     js: TEdit;
  49.     ce: TEdit;
  50.     procedure BitBtn5Click(Sender: TObject);
  51.     procedure BitBtn3Click(Sender: TObject);
  52.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  53.     procedure FormShow(Sender: TObject);
  54.     procedure BitBtn1Click(Sender: TObject);
  55.   private
  56.     { Private declarations }
  57.   public
  58.     { Public declarations }
  59.   end;
  61. var
  62.   fkctj: Tfkctj;
  64. implementation
  66. {$R *.dfm}
  68. procedure Tfkctj.BitBtn5Click(Sender: TObject);
  70. var sqlstr,wherestr:string;
  71. begin
  72.  sqlstr:='select a.* , 购进金额=case   when (b.类型=''批发'') or (b.类型= ''零售'' ) then b.成本金额 else  b.金额 end   '
  73.  +',b.* ,b.编号 as 销售编号,c.姓名 ,d.名称 as 购药单位 from ypzdk a,cr b ,ygb c ,company d where  a.id=b.ypid and b.开票人=c.ygid and b.入库单位=d.clientid  ';
  76.  if (fromdate.Text='    -  -  ') and (todate.Text<>'    -  -  ') then
  77.    wherestr:=' and 日期<='''+trim(todate.Text)+'''' ;
  78.   if (fromdate.Text<>'    -  -  ') and (todate.Text<>'    -  -  ') then
  79.   wherestr:=' and 日期>='''+trim(fromdate.Text)+''' and 日期<='''+trim(todate.Text)+'''' ;
  80.   if (fromdate.Text<>'    -  -  ') and (todate.Text='    -  -  ') then
  81.   wherestr:=' and  日期>='''+trim(fromdate.Text)+'''' ;
  82.   if (fromdate.Text='    -  -  ') and (todate.Text='    -  -  ') then
  83.   wherestr:='  ';
  84.   sqlstr:=sqlstr+wherestr+'  ';
  85.  //showmessage(sqlstr);
  86.  adodm.tcrlist.Close;
  87.  adodm.tcrlist.CommandText:= sqlstr;
  88.  adodm.tcrlist.Open;
  90.  adodm.ttemp.Close;
  91.  sqlstr:='select   金额=case when (类型=''批发'') or (类型=''零售'' ) then SUM(成本金额)'
  92.               +'else  SUM(金额) end   ,类型 from cr ' ;
  93.  sqlstr:=sqlstr+' where 1<2 '+wherestr+'  group by 类型 ';
  94.  adodm.ttemp.commandtext:=sqlstr;
  95.  adodm.ttemp.Open;
  96.  if adodm.ttemp.Locate('类型','批发',[]) then
  97.     pf.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  98.     else pf.Text:='0';
  99.   if adodm.ttemp.Locate('类型','零售',[]) then
  100.     ls.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  101.     else ls.Text:='0';
  102.  if adodm.ttemp.Locate('类型','盘盈',[]) then
  103.     py.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  104.     else py.Text:='0';
  105.  if adodm.ttemp.Locate('类型','盘亏',[]) then
  106.     pk.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  107.     else pk.Text:='0';
  108.  if adodm.ttemp.Locate('类型','入库',[]) then
  109.     rk.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  110.     else rk.Text:='0';
  111.  if adodm.ttemp.Locate('类型','退药',[]) then
  112.     ty.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  113.     else ty.Text:='0';
  114.  if adodm.ttemp.Locate('类型','报损',[]) then
  115.     bs.Text:=floattostr(adodm.ttemp.fieldbyname('金额').AsFloat)
  116.     else bs.Text:='0';
  117.   xs.Text:=floattostr(strtofloat(pf.Text)+strtofloat(ls.Text))   ;
  118.   zj.Text:=floattostr(strtofloat(rk.Text)+strtofloat(py.Text)) ;
  119.  js.Text:=floattostr(strtofloat(ty.Text)+strtofloat(pk.Text)+strtofloat(xs.Text)+strtofloat(bs.Text)) ;
  120.   ce.Text:=floattostr(strtofloat(zj.Text)-strtofloat(js.Text))   ;
  121. end;
  123. procedure Tfkctj.BitBtn3Click(Sender: TObject);
  124. begin
  125. close;
  126. end;
  128. procedure Tfkctj.FormClose(Sender: TObject; var Action: TCloseAction);
  129. begin
  130.   adodm.ttemp.Close;
  131.   adodm.tcrlist.Close;
  132.   action:=cafree;
  133. end;
  135. procedure Tfkctj.FormShow(Sender: TObject);
  136. begin
  137. adodm.ttemp.Close;
  138.   adodm.tcrlist.Close;
  139. end;
  141. procedure Tfkctj.BitBtn1Click(Sender: TObject);
  142. begin
  143. if pagecontrol1.ActivePageIndex=0 then
  144. begin
  146.  printdbgrideh1.Title.Text:=' 库存变动一览表   ('+fromdate.Text+'-'+todate.Text +')' ;
  147.  printdbgrideh1.AfterGridText.Text:=datetostr(date);
  148.  printdbgrideh1.Preview;
  150. end else
  151. begin
  152. showmessage('本软件是测试版，请手工抄写，给您带来不便，请购买正式版！');
  154. end
  155. end;
  157. end.