qry.pas

医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家医院做的

unit qry;

interface

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

type
  Tqryfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    procedure LabeledEdit1Change(Sender: TObject);
    procedure LabeledEdit2Change(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qryfm: Tqryfm;

implementation
uses dm, mylib;
{$R *.dfm}

procedure Tqryfm.LabeledEdit1Change(Sender: TObject);
var
  php, sqltxt: string;
begin
  php := trim(LabeledEdit1.text) + '%';
  sqltxt := 'select xph from xdata where xph like ''' + php + '''';
  sqltxt := sqltxt + ' group by xph';
  openadoquery(dmfm.adoquery6, sqltxt);
  dbgrid2.Tag := 1;
//  StatusBar1.Panels[2].text:=inttostr(dmfm.adoquery6.recordcount);
end;

procedure Tqryfm.LabeledEdit2Change(Sender: TObject);
var
  spy, sqltxt: string;
begin
  spy := trim(LabeledEdit2.text) + '%';
  sqltxt := 'select xm from xdata where xmpy like ''' + spy + '''';
  sqltxt := sqltxt + ' group by xm';
  openadoquery(dmfm.adoquery6, sqltxt);
  dbgrid2.Tag := 2;
//  StatusBar1.Panels[2].text:=inttostr(dmfm.adoquery6.recordcount);
end;

procedure Tqryfm.DBGrid2CellClick(Column: TColumn);
var
  s, sqltxt: string;
begin
  if dmfm.adoquery6.Active = false then exit;
  if dmfm.adoquery6.RecordCount = 0 then exit;
  if DBGrid2.Tag = 1 then
  begin
    s := dmfm.adoquery6.FieldValues['xph'];
    sqltxt := 'select * from xdata where xph=''' + s + '''';
    openadoquery(dmfm.ADOQuery7, sqltxt);
  end;
  if DBGrid2.Tag = 2 then
  begin
    s := dmfm.adoquery6.FieldValues['xm'];
    sqltxt := 'select * from xdata where xm=''' + s + '''';
    openadoquery(dmfm.ADOQuery7, sqltxt);
  end;
  StatusBar1.Panels[2].text := inttostr(dmfm.ADOQuery7.recordcount);
end;

procedure Tqryfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dmfm.ADOQuery6.Close;
  dmfm.ADOQuery7.Close;
  Action := caFree;
end;

procedure Tqryfm.FormShow(Sender: TObject);
begin
  LabeledEdit1.SetFocus;
end;

end.