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

delphi医嘱管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](九) sp;   adoquery1.SQL.Clear;
    s:='select *  from cqyz';
    adoquery1.sql.add(s);
    adoquery1.Active:=true;
    end;
    1:
    begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    s:='select *  from lsyz';
    adoquery1.sql.add(s);
    adoquery1.Active:=true;
    end;
  end;
  str1:=s;
end;

procedure Tfrm_yzjh.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_yzjh.RadioGroup2Click(Sender: TObject);
begin
    case radiogroup2.ItemIndex of
    0:
    begin
    s:=str1;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    s:=s+' where 已否校核="已"';
    adoquery1.sql.add(s);
    adoquery1.Open;
    end;
    1:
    begin
    s:=str1;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    s:=s+' where 已否校核="否"';
    adoquery1.sql.add(s);
    adoquery1.Open;
    end;
  end;
  str2:=str1;
end;

procedure Tfrm_yzjh.RadioGroup3Click(Sender: TObject);
begin
    case radiogroup2.ItemIndex of
    0:
    begin
    s:=str2;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    s:=s+' order by 住院号 asc';
    adoquery1.sql.add(s);
    adoquery1.Open;
    end;
    1:
    begin
    s:=str2;
    adoquery1.Close;
    adoquery1.SQL.Clear;
    s:=s+' order by 住院号 desc';
    adoquery1.sql.add(s);
    adoquery1.Open;
    end;
  end;
end;
procedure Tfrm_yzjh.Button1Click(Sender: TObject);
begin
    if adoquery1.FieldByName('已否校核').AsString='已' then
       showmessage('该医嘱已校核!')
    else
    begin
    adoquery1.Edit;
    adoquery1.FieldByName('已否校核').AsString:='已';
    adoquery1.Post;
    end;
end;

end.

主界面与代码设计

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, StdCtrls, LabelButton, ComCtrls, jpeg;

type
  Tfrm_maind = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
   

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

delphi医嘱管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](九)由毕业论文网（www.huoyuandh.com）会员上传。