untmeasure.pas

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

unit untMeasure;

interface

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

type
  TfrmMeasure = class(TfrmBaseMD)
    adsQuestionGrp: TADODataSet;
    adsQuestionGrpcode: TStringField;
    adsQuestionGrpname: TStringField;
    adsSinglecode: TStringField;
    adsSingleshortname: TStringField;
    adsSinglename: TStringField;
    adsSingleQuestionGrp: TStringField;
    adsSingleIsUsed: TBooleanField;
    adsSingleGrpName: TStringField;
    adsDetailcode: TStringField;
    adsDetailMeasurecode: TStringField;
    adsDetailName: TStringField;
    adsDetailneedFormula: TBooleanField;
    adsDetailFormula: TStringField;
    adsDetailContent: TStringField;
    adsSingleTypeID: TSmallintField;
    procedure adsDetailneedFormulaGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure FormDestroy(Sender: TObject);
    procedure adsSingleTypeIDGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  protected
    procedure InsRecord; override;
    procedure EditRecord; override;
    procedure DeleteRecord; override;
  public
    { Public declarations }
    procedure LoadData; override;
  end;

var
  frmMeasure: TfrmMeasure;

implementation

uses untGlobalFun, untGlobalVar, untMeaSureSet;

{$R *.dfm}

{ TfrmMeasure }
const
  XLText='心理卫生';
  QZText='气质';
  XWtext='行为';
  GJText='感觉综合功能';

procedure TfrmMeasure.DeleteRecord;
begin
  inherited;
  with adsSingle do begin
    if not (State in [dsInsert, dsEdit]) then Edit;
    FieldByName('IsUsed').Value := False;
    Post;
  end;
end;

procedure TfrmMeasure.EditRecord;
begin
  inherited;
  if SetMeasure(adsSingle, omModi) then
    adsDetail.Requery()
  else if adsSingle.State in [dsInsert, dsEdit] then
    adsSingle.Cancel;
end;

procedure TfrmMeasure.InsRecord;
begin
  inherited;
  if SetMeasure(adsSingle, omNew) then
    adsDetail.Requery()
  else if adsSingle.State in [dsInsert, dsEdit] then
    adsSingle.Cancel;
end;

procedure TfrmMeasure.LoadData;
begin
  with adsQuestionGrp do begin
    if Active then Active := false;
    Active := true;
  end;
  inherited;
end;

procedure TfrmMeasure.adsDetailneedFormulaGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if Sender.IsNull then Exit;
  if Sender.Value then Text := '是'
  else  Text := '否';
end;

procedure TfrmMeasure.FormDestroy(Sender: TObject);
begin
  inherited;
  frmMeasure := nil;
end;

procedure TfrmMeasure.adsSingleTypeIDGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if Sender.Value=1 then text:=XLText
  else if Sender.Value=2 then text:=QZText
       else if Sender.Value=3 then text:=XWtext
            else if Sender.Value=4 then text:=GJText;
end;

end.