xs_selectbr.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

unit xs_selectbr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, dxExEdtr, dxDBTLCl, dxGrClms, dxDBCtrl, dxDBGrid,
  dxTL, dxCntner, DB, ADODB, StdCtrls;

type
  Tfxs_selectbr = class(Tfbaseform)
    ADOselect: TADOQuery;
    DataSource: TDataSource;
    ADOselectid: TAutoIncField;
    ADOselectFcode: TWideStringField;
    ADOselectDr_name: TWideStringField;
    ADOselectDr_age: TIntegerField;
    ADOselectDr_sex: TWideStringField;
    ADOselectDr_born: TDateTimeField;
    ADOselectDr_adds: TWideStringField;
    ADOselectDr_tel: TWideStringField;
    ADOselectDr_self: TWideStringField;
    ADOselectDr_gm: TWideStringField;
    ADOselectDr_jz: TWideStringField;
    ADOselectDr_gr: TWideStringField;
    ADOselectDr_jw: TWideStringField;
    ADOselectDr_xb: TWideStringField;
    ADOselectDr_result: TWideStringField;
    ADOselectDr_transact: TWideStringField;
    ADOselectDr_worker: TWideStringField;
    ADOselectFdate: TDateTimeField;
    ADOselectfmem: TWideStringField;
    ADOselectfSort: TWideStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Fcode: TdxDBGridColumn;
    dxDBGrid1Dr_name: TdxDBGridColumn;
    dxDBGrid1Dr_age: TdxDBGridMaskColumn;
    dxDBGrid1Dr_sex: TdxDBGridColumn;
    dxDBGrid1Dr_born: TdxDBGridDateColumn;
    dxDBGrid1Dr_adds: TdxDBGridColumn;
    dxDBGrid1Dr_tel: TdxDBGridColumn;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fxs_selectbr: Tfxs_selectbr;

implementation

uses dataform, Xs_re;

{$R *.dfm}

procedure Tfxs_selectbr.Button2Click(Sender: TObject);
begin
  inherited;//添加病人
  
ADOselect.Close;
ADOselect.SQL.Clear;
ADOselect.SQL.Add('select * from hi_draw where (fcode like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+ ' ) or (dr_name like '+''''+'%'+Trim(Edit1.Text)+'%'+''''+')');
ADOselect.Open;
if ADOselect.RecordCount=0 then
   MessageBox(0, '无此人病历，请添加病历！', '提示', MB_OK + MB_ICONQUESTION +
     MB_TOPMOST);

end;

procedure Tfxs_selectbr.Button1Click(Sender: TObject);
begin
  inherited;
fXs_re.Qmaster.FieldByName('op_code').Value:=ADOselect['fcode'];
fXs_re.Qmaster.FieldByName('op_name').Value:=ADOselect['Dr_name'];
fxs_selectbr.Close;
end;

end.