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

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

医药行业

开发平台：

Delphi

ubs.pas：源码内容
  1. unit ubs;
  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.   Tfbs = 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 Tfbs.FormShow(Sender: TObject);
  50. begin
  51.   adodm.tcr.Close;
  52.   adodm.tcr.Open;
  53.   label3.caption:=datetimetostr(date());
  54.   adodm.tdw.Filter:=' 出入<> 0 ' ;
  55.   adodm.tdw.Filtered:=true;
  56. end;
  58. procedure Tfbs.DBGridEh1ColExit(Sender: TObject);
  59. begin
  60.   if (trim(adodm.tcr.FieldByName('ypid').AsString)<>'') and (trim(adodm.tcr.FieldByName('数量').AsString)<>'')  then
  62.    if  adodm.tkc.Locate('ypid',adodm.tcr.Fieldvalues['ypid'],[])  then
  63.         if adodm.tkc.FieldByName('数量').AsInteger<adodm.tcr.FieldByName('数量').AsInteger then
  64.         begin
  65.           showmessage('库存数量:'+adodm.tkc.FieldByName('数量').Asstring+'    不足以支付');
  66.           adodm.tcr.Edit;
  67.           adodm.tcr.FieldByName('数量').AsString:='';
  68.           dbgrideh1.col:=2;
  69.         end
  70.         else
  71.         begin
  72.         adodm.tcr.edit;
  73.         adodm.tcr.FieldByName('单价').Asfloat:=adodm.tkc.fieldbyname('购进单价').asfloat;
  75.         end
  76.   else
  77.    begin
  78.     showmessage('该药品没有库存');
  79.     adodm.tcr.Edit;
  80.     adodm.tcr.FieldByName('药品简码').AsString:='';
  81.     dbgrideh1.col:=1;
  82.    end;
  84.   if (adodm.tcr.FieldByName('单价').AsString<>'') and (adodm.tcr.FieldByName('数量').Asstring<>'') then
  85.     begin
  86.     adodm.tcr.edit;
  87.     adodm.tcr.FieldByName('金额').AsFloat:=adodm.tcr.FieldByName('数量').Asinteger*adodm.tcr.FieldByName('单价').Asfloat ;
  88.     end ;
  92. end;
  97. function Tfbs.check: boolean;
  98. begin
  99.   result:=true;
  101.  if adodm.tcr.RecordCount<=0 then
  102.    begin
  103.     showmessage('请录入退出的药品信息！');
  104.     result:=false;
  105.     exit;
  106.    end;
  107. end;
  109. procedure Tfbs.saveClick(Sender: TObject);
  110. begin
  111.  
  112.   if not check then
  113.   exit;
  114.   adodm.ctemp.Parameters.ParamValues['@lx']:='bs';
  115.   adodm.ctemp.Execute;
  116.   edit2.Text:=adodm.ctemp.Parameters.ParamValues['@bh'];
  117.     {GETbh}
  118.   adodm.tcr.First;
  119.   while not adodm.tcr.Eof do
  120.   begin
  121.     adodm.tcr.Edit;
  122.     adodm.tcr.FieldByName('编号').AsString:=trim(edit2.Text);
  123.     adodm.tcr.FieldByName('入库单位').AsInteger:=-2;
  124.     if trim(ren.Text)<>'' then
  125.     adodm.tcr.FieldByName('开票人').Asinteger:=adodm.tyg.fieldbyname('ygid').Asinteger;
  126.     adodm.tcr.FieldByName('操作人').Asstring:=trim(edit1.Text);
  127.     adodm.tcr.FieldByName('类型').Asstring:='报损';
  128.     adodm.tcr.fieldbyname('出入').asboolean:=false;
  129.     adodm.tcr.FieldByName('日期').Asdatetime:=date;
  130.     if adodm.tkc.Locate('ypid',adodm.tcr.FieldValues['ypid'],[]) then
  131.     begin
  132.       adodm.tkc.Edit;
  133.       adodm.tkc.FieldByName('数量').AsInteger:=adodm.tkc.FieldByName('数量').AsInteger-adodm.tcr.FieldByName('数量').AsInteger;
  134.       adodm.tkc.FieldByName('购进金额').Asfloat:=adodm.tkc.FieldByName('购进单价').Asfloat*adodm.tkc.FieldByName('数量').AsInteger;
  135.       adodm.tkc.Post;
  136.     end  ;
  138.    adodm.tcr.Next;
  139.    end;
  140.    adodm.tcr.UpdateBatch();
  141.    dbgrideh1.Enabled:=false;
  142.    if print.Checked then
  143.    begin
  144.    fpreview.frrk.FindObject('memo1').Memo.Text:=label1.Caption;
  145.    fpreview.frrk.ShowReport;
  146.    fpreview.ShowModal;
  147.    end;
  148.    save.Enabled:=false;
  153. end;
  155. procedure Tfbs.retClick(Sender: TObject);
  156. begin
  157.  dbgrideh1.Enabled:=true;
  158.  adodm.tcr.close;
  159.  adodm.tcr.Open;
  160.  edit2.Text:='';
  161.  save.Enabled:=true;
  162. end;
  164. procedure Tfbs.FormClose(Sender: TObject; var Action: TCloseAction);
  165. begin
  166. try
  167. adodm.tcr.CancelUpdates;
  168. adodm.tcr.Close;
  169. except
  170. end;
  171. action:=cafree;
  172. end;
  174. procedure Tfbs.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  175.   Shift: TShiftState);
  176. begin
  177. if (key=vk_down) and adodm.tcr.Eof   then
  178. begin
  179. sendmessage(dbgrideh1.Handle,wm_keydown,vk_tab,0);
  180. adodm.tcr.Append;
  181. dbgrideh1.Col:=1;
  182. end;
  183. end;
  185. procedure Tfbs.BitBtn3Click(Sender: TObject);
  186. begin
  187. close;
  188. end;
  190. end.