u_filmrecord2.pas

对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对于病情的发展很有价值

unit U_filmrecord2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TF_filmrecord2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    filmNumber: TEdit;
    date: TEdit;
    name: TEdit;
    age: TEdit;
    tel: TEdit;
    address: TEdit;
    casehis: TMemo;
    filminfer: TMemo;
    diagnose: TMemo;
    filmStage: TComboBox;
    Button1: TButton;
    Button2: TButton;
    sex: TComboBox;
    Button3: TButton;
    qFilmRecord: TADOQuery;
    qFilmRecordfilm_id: TAutoIncField;
    qFilmRecordfilmnumber: TWideStringField;
    qFilmRecorddate: TDateTimeField;
    qFilmRecordname: TWideStringField;
    qFilmRecordsex: TWideStringField;
    qFilmRecordage: TWideStringField;
    qFilmRecordadress: TWideStringField;
    qFilmRecordtel: TWideStringField;
    qFilmRecorddiagnose: TWideStringField;
    qFilmRecordfilmstage: TWideStringField;
    qFilmRecordfilminfer: TWideStringField;
    qFilmRecordcasehis: TWideStringField;
    qFilmRecordfilm: TMemoField;
    qFilmRecordbeiyong: TWideStringField;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_filmrecord2: TF_filmrecord2;

implementation
uses u_datamodule;

{$R *.dfm}

procedure TF_filmrecord2.Button1Click(Sender: TObject);
begin
qfilmrecord.Insert;
qfilmrecord.fieldbyname('filmnumber').asstring:=filmnumber.text;
qfilmrecord.fieldbyname('date').asstring:=date.text;
qfilmrecord.fieldbyname('filmstage').asstring:=filmstage.text;
qfilmrecord.fieldbyname('name').asstring:=name.text;
qfilmrecord.fieldbyname('sex').asstring:=sex.text;
qfilmrecord.fieldbyname('age').asstring:=age.text;
qfilmrecord.fieldbyname('tel').asstring:=tel.text;
qfilmrecord.fieldbyname('address').asstring:=address.text;
qfilmrecord.fieldbyname('casehis').asstring:=casehis.text;
qfilmrecord.fieldbyname('filminfer').asstring:=filminfer.text;
qfilmrecord.fieldbyname('diagnose').asstring:=diagnose.text;
qfilmrecord.Post;

end;

procedure TF_filmrecord2.FormShow(Sender: TObject);
begin
setImeName(self,currImeName);
end;

end.