u_registerbill.~pas

来自「是一小型门诊挂号软件」· ~PAS 代码 · 共 56 行

unit U_registerbill;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls;

type
  TF_registerBill = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_registerBill: TF_registerBill;

implementation

uses u_datamodule,u_register;

{$R *.dfm}

procedure TF_registerBill.FormShow(Sender: TObject);
begin
  with f_dm.q do
  begin
    SQL.Clear;
    SQL.Add('select m.姓名 as mn,c.名称 as cn,t.名称 as tn from registers r,'+
    ' medical_card m,clinic c, register_type t '+
    ' where r.医疗证ID=m.ID and r.科室=c.ID and r.挂号类别=t.ID and r.id=:id');
    ParamByName('id').AsInteger:=registerID;
    Open;
    Edit1.text:= inttostr( registerID);//挂号单编号
    Edit2.text:= fieldbyname('mn').AsString ;//姓名
    Edit3.text:= fieldbyname('cn').AsString ; // 科室名称
    Edit4.text:= fieldbyname('tn').AsString ; //挂号类别
    Close;
  end;
end;

end.