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

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

医药行业

开发平台：

Delphi

Uypzdk2.pas：源码内容
  1. unit Uypzdk2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, Buttons, DBCtrlsEh,
  8.   DBLookupEh;
  10. type
  11.   Tfypzdk2 = class(TForm)
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     Label4: TLabel;
  15.     Label5: TLabel;
  16.     Label6: TLabel;
  17.     Label7: TLabel;
  18.     Label8: TLabel;
  19.     DBEdit8: TDBEdit;
  20.     Label9: TLabel;
  21.     DBEdit9: TDBEdit;
  22.     Bevel1: TBevel;
  23.     Bevel2: TBevel;
  24.     btok: TBitBtn;
  25.     btno: TBitBtn;
  26.     btadd: TBitBtn;
  27.     Memo1: TMemo;
  28.     Image1: TImage;
  29.     DBEdit3: TDBEdit;
  30.     DBEdit1: TDBEdit;
  31.     Label12: TLabel;
  32.     DBEdit4: TDBEdit;
  33.     DBEdit2: TDBEdit;
  34.     DBEdit5: TDBEdit;
  35.     Label16: TLabel;
  36.     Label17: TLabel;
  37.     Label20: TLabel;
  38.     pf: TDBEdit;
  39.     Label21: TLabel;
  40.     ls: TDBEdit;
  41.     Label22: TLabel;
  42.     edit6: TDBMemo;
  43.     Bevel3: TBevel;
  44.     jx: TDBComboBoxEh;
  45.     dw: TDBComboBoxEh;
  46.     Label1: TLabel;
  47.     lx: TDBComboBoxEh;
  48.     cj: TDBComboBoxEh;
  49.     wh: TDBEdit;
  50.     sp1: TSpeedButton;
  51.     look1: TDBLookupComboboxEh;
  52.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  53.       Shift: TShiftState);
  54.     procedure check(Sender: TObject);
  55.     procedure btokClick(Sender: TObject);
  56.     procedure btnoClick(Sender: TObject);
  57.     procedure btaddClick(Sender: TObject);
  58.     procedure checkstr(Sender: TObject);
  59.     procedure jxButtonDown(Sender: TObject; TopButton: Boolean;
  60.       var AutoRepeat, Handled: Boolean);
  61.     procedure dwButtonDown(Sender: TObject; TopButton: Boolean;
  62.       var AutoRepeat, Handled: Boolean);
  63.     procedure FormShow(Sender: TObject);
  64.     procedure lxButtonDown(Sender: TObject; TopButton: Boolean;
  65.       var AutoRepeat, Handled: Boolean);
  66.     procedure cjButtonDown(Sender: TObject; TopButton: Boolean;
  67.       var AutoRepeat, Handled: Boolean);
  68.     procedure pfExit(Sender: TObject);
  69.     procedure lsExit(Sender: TObject);
  70.     procedure whEnter(Sender: TObject);
  71.     procedure whExit(Sender: TObject);
  72.     procedure look1Change(Sender: TObject);
  73.     procedure look1Exit(Sender: TObject);
  74.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  75.   private
  76.     function search(fieldname:string;value:string):boolean;
  77.     procedure dotj;
  78.     { Private declarations }
  79.   public
  80.      function checkdata:boolean;
  81.     { Public declarations }
  82.   end;
  84. var fypzdk2:tfypzdk2;
  86. implementation
  88. uses udm;
  90. {$R *.dfm}
  92. procedure Tfypzdk2.FormKeyDown(Sender: TObject; var Key: Word;
  93.   Shift: TShiftState);
  94. begin
  95.   if key=vk_return then
  96.   postmessage(handle,wm_keydown,vk_tab,0);
  97. end;
  99. function Tfypzdk2.checkdata: boolean;
  100. begin
  102.    result:=true;
  103.    if trim(dbedit1.Text)='' then
  104.    begin
  105.    showmessage('药品编号不能为空!');
  106.    result:=false;
  107.    dbedit1.SetFocus;
  108.    exit;
  109.    end ;
  110.     if search(dbedit1.DataField,dbedit1.Text) then
  111.       begin
  112.       showmessage('药品编号重复,请重新录入!');
  113.       result:=false;
  114.       dbedit1.SetFocus;
  115.       exit;
  116.     end;
  119.    if trim(dbedit2.Text)='' then
  120.    begin
  121.    showmessage('药品代码不能为空!');
  122.    result:=false;
  123.    dbedit2.SetFocus;
  124.    exit;
  125.    end;
  127.     if search(dbedit2.datafield,dbedit2.Text) then
  128.     begin
  129.       showmessage('药品代码重复,请重新录入!');
  130.       result:=false;
  131.       dbedit2.SetFocus;
  132.       exit;
  133.     end;
  135.    if trim(dbedit3.Text)='' then
  136.    begin
  137.    showmessage('药品名称不能为空!');
  138.    result:=false;
  139.    dbedit3.SetFocus;
  140.    exit;
  141.    end;
  142.    if trim(jx.Text)='' then
  143.    begin
  144.    showmessage('药品剂型不能为空!');
  145.    result:=false;
  146.    jx.SetFocus;
  147.    exit;
  148.    end;
  149.    if trim(dw.Text)='' then
  150.    begin
  151.    showmessage('药品单位不能为空!');
  152.    result:=false;
  153.    dw.SetFocus;
  154.    exit;
  155.    end;
  156.    if trim(pf.Text)='' then
  157.    begin
  158.    showmessage('药品批发价格不能为空!');
  159.    result:=false;
  160.    pf.SetFocus;
  161.    exit;
  162.    end;
  163.      if trim(ls.Text)='' then
  164.    begin
  165.    showmessage('药品零售价不能为空!');
  166.    result:=false;
  167.    ls.SetFocus;
  168.    exit;
  169.    end;
  171.     if pf.Field.Value>ls.Field.Value then
  172.     if application.MessageBox('批发价大于零售价,是否调整？','警告' ,MB_yesno)=idyes then
  173.     begin
  174.     result:=false;
  175.     pf.SetFocus;
  176.     exit;
  177.     end;
  180.    if trim(dbedit5.Text)='' then
  181.    begin
  182.    showmessage('药品规格不能为空!');
  183.    result:=false;
  184.    dbedit5.SetFocus;
  185.    exit;
  186.    end;
  187.      if trim(lx.Text)='' then
  188.    begin
  189.    showmessage('药品类型不能为空!');
  190.    result:=false;
  191.    lx.SetFocus;
  192.    exit;
  193.    end;
  194.    if  trim(wh.EditText)='' then
  195.    begin
  196.    showmessage('批准文号不能为空！请认真填写！');
  197.    result:=false;
  198.    wh.SetFocus;
  199.    exit;
  200.    end;
  201.    if (trim(dbedit8.Text)<>'') and (trim(dbedit9.Text)<>'') then
  202.    if (dbedit8.Field.Value<>-1) and (dbedit9.Field.Value<>0)  then
  203.    if dbedit8.Field.Value<dbedit9.Field.Value then
  204.    begin
  205.    showmessage('最高库存限量小于最低库存限量！');
  206.    result:=false;
  207.    dbedit8.SetFocus;
  208.    exit;
  209.    end;
  213. end;
  215. procedure Tfypzdk2.check(Sender: TObject);
  216. begin
  217. if (sender as tdbedit).Field.AsFloat<0 then
  218. begin
  219.  showmessage('存量限制必需大于0');
  220.  (sender as tdbedit).SetFocus;
  221. end;
  222. end;
  224. procedure Tfypzdk2.btokClick(Sender: TObject);
  225. begin
  226.   if sp1.Visible then
  227.   dotj
  228.   else
  229.   if checkdata then
  230.     adodm.typzdk.Post;
  231.   close;
  232. end;
  234. procedure Tfypzdk2.btnoClick(Sender: TObject);
  235. begin
  236.       adodm.typzdk.Cancel;
  237.       close;
  238. end;
  240. procedure Tfypzdk2.btaddClick(Sender: TObject);
  241. begin
  242.    if checkdata then
  243.    adodm.typzdk.Append;
  244. end;
  246. procedure Tfypzdk2.checkstr(Sender: TObject);
  247. begin
  248.    if   trim((sender as Tdbedit).Text)='' then
  249.       (sender as Tdbedit).SetFocus;
  250. end;
  252. procedure Tfypzdk2.jxButtonDown(Sender: TObject; TopButton: Boolean;
  253.   var AutoRepeat, Handled: Boolean);
  255. begin
  257.   jx.Items.Clear;
  258.   adodm.ttemp.Close;
  259.   adodm.ttemp.CommandText:=' select distinct 剂型 from ypzdk'   ;
  260.   adodm.ttemp.Open;
  261.   adodm.ttemp.First;
  262.   while not adodm.ttemp.Eof do
  263.   begin
  264.     jx.Items.Add(adodm.ttemp.Fields[0].asstring) ;
  265.     adodm.ttemp.Next;
  266.   end;
  267. end;
  269. procedure Tfypzdk2.dwButtonDown(Sender: TObject;
  270.   TopButton: Boolean; var AutoRepeat, Handled: Boolean);
  271. begin
  272.   dw.Items.Clear;
  273.   adodm.ttemp.Close;
  274.   adodm.ttemp.CommandText:=' select distinct 单位 from ypzdk'   ;
  275.   adodm.ttemp.Open;
  276.   adodm.ttemp.First;
  277.   while not adodm.ttemp.Eof do
  278.   begin
  279.     dw.Items.Add(adodm.ttemp.Fields[0].asstring) ;
  280.     adodm.ttemp.Next;
  281.   end;
  282. end;
  284. procedure Tfypzdk2.FormShow(Sender: TObject);
  285. begin
  286. //adodm.typzdk.Append;
  288. end;
  290. procedure Tfypzdk2.lxButtonDown(Sender: TObject;
  291.   TopButton: Boolean; var AutoRepeat, Handled: Boolean);
  292. begin
  293.   lx.Items.Clear;
  294.   adodm.ttemp.Close;
  295.   adodm.ttemp.CommandText:=' select distinct 分类 from ypzdk'   ;
  296.   adodm.ttemp.Open;
  297.   adodm.ttemp.First;
  298.   while not adodm.ttemp.Eof do
  299.   begin
  300.     lx.Items.Add(adodm.ttemp.Fields[0].asstring) ;
  301.     adodm.ttemp.Next;
  302.   end;
  303. end;
  305. procedure Tfypzdk2.cjButtonDown(Sender: TObject; TopButton: Boolean;
  306.   var AutoRepeat, Handled: Boolean);
  307. begin
  308.   cj.Items.Clear;
  309.   adodm.ttemp.Close;
  310.   adodm.ttemp.CommandText:=' select distinct 生产厂家 from ypzdk'   ;
  311.   adodm.ttemp.Open;
  312.   adodm.ttemp.First;
  313.   while not adodm.ttemp.Eof do
  314.   begin
  315.     cj.Items.Add(adodm.ttemp.Fields[0].asstring) ;
  316.     adodm.ttemp.Next;
  317.   end;
  318. end;
  320. procedure Tfypzdk2.pfExit(Sender: TObject);
  321. begin
  322.  if pf.Field.Value<0 then
  323.  begin
  324.  showmessage('批发价必须大于0!');
  325.  pf.SetFocus;
  326.  end;
  327. end;
  329. procedure Tfypzdk2.lsExit(Sender: TObject);
  330. begin
  331. if ls.Field.Value<0 then
  332.  begin
  333.  showmessage('批发价必须大于0!');
  334.  ls.SetFocus;
  335.  end;
  336. end;
  338. function Tfypzdk2.search(fieldname: string; value: string): boolean;
  339. begin
  340.    adodm.ttemp.Close;
  341.    adodm.ttemp.CommandText:=' select id from ypzdk where '+trim(fieldname)+' ='''+trim(value)+'''';
  343.    if look1.Visible then
  344.    adodm.ttemp.commandtext:=adodm.ttemp.CommandText+' and id <>'+adodm.typzdk.Fieldbyname('id').asstring;
  346.    showmessage(adodm.ttemp.commandtext);
  347.    adodm.ttemp.Open;
  348.    result:= not adodm.ttemp.Eof;  
  349. end;
  351. procedure Tfypzdk2.whEnter(Sender: TObject);
  352. begin
  353.    wh.Width:=150;
  354. end;
  356. procedure Tfypzdk2.whExit(Sender: TObject);
  357. begin
  358. wh.Width:=81;
  359. end;
  361. procedure Tfypzdk2.dotj;
  362. var a:int64;
  363. begin
  364.   if (trim(pf.Text)='') or (trim(ls.Text)='') then
  365.   begin
  366.     showmessage('请将价格信息录入完整！');
  367.     pf.SetFocus;
  368.     exit;
  369.   end;
  370.   if pf.Field.Value>ls.Field.Value then
  371.   begin
  372.     
  373.     showmessage('批发价大于零售价！');
  374.     ls.SetFocus;
  375.     exit;
  376.   end;
  377.   // if (pf.Field.OldValue=pf.Field.Value) and (ls.Field.OldValue=ls.Field.Value) then
  378.   // begin
  379.     //showmessage('价格没有变动，请点击取消！');
  380.     //ls.SetFocus;
  381.     //exit;
  382.    //end;
  383.    //showmessage(floattostr(pf.Field.OldValue));
  384.    //showmessage(floattostr(pf.Field.value));
  385.   begin
  386.   a:=adodm.typzdk.FieldValues['id'];
  387.   //showmessage(inttostr(a));
  388.   adodm.ttj.Open;
  389.   adodm.ttj.append;
  390.   adodm.ttj.Edit;
  391.   adodm.ttj.Fieldbyname('ypid').AsInteger:=a;
  392.   adodm.ttj.Fieldvalues['oldpf']:=pf.Field.oldvalue;
  393.   adodm.ttj.Fieldvalues['oldls']:=ls.Field.oldvalue;
  394.   adodm.ttj.Fieldvalues['newpf']:=pf.Field.value;
  395.   adodm.ttj.FieldValues['newls']:=ls.Field.Value;
  396.   adodm.ttj.FieldValues['tjdate']:=now;
  397.   adodm.ttj.Post;
  398.   adodm.typzdk.Edit;
  399.   adodm.typzdk.Post;
  400.   adodm.ttj.Close;
  401.   
  402.   end
  404. end;
  406. procedure Tfypzdk2.look1Change(Sender: TObject);
  407. begin
  408. if trim(look1.Text)<>'' then
  409.  begin
  410.   adodm.typzdk.DisableControls;
  411.   adodm.typzdk.filtered:=false;
  412.   adodm.typzdk.Filter:=' 编号 like '''+trim(look1.text)+'%'' or '+'简码 like '''+trim(look1.text)+'%'' or '+'名称 like '''+trim(look1.text)+'%''' ;
  413.   //showmessage(adodm.typzdk.Filter);
  414.   adodm.typzdk.Filtered:=true;
  415.   adodm.typzdk.EnableControls;
  416.  end
  417. else
  418.   adodm.typzdk.Filtered:=false;
  419. end;
  421. procedure Tfypzdk2.look1Exit(Sender: TObject);
  422. begin
  423. if adodm.typzdk.Filtered then
  424.  postmessage(look1.Handle,wm_keydown,vk_down,0);
  425. end;
  427. procedure Tfypzdk2.FormClose(Sender: TObject; var Action: TCloseAction);
  428. begin
  429.   sp1.Visible:=false;
  430.   look1.Visible:=false;
  431.   btadd.Visible:=false;
  432. end;
  434. end.