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

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

医药行业

开发平台：

Delphi

upd.pas：源码内容
  1. unit Upd;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Grids, DBGridEh, ComCtrls, Buttons, Mask, DBCtrlsEh,
  8.   DBLookupEh, Menus,upreview,udm;
  10. type
  11.   Tfpd = class(TForm)
  12.     DBGridEh1: TDBGridEh;
  13.     Label1: TLabel;
  14.     TabControl1: TTabControl;
  15.     TabControl2: TTabControl;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Edit1: TEdit;
  19.     Label5: TLabel;
  20.     Label6: TLabel;
  21.     ren: TDBLookupComboboxEh;
  22.     Edit2: TEdit;
  23.     print: TCheckBox;
  24.     save: TBitBtn;
  25.     ret: TBitBtn;
  26.     BitBtn3: TBitBtn;
  27.     procedure FormShow(Sender: TObject);
  28.     procedure DBGridEh1ColExit(Sender: TObject);
  29.     procedure saveClick(Sender: TObject);
  30.     procedure retClick(Sender: TObject);
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.     procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  33.       Shift: TShiftState);
  34.     procedure BitBtn3Click(Sender: TObject);
  35.   private
  36.     function  check():boolean;
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  45. implementation
  47. {$R *.dfm}
  49. procedure Tfpd.FormShow(Sender: TObject);
  50. begin
  51.   adodm.tcr.Close;
  52.   adodm.tcr.Open;
  53.   label3.caption:=datetimetostr(date());
  54. end;
  56. procedure Tfpd.DBGridEh1ColExit(Sender: TObject);
  57. begin
  58.   if (trim(adodm.tcr.FieldByName('ypid').AsString)<>'') and (trim(adodm.tcr.FieldByName('数量').AsString)<>'')  then
  60.    if  adodm.tkc.Locate('ypid',adodm.tcr.Fieldvalues['ypid'],[])  then
  61.         if adodm.tkc.FieldByName('数量').AsInteger<adodm.tcr.FieldByName('数量').AsInteger then
  62.         begin
  63.           showmessage('库存数量:'+adodm.tkc.FieldByName('数量').Asstring+'    不足以支付');
  64.           adodm.tcr.Edit;
  65.           adodm.tcr.FieldByName('数量').AsString:='';
  66.           dbgrideh1.col:=2;
  67.         end
  68.         else
  69.         begin
  70.         adodm.tcr.edit;
  71.         adodm.tcr.FieldByName('单价').Asfloat:=adodm.tkc.fieldbyname('购进单价').asfloat
  72.         end
  73.   else
  74.    begin
  75.     showmessage('该药品没有库存');
  76.     adodm.tcr.Edit;
  77.     adodm.tcr.FieldByName('药品简码').AsString:='';
  78.     dbgrideh1.col:=1;
  79.    end;
  81.   if (adodm.tcr.FieldByName('单价').AsString<>'') and (adodm.tcr.FieldByName('数量').Asstring<>'') then
  82.     begin
  83.     adodm.tcr.FieldByName('金额').AsFloat:=adodm.tcr.FieldByName('数量').Asinteger*adodm.tcr.FieldByName('单价').Asfloat ;
  84.     end ;
  88. end;
  93. function Tfpd.check: boolean;
  94. begin
  95.   result:=true;
  97.  if adodm.tcr.RecordCount<=0 then
  98.    begin
  99.     showmessage('请录入退出的药品信息！');
  100.     result:=false;
  101.     exit;
  102.    end;
  103. end;
  105. procedure Tfpd.saveClick(Sender: TObject);
  106. begin
  107.  
  108.   if not check then
  109.   exit;
  110.   adodm.ctemp.Parameters.ParamValues['@lx']:='pd';
  111.   adodm.ctemp.Execute;
  112.   edit2.Text:=adodm.ctemp.Parameters.ParamValues['@bh'];
  113.     {GETbh}
  114.   adodm.tcr.First;
  115.   while not adodm.tcr.Eof do
  116.   begin
  117.     adodm.tcr.Edit;
  118.     adodm.tcr.FieldByName('编号').AsString:=trim(edit2.Text);
  119.     if adodm.tcr.FieldByName('数量').AsInteger<0 then
  120.     begin
  121.     adodm.tcr.FieldByName('入库单位').AsInteger:=-2;
  122.     adodm.tcr.FieldByName('类型').Asstring:='盘亏';
  123.     adodm.tcr.fieldbyname('出入').asboolean:=false;
  124.     end
  125.      else
  126.      begin
  127.     adodm.tcr.FieldByName('出库单位').AsInteger:=-2;
  128.     adodm.tcr.FieldByName('类型').Asstring:='盘盈';
  129.     adodm.tcr.fieldbyname('出入').asboolean:=true;
  130.      end;
  131.     if trim(ren.Text)<>'' then
  132.     adodm.tcr.FieldByName('开票人').Asinteger:=adodm.tyg.fieldbyname('ygid').Asinteger;
  133.     adodm.tcr.FieldByName('操作人').Asstring:=trim(edit1.Text);
  135.    
  136.     adodm.tcr.FieldByName('日期').Asdatetime:=date;
  137.     if adodm.tkc.Locate('ypid',adodm.tcr.FieldValues['ypid'],[]) then
  138.     begin
  139.       adodm.tkc.Edit;
  140.       adodm.tkc.FieldByName('数量').AsInteger:=adodm.tkc.FieldByName('数量').AsInteger+adodm.tcr.FieldByName('数量').AsInteger;
  141.       adodm.tkc.FieldByName('购进金额').Asfloat:=adodm.tkc.FieldByName('购进单价').Asfloat*adodm.tkc.FieldByName('数量').AsInteger;
  142.       adodm.tkc.Post;
  143.     end  ;
  145.    adodm.tcr.Next;
  146.    end;
  147.    adodm.tcr.UpdateBatch();
  148.    dbgrideh1.Enabled:=false;
  149.    if print.Checked then
  150.    begin
  151.    fpreview.frrk.FindObject('memo1').Memo.Text:=label1.Caption;
  152.    fpreview.frrk.ShowReport;
  153.    fpreview.ShowModal;
  154.    end;
  155.    save.Enabled:=false;
  157. end;
  159. procedure Tfpd.retClick(Sender: TObject);
  160. begin
  161.  dbgrideh1.Enabled:=true;
  162.  adodm.tcr.close;
  163.  adodm.tcr.Open;
  164.  edit2.Text:='';
  165.  save.Enabled:=true;
  166. end;
  168. procedure Tfpd.FormClose(Sender: TObject; var Action: TCloseAction);
  169. begin
  170. action:=cafree;
  171. end;
  173. procedure Tfpd.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  174.   Shift: TShiftState);
  175. begin
  176. if (key=vk_down) and adodm.tcr.Eof   then
  177. begin
  178. sendmessage(dbgrideh1.Handle,wm_keydown,vk_tab,0);
  179. adodm.tcr.Append;
  180. dbgrideh1.Col:=1;
  181. end;
  182. end;
  184. procedure Tfpd.BitBtn3Click(Sender: TObject);
  185. begin
  186. close;
  187. end;
  189. end.