delphi医嘱管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译]

bsp; str,s:string;
begin
   s:='';//S变量用于生成查询的条件，即用and连接的各个查询条件
   if e_name.Text<>'' then
       s:='病人姓名 like '''+'%'+e_name.text+'%'+'''';
       //若“姓名”文本框中有内容，则将“病人姓名 like 文本框中内容”连接到S中
   if (s<>'') and (e_s.Text<>'') then
       s:=s+' and 科别 like '''+'%'+e_s.text+'%'+''''
   //若S变量和“科别”文本框均不为空，则将“and 科别 like 文本框中内容”连接到S中
   else if e_s.text<>'' then
       s:=' 科别 like '''+'%'+e_s.Text+'%'+'''';
   //若S变量为空，“科别”文本框非空，则将“科别 like 文本框中内容”连接到S中
   if (s<>'') and (e_pnum.Text<>'') then
       s:=s+' and 住院号 like '''+'%'+e_pnum.text+'%'+''''
   // 若S变量和“住院号”文本框均不为空，则将“and 住院号 like 文本框中内容”连接到S中
   else if e_pnum.text<>'' then
       s:=' 住院号 like '''+'%'+e_pnum.Text+'%'+'''';
   //若S变量为空，“住院号”文本框非空，则将“住院号 like 文本框中内容”连接到S中
   if (s<>'') and (e_num.Text<>'') then
       s:=s+' and 身份证 like '''+'%'+e_num.text+'%'+''''
   // 若S变量和“身份证”文本框均不为空，则将“and 身份证 like 文本框中内容”连接到S中
   else if e_num.text<>'' then
       s:=' 身份证 like '''+'%'+e_num.Text+'%'+'''';
   //若S变量为空，“身份证”文本框非空，则将“身份证 like 文本框中内容”连接到S中
   adoquery1.close;
   adoquery1.sql.clear;
   //生成SQL查询语句，并添加到adoquery1组件的SQL特性中
   str:='select * from patient where '+s;
   adoquery1.sql.add(str);
   //打开指定的数据表patient，执行SQL查询语名
   adoquery1.Open;
end;

end.

医嘱校对界面设计与代码设计

代码设计:
unit yzjh;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, DB, ADODB, Grids, DBGrids;

type
Tfrm_yzjh = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
    StatusBar1: TStatusBar;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
frm_yzjh: Tfrm_yzjh;
s:string;
str1,str2:string;

implementation

{$R *.dfm}
uses dbm;

procedure Tfrm_yzjh.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
    0:
    begin
    adoquery1.Close;
&nb

首页上一页 5 6 7 8 9 10 11 下一页尾页 8/11/11

delphi医嘱管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](八)