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

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

医药行业

开发平台：

Delphi

Urk.pas：源码内容
  1. unit Urk;
  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;
  10. type
  11.   Tfrk = class(TForm)
  12.     DBGridEh1: TDBGridEh;
  13.     Label1: TLabel;
  14.     TabControl1: TTabControl;
  15.     TabControl2: TTabControl;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     dw: TDBLookupComboboxEh;
  19.     Label4: TLabel;
  20.     Edit1: TEdit;
  21.     Label5: TLabel;
  22.     Label6: TLabel;
  23.     ren: TDBLookupComboboxEh;
  24.     Edit2: TEdit;
  25.     print: TCheckBox;
  26.     save: TBitBtn;
  27.     ret: TBitBtn;
  28.     BitBtn3: TBitBtn;
  29.     procedure FormShow(Sender: TObject);
  30.     procedure DBGridEh1ColExit(Sender: TObject);
  31.     procedure saveClick(Sender: TObject);
  32.     procedure retClick(Sender: TObject);
  33.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  34.     procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  35.       Shift: TShiftState);
  36.     procedure BitBtn3Click(Sender: TObject);
  37.   private
  38.     function  check():boolean;
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  47. implementation
  48. uses udm;
  49. {$R *.dfm}
  51. procedure Tfrk.FormShow(Sender: TObject);
  52. begin
  53.   adodm.tcr.Close;
  54.   adodm.tcr.Open;
  55.   label3.caption:=datetimetostr(date());
  56.   adodm.tdw.Filter:=' 出入<> 0 ' ;
  57.   adodm.tdw.Filtered:=true;
  58. end;
  60. procedure Tfrk.DBGridEh1ColExit(Sender: TObject);
  61. begin
  63.   adodm.tcr.Edit;
  64.   if dbgrideh1.Columns[dbgrideh1.Col-1].FieldName='数量'     then
  65.   try
  66.    adodm.tcr.FieldByName('金额').AsFloat:=adodm.tcr.FieldByName('数量').Asinteger*adodm.tcr.FieldByName('单价').Asfloat ;
  67.   except
  68.   end;
  70.   if dbgrideh1.Columns[dbgrideh1.Col-1].FieldName='单价'    then
  71.   try
  72.    adodm.tcr.FieldByName('金额').AsFloat:=adodm.tcr.FieldByName('数量').Asinteger*adodm.tcr.FieldByName('单价').Asfloat ;
  73.   except
  74.   end;
  76.   if dbgrideh1.Columns[dbgrideh1.Col-1].FieldName='金额'    then
  77.   try
  78.    adodm.tcr.FieldByName('单价').AsFloat:=adodm.tcr.FieldByName('金额').Asfloat/adodm.tcr.FieldByName('数量').Asinteger ;
  79.   except
  80.   end;
  82. end;
  87. function Tfrk.check: boolean;
  88. begin
  89.   result:=true;
  90.  if trim(dw.Text)='' then
  91.    begin
  92.     showmessage('请选择一个购药单位，如果没有出现在列表中，请添加！');
  93.     result:=false;
  94.     exit;
  95.     end;
  96.  if adodm.tcr.RecordCount<=0 then
  97.    begin
  98.     showmessage('请录入购入的药品信息！');
  99.     result:=false;
  100.     exit;
  101.    end;
  102. end;
  104. procedure Tfrk.saveClick(Sender: TObject);
  105. begin
  106.  
  107.   if not check then
  108.   exit;
  109.   adodm.ctemp.Parameters.ParamValues['@lx']:='rk';
  110.   adodm.ctemp.Execute;
  111.   edit2.Text:=adodm.ctemp.Parameters.ParamValues['@bh'];
  112.     {GETbh}
  113.   adodm.tcr.First;
  114.   while not adodm.tcr.Eof do
  115.   begin
  116.     adodm.tcr.Edit;
  117.     adodm.tcr.FieldByName('编号').AsString:=trim(edit2.Text);
  119.     adodm.tcr.FieldByName('出库单位').AsInteger:=adodm.tdw.fieldbyname('clientid').AsInteger;
  120.     if trim(ren.Text)<>'' then
  121.     adodm.tcr.FieldByName('开票人').Asinteger:=adodm.tyg.fieldbyname('ygid').Asinteger;
  122.     adodm.tcr.FieldByName('操作人').Asstring:=trim(edit1.Text);
  123.     adodm.tcr.FieldByName('类型').Asstring:='入库';
  124.     adodm.tcr.fieldbyname('出入').asboolean:=true;
  125.     adodm.tcr.FieldByName('日期').Asdatetime:=date;
  126.     if adodm.tkc.Locate('ypid',adodm.tcr.FieldValues['ypid'],[]) then
  127.     begin
  128.       adodm.tkc.Edit;
  129.       adodm.tkc.FieldByName('数量').AsInteger:=adodm.tkc.FieldByName('数量').AsInteger+adodm.tcr.FieldByName('数量').AsInteger;
  130.       adodm.tkc.FieldByName('购进金额').Asfloat:=adodm.tkc.FieldByName('购进金额').Asfloat+adodm.tcr.FieldByName('金额').Asfloat;
  131.       adodm.tkc.FieldByName('购进单价').Asfloat:=adodm.tkc.FieldByName('购进金额').Asfloat/adodm.tkc.FieldByName('数量').AsInteger;
  132.       adodm.tkc.Post;
  133.     end
  134.     else
  135.     begin
  136.       adodm.tkc.Append;
  137.       adodm.tkc.FieldByName('ypid').Asinteger:=adodm.tcr.fieldbyname('ypid').AsInteger;
  138.       adodm.tkc.FieldByName('数量').AsInteger:=adodm.tcr.FieldByName('数量').AsInteger;
  139.       adodm.tkc.FieldByName('购进金额').Asfloat:=adodm.tcr.FieldByName('购进金额').Asfloat;
  140.       adodm.tkc.FieldByName('购进单价').Asfloat:=adodm.tcr.FieldByName('购进金额').Asfloat;
  141.       adodm.tkc.Post;
  142.     end;
  143.     adodm.tcr.Next;
  144.    end;
  145.    adodm.tcr.UpdateBatch();
  146.    dbgrideh1.Enabled:=false;
  147.    if print.Checked then
  148.    begin
  149.    fpreview.frrk.FindObject('memo1').Memo.Text:=label1.Caption;
  150.    fpreview.frrk.ShowReport;
  151.    fpreview.ShowModal;
  152.    end;
  153.    save.Enabled:=false;
  158. end;
  160. procedure Tfrk.retClick(Sender: TObject);
  161. begin
  162.  dbgrideh1.Enabled:=true;
  163.  adodm.tcr.close;
  164.  adodm.tcr.Open;
  165.  edit2.Text:='';
  166.  save.Enabled:=true;
  167. end;
  169. procedure Tfrk.FormClose(Sender: TObject; var Action: TCloseAction);
  170. begin
  171. try
  172. adodm.tcr.CancelUpdates;
  173. adodm.tcr.Close;
  174. except
  175. end;
  178. action:=cafree;
  179. end;
  181. procedure Tfrk.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  182.   Shift: TShiftState);
  183. begin
  184. if (key=vk_down) and adodm.tcr.Eof   then
  185. begin
  186.  sendmessage(dbgrideh1.Handle,wm_keydown,vk_tab,0);
  187.  adodm.tcr.Append;
  188.  dbgrideh1.Col:=1;
  189. end;
  190. end;
  192. procedure Tfrk.BitBtn3Click(Sender: TObject);
  193. begin
  194. close;
  195. end;
  197. end.