psyrecord.pas

简易的患者监护系统

unit psyrecord;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ToolWin, ComCtrls, Grids, DBGrids, jpeg, ExtCtrls,
  StdCtrls, Buttons;

type
  TForm13 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SaveDialog1: TSaveDialog;
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

    procedure DbgridToTxt(source:Tobject);//自定义函数
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation

uses KittyHawkPMS, psinformation, information;

{$R *.dfm}

procedure TForm13.DBGrid1TitleClick(Column: TColumn);
begin
if ADOQuery1.Sort<>(Column.FieldName+' ASC') then
begin
ADOQuery1.Sort :=Column.FieldName+' ASC';
end
else
begin
ADOQuery1.Sort :=Column.FieldName+' DESC';
end;
end;

procedure TForm13.BitBtn1Click(Sender: TObject);
begin
if ADOQuery1.Sort<>('异常标记'+' DESC') then
begin
ADOQuery1.Sort:='异常标记'+' DESC';
end
else
begin
ADOQuery1.Sort:='异常标记'+' ASC';
end;
end;

procedure TForm13.BitBtn2Click(Sender: TObject);
begin
if(ADOQuery1.IsEmpty)then
  begin
  showmessage('无病情资料！');
  BitBtn1.Enabled:=false;

  end
  else
  begin
    BitBtn1.Enabled:=true;
  DbgridToTxt(dbgrid1);
end;
end;

 procedure Tform13.DbgridToTxt(source:Tobject);
var
   filename:Textfile;
   Dataset:Tdataset;
   titlestr,valuestr,tempstr:string;
   counter:integer;

   begin
if(source is Tdbgrid)then
 Dataset:=Tdbgrid(source).DataSource.DataSet
  else
     Dataset:=TDataset(source);
 if((Dataset.IsEmpty)or(not Dataset.Active))then
 exit else
 begin
    Dataset.DisableControls;
    Dataset.First;
    if savedialog1.Execute then
    begin
       assignfile(filename,savedialog1.FileName);
       rewrite(filename);
       for counter:=0 to Dataset.FieldCount-1 do
       titlestr:=titlestr+char(9)+Dataset.Fields[counter].DisplayLabel;
       titlestr:=trim(titlestr);
       while not Dataset.Eof do

       begin
          valuestr:='';
          for counter:=0 to Dataset.FieldCount-1 do
          begin
          tempstr:=Dataset.Fields[counter].Text;
          valuestr:=valuestr+char(9)+tempstr;
          end;
          valuestr:=trim(valuestr);
          writeln(filename,valuestr);
          Dataset.Next;
          end;
          closefile(filename);
          end;
          Dataset.EnableControls;
          end;


 end;

end.