【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“diagnose.pas”一文,供大家参考学习!
unit diagnose;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids, Buttons, DB, ADODB;
type
TdiagForm = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Label1: TLabel;
Label2: TLabel;
ComboBox2: TComboBox;
SpeedButton1: TSpeedButton;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Edit2: TEdit;
Label6: TLabel;
Label5: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
Label9: TLabel;
Memo1: TMemo;
Label10: TLabel;
Shape1: TShape;
Shape2: TShape;
Label11: TLabel;
Label12: TLabel;
DBGrid1: TDBGrid;
Shape3: TShape;
ComboBox3: TComboBox;
DBGrid2: TDBGrid;
SpeedButton2: TSpeedButton;
Label13: TLabel;
Memo2: TMemo;
Shape4: TShape;
Label14: TLabel;
Memo3: TMemo;
DBGrid3: TDBGrid;
Label15: TLabel;
ComboBox4: TComboBox;
Label16: TLabel;
ComboBox5: TComboBox;
Label17: TLabel;
Edit7: TEdit;
Bevel1: TBevel;
Bevel2: TBevel;
StaticText1: TStaticText;
Label18: TLabel;
Edit8: TEdit;
Label19: TLabel;
Label20: TLabel;
Edit9: TEdit;
Edit10: TEdit;
Label21: TLabel;
SpeedButton3: TSpeedButton;
Bevel3: TBevel;
Label22: TLabel;
DBGrid4: TDBGrid;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Label23: TLabel;
Edit11: TEdit;
Edit12: TEdit;
SpeedButton4: TSpeedButton;
Label24: TLabel;
DBGrid5: TDBGrid;
Bevel4: TBevel;
Label25: TLabel;
Bevel5: TBevel;
Label26: TLabel;
Edit13: TEdit;
Label27: TLabel;
Edit14: TEdit;
Label28: TLabel;
Edit15: TEdit;
Shape5: TShape;
Shape6: TShape;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
DBGrid6: TDBGrid;
DBGrid7: TDBGrid;
Label32: TLabel;
Label33: TLabel;
DBGrid8: TDBGrid;
Label34: TLabel;
Memo6: TMemo;
SpeedButton5: TSpeedButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label35: TLabel;
Edit16: TEdit;
Edit17: TEdit;
Bevel6: TBevel;
SpeedButton6: TSpeedButton;
Edit18: TEdit;
Label36: TLabel;
Edit19: TEdit;
Label37: TLabel;
ComboBox7: TComboBox;
ComboBox1: TComboBox;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Label38: TLabel;
SpeedButton7: TSpeedButton;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
ADOQuery3: TADOQuery;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
DataSource3: TDataSource;
ADOQuery4: TADOQuery;
ADOQuery5: TADOQuery;
ADOQuery6: TADOQuery;
DataSource4: TDataSource;
DataSource5: TDataSource;
ADOQuery7: TADOQuery;
Label39: TLabel;
Label40: TLabel;
Edit20: TEdit;
DataSource6: TDataSource;
ADOQuery8: TADOQuery;
ComboBox8: TComboBox;
ComboBox6: TComboBox;
DataSource7: TDataSource;
DataSource8: TDataSource;
ADOQuery9: TADOQuery;
ADOQuery10: TADOQuery;
ADOQuery11: TADOQuery;
DBGrid9: TDBGrid;
ADOQuery12: TADOQuery;
DataSource9: TDataSource;
procedure ComboBox1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure DBGrid8CellClick(Column: TColumn);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ComboBox5Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure DBGrid3CellClick(Column: TColumn);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure ComboBox6Change(Sender: TObject);
procedure DBGrid5CellClick(Column: TColumn);
private
{ Private declarations }
mednum:integer;
checknum:integer;
diagnum:integer;
procedure Getpatientinf;
public
{ Public declarations }
end;
var
diagForm: TdiagForm;
implementation
{$R *.dfm}
uses main;
//-------诊断窗口显示时,读入科室名称、检查项目名称、药品类别信息到ComboBox----
procedure TdiagForm.FormShow(Sender: TObject);
var
i:integer;
begin
//读入科室名称到ComboBox1
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select 名称,编号 from 科室清单';
ADOQuery1.Open;
if not ADOQuery1.Eof then
begin
ComboBox1.Clear;
ComboBox6.Clear;
ComboBox7.Clear;
ComboBox8.Clear;
for i :=0 to ADOQuery1.RecordCount - 1 do
begin
ComboBox1.AddItem(ADOQuery1.FieldByName('名称').AsString, nil);
ComboBox7.AddItem(ADOQuery1.FieldByName('编号').AsString, nil);
ComboBox6.AddItem(ADOQuery1.FieldByName('名称').AsString, nil);
ComboBox8.AddItem(ADOQuery1.FieldByName('编号').AsString, nil);
ADOQuery1.next;
end;
end;
//读入项目名称到ComboBox3
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select 项目名称 from 项目清单';
ADOQuery1.Open;
if not ADOQuery1.Eof then
begin
ComboBox3.Clear;
for i :=0 to ADOQuery1.RecordCount - 1 do
begin
ComboBox3.AddItem(ADOQuery1.FieldByName('项目名称').AsString, nil);
ADOQuery1.next;
end;
end;
//读入药品类别到ComboBox5
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select distinct 类别 from 药品明细';
ADOQuery1.Open;
if not ADOQuery1.Eof then
begin
ComboBox5.Clear;
for i :=0 to ADOQuery1.RecordCount - 1 do
begin
ComboBox5.AddItem(ADOQuery1.FieldByName('类别').AsString, nil);
ADOQuery1.next;
end;
end;
Label39.Caption:='';
end;
//---------ComboBox1:科室名称,ComboBox7对应的科室编号------------
procedure TdiagForm.ComboBox1Change(Sender: TObject);
begin
ComboBox7.ItemIndex:=ComboBox1.ItemIndex;
end;
//--------SpeedButton1:登录;退出--------------------
procedure TdiagForm.SpeedButton1Click(Sender: TObject);
begin
if Edit1.Enabled<>false then //退出状态时,Edit1不可编辑
begin
//核对登录信息,检查该医师是否值班,以及密码是否正确
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select * from 医师名单 where 编号 = '+Edit1.text+'and 个人密码 = '''+trim(Edit2.Text)+''' and 编号 in (select 医师编号 from 值班名单 where 科室编号 = '+ComboBox7.text+ 'and 类型 = ''' + ComboBox2.Text+ ''')';
ADOQuery1.Open;
if ADOQuery1.RecordCount<>0 then
begin
SpeedButton1.Caption:='退出';
Edit1.Enabled:=false;
Label4.Caption:='';
//显示医师
Edit2.Text:= ADOQuery1.FieldByName('').AsString;
PageControl1.ActivePageIndex:=0;
end
else
begin
ShowMessage('您今天不值班或密码错误');
end;
end
else
begin//退出,清除登录的信息
SpeedButton1.Caption:='登录';
Edit1.Enabled:=true;
Label4.Caption:='密码';
Edit1.Clear;
Edit2.Clear;
end;
end;
//-----------TabSheet4:候诊,显示时,提取当前的候诊信息------
procedure TdiagForm.TabSheet4Show(Sende
上一篇:
frmGetSv.frm
下一篇:
ASP小区停车管理系统(Access)(含录像)