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

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

医药行业

开发平台：

Delphi

ucr.pas：源码内容
  1. unit ucr;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Buttons, Grids, DBGridEh, ComCtrls, ExtCtrls,udm,PrnDbgeh,
  8.   Mask, DBCtrlsEh;
  10. type
  11.   Tfcr = class(TForm)
  12.     Label1: TLabel;
  13.     TabControl1: TTabControl;
  14.     Label3: TLabel;
  15.     TabControl2: TTabControl;
  16.     print: TBitBtn;
  17.     DBGridEh1: TDBGridEh;
  18.     PrintDBGridEh1: TPrintDBGridEh;
  19.     BitBtn3: TBitBtn;
  20.     BitBtn5: TBitBtn;
  21.     fromdate: TDBDateTimeEditEh;
  22.     todate: TDBDateTimeEditEh;
  23.     Label2: TLabel;
  24.     Label4: TLabel;
  25.     procedure FormShow(Sender: TObject);
  26.     procedure BitBtn5Click(Sender: TObject);
  27.     procedure printClick(Sender: TObject);
  28.     procedure BitBtn3Click(Sender: TObject);
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   fcr: Tfcr;
  39. implementation
  41. {$R *.dfm}
  43. procedure Tfcr.FormShow(Sender: TObject);
  44. begin
  45.   label3.Caption:=datetimetostr(date);
  46.   adodm.ttemp.Close;
  47. end;
  49. procedure Tfcr.BitBtn5Click(Sender: TObject);
  50. var sqlstr,wherestr:string;
  51. begin
  52.  sqlstr:='select a.* ,b.* ,b.编号 as 销售编号,c.姓名 ,d.名称 as 购药单位 from ypzdk a,cr b ,ygb c ,company d  where (b.类型=''批发'' or b.类型=''零售'') and a.id=b.ypid and b.开票人=c.ygid and b.入库单位=d.clientid' ;
  54.  if (fromdate.Text='    -  -  ') and (todate.Text<>'    -  -  ') then
  55.    wherestr:=' and 日期<='''+trim(todate.Text)+'''' ;
  56.   if (fromdate.Text<>'    -  -  ') and (todate.Text<>'    -  -  ') then
  57.   wherestr:=' and 日期>='''+trim(fromdate.Text)+''' and 日期<='''+trim(todate.Text)+'''' ;
  58.   if (fromdate.Text<>'    -  -  ') and (todate.Text='    -  -  ') then
  59.   wherestr:=' and  日期>='''+trim(fromdate.Text)+'''' ;
  60.   if (fromdate.Text='    -  -  ') and (todate.Text='    -  -  ') then
  61.   wherestr:='  ';
  62.   sqlstr:=sqlstr+wherestr;
  63.  //showmessage(sqlstr);
  64.  adodm.tcrlist.Close;
  65.  adodm.tcrlist.CommandText:= sqlstr;
  66.  adodm.tcrlist.Open;
  67.  
  68. end;
  70. procedure Tfcr.printClick(Sender: TObject);
  71. begin
  72.   printdbgrideh1.Title.Text:=' 销售一览表   ('+fromdate.Text+'-'+todate.Text +')' ;
  73.   printdbgrideh1.AfterGridText.Text:=datetostr(date);
  74.   printdbgrideh1.Preview;
  75. end;
  77. procedure Tfcr.BitBtn3Click(Sender: TObject);
  78. begin
  79. close;
  80. end;
  82. procedure Tfcr.FormClose(Sender: TObject; var Action: TCloseAction);
  83. begin
  84. adodm.tcrlist.Close;
  85. action:=cafree;
  86. end;
  88. end.