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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit9.pas
资源名称：HIS.rar　[点击查看]
上传用户：fjdqny
上传日期：2016-10-26
资源大小：6299k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit9.pas：源码内容
  1. unit Unit9;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGrids, StdCtrls, ComCtrls, DB, ADODB;
  9. type
  10.   TForm9 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     Edit2: TEdit;
  20.     Edit3: TEdit;
  21.     Edit4: TEdit;
  22.     Button1: TButton;
  23.     Button2: TButton;
  24.     Label5: TLabel;
  25.     Edit5: TEdit;
  26.     Label6: TLabel;
  27.     Edit6: TEdit;
  28.     Button3: TButton;
  29.     DBGrid1: TDBGrid;
  30.     Button5: TButton;
  31.     DataSource1: TDataSource;
  32.     ADOQuery1: TADOQuery;
  33.     ADOConnection1: TADOConnection;
  34.     procedure Button1Click(Sender: TObject);
  35.     procedure Button2Click(Sender: TObject);
  36.     procedure Button3Click(Sender: TObject);
  37.     procedure Button5Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   Form9: TForm9;
  46.   Query : TADOQuery;
  47.   aaa,bbb,w,ddd,eee:Char;
  48. implementation
  50. {$R *.dfm}
  52. procedure TForm9.Button1Click(Sender: TObject);
  53. begin
  54. if (Edit1.Text<>'') and (Edit2.text<>'')and (Edit4.text<>'') then
  55.  begin
  57.    Query := TADOQuery.Create(nil);
  58.    Query.Connection :=ADOConnection1;
  59.    Query.SQL.Add('select Patno,Bedno from zhuyuanbingren  where Patno=:aaa  and Bedno=:w');
  60.    Query.Parameters.ParamByName('aaa').Value :=edit1.Text;
  62.    Query.Parameters.ParamByName('w').Value :=edit4.Text;
  63.    Query.Open;
  64.    if Query.RecordCount =0 then
  65.    showmessage('此病人信息不存在,请输入正确的病人编号和姓名和床位编号！！！')
  66.    else
  67.    begin
  68.  //   adoquery1.Open;
  69.     adoquery1.SQL.Clear;
  70.     adoquery1.SQL.Add('update zhuyuanbingren set Extime=:ddd where Patno='''+edit1.Text+'''');
  71.     adoquery1.Parameters.ParamByName('ddd').Value:=Edit2.Text;
  72.     adoquery1.ExecSQL;
  75.     adoquery1.SQL.Clear;
  76.     adoquery1.SQL.Add('update chuangwei set Isfree=:eee  where Bedno='''+edit4.Text+'''');
  77.     adoquery1.Parameters.ParamByName('eee').Value:='是';
  78.     adoquery1.ExecSQL;
  80.     edit1.Clear;edit2.Clear;edit3.clear;edit4.clear;
  81.     showmessage('数据已经添加成功！');
  82.    end
  83.  end
  84. else
  85.   if (Edit1.Text='') then
  86.    showmessage('请输入病人编号！')
  88. else
  89.   if (Edit2.Text='') then
  90.    showmessage('请输入出院时间！')
  91. else
  92.   if (Edit4.Text='') then
  93.    showmessage('请输入床位编号！');
  94. end;
  96. procedure TForm9.Button2Click(Sender: TObject);
  97. begin
  98.  form9.Close;
  99. end;
  101. procedure TForm9.Button3Click(Sender: TObject);
  102. begin
  104. if(Edit5.Text<>'') and (Edit6.Text<>'') then
  105. begin
  107.    Query := TADOQuery.Create(nil);
  108.    Query.Connection :=ADOConnection1;
  109.    Query.SQL.Add('select Patno,Pat from shoufeidan  where Patno =:aaa and Pat=:bbb');
  110.    Query.Parameters.ParamByName('aaa').Value :=edit5.Text;
  111.    Query.Parameters.ParamByName('bbb').Value :=edit6.Text;
  112.    Query.Open;
  113.    if Query.RecordCount =0 then  //非0表示存在，0表示不存在
  114.    showmessage('此病人信息不存在！')
  115.    else
  117.   begin
  118.   adoquery1.Close;
  119.   adoquery1.SQL.Clear;
  120.   adoquery1.SQL.Add('select  Patno,Pat,Chaitem,Chasum  from  shoufeidan where Patno='''+edit5.Text+'''');
  121.   adoquery1.Open;
  122.   end
  123. end
  124. else
  125.   if (Edit5.Text='') then
  126.    showmessage('请输入病人编号！')
  127. else
  128.   if (Edit6.Text='') then
  129.    showmessage('请输入病人姓名！');
  130. end;
  132. procedure TForm9.Button5Click(Sender: TObject);
  133. begin
  134. form9.Close;
  135. end;
  137. end.