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

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

医药行业

开发平台：

Delphi

uyg.pas：源码内容
  1. unit uyg;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, DBCtrlsEh, DBLookupEh,
  8.   DBGridEh, Buttons, Grids, XPMenu, PrnDbgeh;
  10. type
  11.   Tfyg = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     TabSheet3: TTabSheet;
  16.     DBGridEh1: TDBGridEh;
  17.     DBGridEh2: TDBGridEh;
  18.     DBGridEh3: TDBGridEh;
  19.     BitBtn6: TBitBtn;
  20.     BitBtn7: TBitBtn;
  21.     PrintDBGridEh1: TPrintDBGridEh;
  22.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  23.     procedure BitBtn7Click(Sender: TObject);
  24.     procedure TabSheet1Show(Sender: TObject);
  25.     procedure TabSheet2Show(Sender: TObject);
  26.     procedure TabSheet3Show(Sender: TObject);
  27.     procedure BitBtn6Click(Sender: TObject);
  28.     procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  29.       Shift: TShiftState);
  30.     procedure DBGridEh2KeyDown(Sender: TObject; var Key: Word;
  31.       Shift: TShiftState);
  32.     procedure DBGridEh3KeyDown(Sender: TObject; var Key: Word;
  33.       Shift: TShiftState);
  34.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  43. implementation
  45. uses Udm;
  47. {$R *.dfm}
  53. procedure Tfyg.FormClose(Sender: TObject; var Action: TCloseAction);
  54. begin
  55. action:=cafree;
  56. end;
  58. procedure Tfyg.BitBtn7Click(Sender: TObject);
  59. begin
  60. close;
  61. end;
  63. procedure Tfyg.TabSheet1Show(Sender: TObject);
  64. begin
  65.  adodm.tyg.Filtered:=false;
  66. end;
  68. procedure Tfyg.TabSheet2Show(Sender: TObject);
  69. begin
  70. adodm.tbm.Filtered:=false;
  72. end;
  74. procedure Tfyg.TabSheet3Show(Sender: TObject);
  75. begin
  76. adodm.tdw.Filter:='clientid >0';
  77. adodm.tdw.Filtered:=true;
  78. end;
  80. procedure Tfyg.BitBtn6Click(Sender: TObject);
  81. begin
  82.  printdbgrideh1.DBGridEh:=( pagecontrol1.ActivePage.Controls[0]) as tdbgrideh ;
  83.   printdbgrideh1.BeforeGridText.Text:=pagecontrol1.ActivePage.Caption+'一览表';
  84.   printdbgrideh1.AfterGridText.Text:=datetostr(date);
  85.   printdbgrideh1.Preview;
  86. end;
  88. procedure Tfyg.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  89.   Shift: TShiftState);
  90. begin
  91. if (key=vk_down) and adodm.tyg.Eof   then
  92. begin
  93. adodm.tyg.Append;
  94. dbgrideh1.Col:=1;
  95. end;
  96. end;
  98. procedure Tfyg.DBGridEh2KeyDown(Sender: TObject; var Key: Word;
  99.   Shift: TShiftState);
  100. begin
  101. if (key=vk_down) and adodm.tbm.Eof   then
  102. begin
  103. adodm.tbm.Append;
  104. dbgrideh2.Col:=1;
  105. end;
  106. end;
  108. procedure Tfyg.DBGridEh3KeyDown(Sender: TObject; var Key: Word;
  109.   Shift: TShiftState);
  110. begin
  111. if (key=vk_down) and adodm.tdw.Eof   then
  112. begin
  113. adodm.tdw.Append;
  114. dbgrideh3.Col:=1;
  115. end;
  116. end;
  118. end.