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

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

Delphi控件源码

开发平台：

Delphi

Unit24.pas：源码内容
  1. unit Unit24;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, StdCtrls, DB, ADODB, Grids, DBGrids;
  9. type
  10.   TForm24 = class(TForm)
  11.     PageControl1: TPageControl;
  12.     TabSheet1: TTabSheet;
  13.     TabSheet2: TTabSheet;
  14.     RadioButton1: TRadioButton;
  15.     RadioButton2: TRadioButton;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     Edit1: TEdit;
  19.     Edit2: TEdit;
  20.     DataSource1: TDataSource;
  21.     DBGrid1: TDBGrid;
  22.     ADOQuery1: TADOQuery;
  23.     ADOConnection1: TADOConnection;
  24.     Button1: TButton;
  25.     Button2: TButton;
  26.     RadioButton3: TRadioButton;
  27.     RadioButton4: TRadioButton;
  28.     Label3: TLabel;
  29.     Edit3: TEdit;
  30.     Label4: TLabel;
  31.     Edit4: TEdit;
  32.     ADOQuery2: TADOQuery;
  33.     DataSource2: TDataSource;
  34.     Button3: TButton;
  35.     Button4: TButton;
  36.     DBGrid2: TDBGrid;
  37.     procedure Button1Click(Sender: TObject);
  38.     procedure RadioButton1Click(Sender: TObject);
  39.     procedure RadioButton2Click(Sender: TObject);
  40.     procedure Button2Click(Sender: TObject);
  41.     procedure Button3Click(Sender: TObject);
  42.     procedure RadioButton3Click(Sender: TObject);
  43.     procedure RadioButton4Click(Sender: TObject);
  44.     procedure Button4Click(Sender: TObject);
  45.   private
  46.     { Private declarations }
  47.   public
  48.     { Public declarations }
  49.   end;
  51. var
  52.   Form24: TForm24;
  53.   Query : TADOQuery;
  54.   aaa,bbb:Char;
  55. implementation
  57. {$R *.dfm}
  59. procedure TForm24.Button1Click(Sender: TObject);
  60. begin
  61. if (RadioButton1.Checked=true) then
  62. begin
  63.    Query := TADOQuery.Create(nil);
  64.    Query.Connection :=ADOConnection1;
  65.    Query.SQL.Add('select Patno from bingren  where Patno =:aaa');
  66.    Query.Parameters.ParamByName('aaa').Value :=edit1.Text;
  67.    Query.Open;
  68.    if Query.RecordCount =0 then  //非0表示存在，0表示不存在
  69.    showmessage('此病人信息不存在！')
  70.    else
  72.   begin
  73.   adoquery1.Close;
  74.   adoquery1.SQL.Clear;
  75.   adoquery1.SQL.Add('select  Patno,Pat,Dep,Gua  from  bingren where Patno='''+edit1.Text+'''');
  76.   adoquery1.Open;
  77.   end
  78. end
  79. else
  80. if(RadioButton2.Checked=true) then
  81. begin
  83.    Query := TADOQuery.Create(nil);
  84.    Query.Connection :=ADOConnection1;
  85.    Query.SQL.Add('select Dep from bingren  where Dep =:aaa');
  86.    Query.Parameters.ParamByName('aaa').Value :=edit2.Text;
  87.    Query.Open;
  88.    if Query.RecordCount =0 then  //非0表示存在，0表示不存在
  89.    showmessage('病人信息不存在！')
  90.    else
  92.   begin
  93.   adoquery1.Close;
  94.   adoquery1.SQL.Clear;
  95.   adoquery1.SQL.Add('select  Patno,Pat,Dep,Gua  from  bingren where Dep='''+edit2.Text+'''');
  96.   adoquery1.Open;
  97.   end
  98. end
  99. else
  100.    showmessage('请输入病人编号或科室！');
  101. end;
  103. procedure TForm24.RadioButton1Click(Sender: TObject);
  104. begin
  105. //RadioButton1.Checked:=true;
  106. //RadioButton2.Checked:=false;
  107. end;
  109. procedure TForm24.RadioButton2Click(Sender: TObject);
  110. begin
  111. //RadioButton2.Checked:=true;
  112. //RadioButton1.Checked:=false;
  113. end;
  115. procedure TForm24.Button2Click(Sender: TObject);
  116. begin
  117. form24.Close;
  118. end;
  120. procedure TForm24.Button3Click(Sender: TObject);
  121. begin
  122. if (RadioButton3.Checked=true) then
  123. begin
  124.    Query := TADOQuery.Create(nil);
  125.    Query.Connection :=ADOConnection1;
  126.    Query.SQL.Add('select Chano from shoufeidan  where Chano =:bbb');
  127.    Query.Parameters.ParamByName('bbb').Value :=edit3.Text;
  128.    Query.Open;
  129.    if Query.RecordCount =0 then  //非0表示存在，0表示不存在
  130.    showmessage('收费单信息不存在！')
  131.    else
  133.   begin
  134.   adoquery2.Close;
  135.   adoquery2.SQL.Clear;
  136.   adoquery2.SQL.Add('select  Chano,Patno,Pat,Doc,Chaitem,Chasum  from  shoufeidan where Chano='''+edit3.Text+'''');
  137.   adoquery2.Open;
  138.   end
  139. end
  140. else
  141. if(RadioButton4.Checked=true) then
  142. begin
  144.    Query := TADOQuery.Create(nil);
  145.    Query.Connection :=ADOConnection1;
  146.    Query.SQL.Add('select Patno from shoufeidan  where Patno =:bbb');
  147.    Query.Parameters.ParamByName('bbb').Value :=edit4.Text;
  148.    Query.Open;
  149.    if Query.RecordCount =0 then  //非0表示存在，0表示不存在
  150.    showmessage('病人编号不正确！')
  151.    else
  153.   begin
  154.   adoquery2.Close;
  155.   adoquery2.SQL.Clear;
  156.   adoquery2.SQL.Add('select  Chano,Patno,Pat,Doc,Chaitem,Chasum  from  shoufeidan where Patno='''+edit4.Text+'''');
  157.   adoquery2.Open;
  158.   end
  159. end
  160. else
  161.    showmessage('请输入收费单号或病人编号！');
  162. end;
  164. procedure TForm24.RadioButton3Click(Sender: TObject);
  165. begin
  166. RadioButton3.Checked:=true;
  167. RadioButton4.Checked:=false;
  168. end;
  170. procedure TForm24.RadioButton4Click(Sender: TObject);
  171. begin
  172. RadioButton4.Checked:=true;
  173. RadioButton3.Checked:=false;
  174. end;
  176. procedure TForm24.Button4Click(Sender: TObject);
  177. begin
  178. form24.Close;
  179. end;
  181. end.