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

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

医药行业

开发平台：

Delphi

Uypzdk.pas：源码内容
  1. unit Uypzdk;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs,udm, StdCtrls, Buttons, Grids, DBGridEh,uypzdk2, PrnDbgeh, Mask,
  8.   DBCtrlsEh, DBLookupEh, ComCtrls;
  10. type
  11.   Tfypzdk = class(TForm)
  12.     Label1: TLabel;
  13.     dbshow: TDBGridEh;
  14.     PrintDBGridEh1: TPrintDBGridEh;
  15.     search: TDBLookupComboboxEh;
  16.     SpeedButton1: TSpeedButton;
  17.     TabControl1: TTabControl;
  18.     BitBtn2: TBitBtn;
  19.     BitBtn3: TBitBtn;
  20.     BitBtn8: TBitBtn;
  21.     BitBtn9: TBitBtn;
  22.     BitBtn10: TBitBtn;
  23.     procedure BitBtn1Click(Sender: TObject);
  24.     procedure BitBtn6Click(Sender: TObject);
  25.     procedure BitBtn7Click(Sender: TObject);
  26.     procedure BitBtn5Click(Sender: TObject);
  27.     procedure BitBtn4Click(Sender: TObject);
  28.     procedure searchChange(Sender: TObject);
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure searchExit(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  39. implementation
  41. {$R *.dfm}
  43. procedure Tfypzdk.BitBtn1Click(Sender: TObject);
  44. begin
  45.   dbshow.DataSource.DataSet.Append;
  46.   fypzdk2.btadd.Show;
  47.   fypzdk2.ShowModal;
  48. end;
  50. procedure Tfypzdk.BitBtn6Click(Sender: TObject);
  51. begin
  53.   printdbgrideh1.AfterGridText.Text:=datetostr(date);
  54.   printdbgrideh1.Preview;
  55. end;
  57. procedure Tfypzdk.BitBtn7Click(Sender: TObject);
  58. begin
  59.   close;
  60. end;
  62. procedure Tfypzdk.BitBtn5Click(Sender: TObject);
  63. begin
  64.  if messagedlg('专家建议不要删除此数据，是否真要删除此条数据？',mtwarning,[mbyes,mbcancel],0)=mryes then
  65.   try
  66.   dbshow.DataSource.DataSet.Delete;
  67.   except
  68.   messagedlg('删除数据时出错！',mterror,[mbok],0);
  69.   end;
  70. end;
  72. procedure Tfypzdk.BitBtn4Click(Sender: TObject);
  73. begin
  74.  fypzdk2.btadd.Visible:=false;
  75.  dbshow.DataSource.DataSet.edit;
  76.  fypzdk2.pf.Enabled:=false;
  77.  fypzdk2.ls.Enabled:=false;
  78.  fypzdk2.look1.Visible:=true;
  79.  fypzdk2.ShowModal;
  80.  
  82. end;
  84. procedure Tfypzdk.searchChange(Sender: TObject);
  85. begin
  86. if trim(search.Text)<>'' then
  87.  begin
  88.   adodm.typzdk.DisableControls;
  89.   adodm.typzdk.filtered:=false;
  90.   adodm.typzdk.Filter:=' 编号 like '''+trim(search.text)+'%'' or '+'简码 like '''+trim(search.text)+'%'' or '+'名称 like '''+trim(search.text)+'%''' ;
  91.   //showmessage(adodm.typzdk.Filter);
  92.   adodm.typzdk.Filtered:=true;
  93.   adodm.typzdk.EnableControls;
  94.  end
  95. else
  96.   adodm.typzdk.Filtered:=false;
  97. end;
  99. procedure Tfypzdk.FormClose(Sender: TObject; var Action: TCloseAction);
  100. begin
  101. adodm.typzdk.Filtered:=false;
  102. action:=cafree;
  103. end;
  105. procedure Tfypzdk.searchExit(Sender: TObject);
  106. begin
  107.   if adodm.typzdk.Filtered then
  108.   postmessage(search.Handle,wm_keydown,vk_down,0);
  109. end;
  111. end.