u_sick.pas

是一小型门诊挂号软件

unit U_sick;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, Mask,
  Buttons;

type
  TF_sick = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBNavigator2: TDBNavigator;
    DBNavigator3: TDBNavigator;
    TabSheet3: TTabSheet;
    Label4: TLabel;
    B_s: TButton;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Bevel1: TBevel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DBMemo1: TDBMemo;
    DBGrid4: TDBGrid;
    GroupBox4: TGroupBox;
    DBMemo2: TDBMemo;
    GroupBox5: TGroupBox;
    Bevel2: TBevel;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    e_id3: TEdit;
    GroupBox6: TGroupBox;
    Label5: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    Label1: TLabel;
    e_id2: TEdit;
    Bevel3: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure TabSheet1Show(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure B_Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_sick: TF_sick;
  var i:integer;//医疗证编号

implementation

uses u_datamodule;

{$R *.dfm} 

procedure TF_sick.FormShow(Sender: TObject);
begin
end;
////////////////////////////
//查询所有病人信息，打开表
/////////////////////////
procedure TF_sick.TabSheet1Show(Sender: TObject);
begin
  f_dm.T_medical_Card.Open;  //打开医疗证表
  f_dm.T_X.Open; //打开X光情况表
  f_dm.T_thing.Open;// 打开过敏药物表
end;
////////////////////////////
//查询指定病人
/////////////////////////
procedure TF_sick.B_Click(Sender: TObject);
var i:integer;
begin
  try
    i := strtoint(e_id3.Text);
  except
    i:=0;
    Application.MessageBox('输入的必须是整数！','查询失败',MB_OK);
  end;
  f_dm.Q_sick.SQL:=f_dm.Q_find.SQL;//查询
  f_dm.Q_sick.ParamByName('ID').AsInteger := i;
  f_dm.Q_sick.Open;   //不用能  ExecSQL
//  f_dm.Q_sick.ExecSQL ;
end;
////////////////////////////
//编辑指定病人
/////////////////////////
procedure TF_sick.BitBtn1Click(Sender: TObject);
begin  
  try
    i := strtoint(e_id2.Text);
  except
    i:=0;
    Application.MessageBox('输入的必须是整数！','查询失败',MB_OK);
  end;
  f_dm.Q_sick.SQL:=f_dm.Q_find.SQL;
  f_dm.Q_sick.ParamByName('ID').AsInteger := i;
  f_dm.Q_sick.open ; //不能用execsql

  Edit1.Text:=f_dm.Q_sick.FieldByName('姓名').AsString ;
  Edit2.Text:=f_dm.Q_sick.FieldByName('性别').AsString  ;
  Edit3.Text:=f_dm.Q_sick.FieldByName('年龄').AsString ;
  Edit4.Text:=f_dm.Q_sick.FieldByName('血型').AsString ;
  Edit5.Text:=f_dm.Q_sick.FieldByName('电话号码').AsString ;
  Edit6.Text:=f_dm.Q_sick.FieldByName('职业').AsString ;
  Edit7.Text:=f_dm.Q_sick.FieldByName('单位地址').AsString ;
  Memo1.Text :=f_dm.Q_sick.FieldByName('情况').AsString  ;
  Memo2.Text :=f_dm.Q_sick.FieldByName('名称').AsString ;

  f_dm.Q_sick.Close;

  GroupBox6.Visible:=true;
  GroupBox7.Visible:=true;
  GroupBox8.Visible:=true;
  
end;

procedure TF_sick.TabSheet2Show(Sender: TObject);
begin
  GroupBox6.Visible:=false;
  GroupBox7.Visible:=false;
  GroupBox8.Visible:=false ;
end;

procedure TF_sick.BitBtn2Click(Sender: TObject);
begin
  f_dm.Q_sick.SQL:=f_dm.UQ_edit.ModifySQL;
  f_dm.Q_sick.ParamByName('姓名').AsString := Edit1.Text;
  f_dm.Q_sick.ParamByName('性别').AsString := Edit2.Text;
  f_dm.Q_sick.ParamByName('年龄').AsString := Edit3.Text;
  f_dm.Q_sick.ParamByName('血型').AsString := Edit4.Text;
  f_dm.Q_sick.ParamByName('电话号码').AsString := Edit5.Text;
  f_dm.Q_sick.ParamByName('职业').AsString := Edit6.Text;
  f_dm.Q_sick.ParamByName('单位地址').AsString := Edit7.Text;
  f_dm.Q_sick.ParamByName('情况').AsString := Memo1.Text;
  f_dm.Q_sick.ParamByName('名称').AsString := Memo2.Text;
  f_dm.Q_sick.ParamByName('ID').AsInteger := i;
  f_dm.Q_sick.ExecSQL ;//不能用OPen;
  f_dm.Q_sick.Close;
end;

end.