untreporttext.pas

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

unit untReportText;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBaseSingle, Menus, ImgList, DB, ADODB, ComCtrls, ToolWin,
  Grids, DBGrids, ExtCtrls, untDM, jpeg;

type
  TfrmReportText = class(TfrmBaseSingle)
    adsSingleiAutoID: TAutoIncField;
    adsSingleMeasureCode: TStringField;
    adsSingleItemCode: TStringField;
    adsSingleLvl: TIntegerField;
    adsSingleDiscript: TStringField;
    adsMeasure: TADODataSet;
    adsMeasureItem: TADODataSet;
    adsMeasurecode: TStringField;
    adsMeasurename: TStringField;
    adsMeasureItemcode: TStringField;
    adsMeasureItemName: TStringField;
    adsSingleMeasureName: TStringField;
    adsSingleItemName: TStringField;
    adsSingleMethod: TStringField;
    procedure adsSingleLvlGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure adsSingleLvlSetText(Sender: TField; const Text: String);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure InsRecord; override;
    procedure EditRecord; override;  
  public
    { Public declarations }
  end;

var
  frmReportText: TfrmReportText;

implementation

uses untReportTextAdd, untReportTextSet, untGlobalVar;

{$R *.dfm}

procedure TfrmReportText.adsSingleLvlGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if Varisnull(sender.Value) then Exit;
  case sender.Value of
    -2 : Text := '较低';
    -1 : Text := '低';
     0 : Text := '中';
     1 : Text := '高';
     2 : Text := '较高';
     5 : Text := '正常';
     6 : Text := '异常';
  end;
end;

procedure TfrmReportText.adsSingleLvlSetText(Sender: TField;
  const Text: String);
begin
  inherited;
  if Text = '较低' then Sender.Value := -2;
  if Text = '低'   then Sender.Value := -1;
  if Text = '中'   then Sender.Value := 0;
  if Text = '高'   then Sender.Value := 1;
  if Text = '较高' then Sender.Value := 2;
  if Text = '正常' then Sender.Value := 5;
  if Text = '异常' then Sender.Value := 6;
end;

procedure TfrmReportText.EditRecord;
begin
  inherited;
  with TfrmReportTextSet.Create(Application) do begin
    DataSet := adsSingle;
    OpMode := omModi;
    Caption := '报表文本-编辑';
    if ShowModal <> mrOK then
      if adsSingle.State in [dsInsert, dsEdit] then
        adsSingle.Cancel;
    Free;
  end;
end;

procedure TfrmReportText.FormDestroy(Sender: TObject);
begin
  inherited;
  frmReportText := nil;
end;

procedure TfrmReportText.InsRecord;
begin
  inherited;
  frmReportTextAdd := TfrmReportTextAdd.Create(Application);
  with frmReportTextAdd do begin
    if ShowModal=mrOK then
      adsSingle.Requery;
  end;
  FreeAndNil(frmReportTextAdd);
end;

end.