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

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

医药行业

开发平台：

Delphi

Uxstj.pas：源码内容
  1. unit Uxstj;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, Grids, DBGridEh, StdCtrls, Mask, DBCtrlsEh, Buttons,
  8.   PrnDbgeh;
  10. type
  11.   Tfxstj = class(TForm)
  12.     Label1: TLabel;
  13.     PrintDBGridEh1: TPrintDBGridEh;
  14.     TabControl2: TTabControl;
  15.     Label2: TLabel;
  16.     Label4: TLabel;
  17.     BitBtn3: TBitBtn;
  18.     fromdate: TDBDateTimeEditEh;
  19.     todate: TDBDateTimeEditEh;
  20.     BitBtn5: TBitBtn;
  21.     SpeedButton1: TSpeedButton;
  22.     SpeedButton2: TSpeedButton;
  23.     SpeedButton3: TSpeedButton;
  24.     SpeedButton4: TSpeedButton;
  25.     DBGridEh1: TDBGridEh;
  26.     procedure BitBtn5Click(Sender: TObject);
  27.     procedure SpeedButton2Click(Sender: TObject);
  28.     procedure SpeedButton4Click(Sender: TObject);
  29.     procedure SpeedButton3Click(Sender: TObject);
  30.     procedure SpeedButton1Click(Sender: TObject);
  31.     procedure BitBtn3Click(Sender: TObject);
  32.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  33.     procedure FormShow(Sender: TObject);
  34.   private
  35.     printtitle:string;
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   fxstj: Tfxstj;
  44. implementation
  46. uses Udm;
  48. {$R *.dfm}
  50. procedure Tfxstj.BitBtn5Click(Sender: TObject);
  51. begin
  52. printdbgrideh1.Title.Text:=' 销 售 统 计 ' +'('+fromdate.Text+'-'+todate.Text +'  '+printtitle+')' ;
  53. printdbgrideh1.AfterGridText.Text:=datetostr(date);
  54. printdbgrideh1.Preview;
  55. end;
  57. procedure Tfxstj.SpeedButton2Click(Sender: TObject);
  58. var sqlstr,wherestr:string;
  59. begin
  60.   
  61.   printtitle:=speedbutton2.Caption;
  62.  sqlstr:='select a.部门名称,sum(b.金额) as 销售金额 , sum(b.金额-b.成本金额) as 利润 from partment a,cr b ,ygb c where (b.类型=''零售'' or b.类型=''批发'' ) and b.开票人=c.ygid and c.所属部门=a.部门编号 ' ;
  63.  if (fromdate.Text='    -  -  ') and (todate.Text<>'    -  -  ') then
  64.    wherestr:=' and 日期<='''+trim(todate.Text)+'''' ;
  65.   if (fromdate.Text<>'    -  -  ') and (todate.Text<>'    -  -  ') then
  66.   wherestr:=' and 日期>='''+trim(fromdate.Text)+''' and 日期<='''+trim(todate.Text)+'''' ;
  67.   if (fromdate.Text<>'    -  -  ') and (todate.Text='    -  -  ') then
  68.   wherestr:=' and  日期>='''+trim(fromdate.Text)+'''' ;
  69.   if (fromdate.Text='    -  -  ') and (todate.Text='    -  -  ') then
  70.   wherestr:='  ';
  71.   sqlstr:=sqlstr+wherestr+'  group by a.部门名称 ';
  72.  dbgrideh1.Columns[0].FieldName:='部门名称';
  73.  adodm.txstj.Close;
  74.  adodm.txstj.CommandText:= sqlstr;
  75.  adodm.txstj.Open;
  79. end;
  81. procedure Tfxstj.SpeedButton4Click(Sender: TObject);
  82. var sqlstr,wherestr:string;
  83. begin
  85. printtitle:=speedbutton4.Caption;
  86.  sqlstr:='select c.姓名,sum(b.金额) as 销售金额 , sum(b.金额-b.成本金额) as 利润 from cr b ,ygb c where (b.类型=''零售'' or b.类型=''批发'' ) and b.开票人=c.ygid ' ;
  87.  if (fromdate.Text='    -  -  ') and (todate.Text<>'    -  -  ') then
  88.    wherestr:=' and 日期<='''+trim(todate.Text)+'''' ;
  89.   if (fromdate.Text<>'    -  -  ') and (todate.Text<>'    -  -  ') then
  90.   wherestr:=' and 日期>='''+trim(fromdate.Text)+''' and 日期<='''+trim(todate.Text)+'''' ;
  91.   if (fromdate.Text<>'    -  -  ') and (todate.Text='    -  -  ') then
  92.   wherestr:=' and  日期>='''+trim(fromdate.Text)+'''' ;
  93.   if (fromdate.Text='    -  -  ') and (todate.Text='    -  -  ') then
  94.   wherestr:='  ';
  95.   sqlstr:=sqlstr+wherestr+'  group by c.姓名 ';
  96.   dbgrideh1.Columns[0].FieldName:='姓名';
  97. adodm.txstj.Close;
  98.  adodm.txstj.CommandText:= sqlstr;
  99.  adodm.txstj.Open;
  102. end;
  104. procedure Tfxstj.SpeedButton3Click(Sender: TObject);
  105. var sqlstr,wherestr:string;
  106. begin
  107. printtitle:=speedbutton3.Caption;
  108.  sqlstr:='select 类型,sum(金额) as 销售金额 , sum(金额-成本金额) as 利润 from cr where (类型=''零售'' or 类型=''批发'' )  ' ;
  109.  if (fromdate.Text='    -  -  ') and (todate.Text<>'    -  -  ') then
  110.    wherestr:=' and 日期<='''+trim(todate.Text)+'''' ;
  111.   if (fromdate.Text<>'    -  -  ') and (todate.Text<>'    -  -  ') then
  112.   wherestr:=' and 日期>='''+trim(fromdate.Text)+''' and 日期<='''+trim(todate.Text)+'''' ;
  113.   if (fromdate.Text<>'    -  -  ') and (todate.Text='    -  -  ') then
  114.   wherestr:=' and  日期>='''+trim(fromdate.Text)+'''' ;
  115.   if (fromdate.Text='    -  -  ') and (todate.Text='    -  -  ') then
  116.   wherestr:='  ';
  117.   sqlstr:=sqlstr+wherestr+'  group by 类型';
  118.   dbgrideh1.Columns[0].FieldName:='类型';
  119.  adodm.txstj.Close;
  120.  adodm.txstj.CommandText:= sqlstr;
  121.  adodm.txstj.Open;
  124. end;
  126. procedure Tfxstj.SpeedButton1Click(Sender: TObject);
  127. var sqlstr,wherestr:string;
  128. begin
  130. printtitle:=speedbutton1.Caption;
  131.  sqlstr:='select c.名称,sum(b.金额) as 销售金额 , sum(b.金额-b.成本金额) as 利润, c.id as 药品标识号  from cr b ,ypzdk c where (b.类型=''零售'' or b.类型=''批发'' ) and b.ypid=c.id ' ;
  132.  if (fromdate.Text='    -  -  ') and (todate.Text<>'    -  -  ') then
  133.    wherestr:=' and 日期<='''+trim(todate.Text)+'''' ;
  134.   if (fromdate.Text<>'    -  -  ') and (todate.Text<>'    -  -  ') then
  135.   wherestr:=' and 日期>='''+trim(fromdate.Text)+''' and 日期<='''+trim(todate.Text)+'''' ;
  136.   if (fromdate.Text<>'    -  -  ') and (todate.Text='    -  -  ') then
  137.   wherestr:=' and  日期>='''+trim(fromdate.Text)+'''' ;
  138.   if (fromdate.Text='    -  -  ') and (todate.Text='    -  -  ') then
  139.   wherestr:='  ';
  140.   sqlstr:=sqlstr+wherestr+'  group by  c.id, c.名称';
  142. adodm.txstj.Close;
  143.  adodm.txstj.CommandText:= sqlstr;
  144.  adodm.txstj.Open;
  146.  dbgrideh1.Columns[0].FieldName:='名称';
  147. end;
  149. procedure Tfxstj.BitBtn3Click(Sender: TObject);
  150. begin
  151. close;
  152. end;
  154. procedure Tfxstj.FormClose(Sender: TObject; var Action: TCloseAction);
  155. begin
  156. adodm.txstj.Close;
  157. action:=cafree;
  158. end;
  160. procedure Tfxstj.FormShow(Sender: TObject);
  161. begin
  162.   adodm.txstj.Close;
  163.   
  165. end;
  167. end.