untjudgestd.pas

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

unit untJudgeStd;

interface

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

type
  TfrmJudgeStd = class(TfrmBaseMD)
    adsMeasure: TADODataSet;
    adsMeasurecode: TStringField;
    adsMeasurename: TStringField;
    adsSingleiAutoID: TAutoIncField;
    adsSingleName: TStringField;
    adsSingleiType: TIntegerField;
    adsDetailiAutoID: TAutoIncField;
    adsDetailJSID: TIntegerField;
    adsDetailMeasureCode: TStringField;
    adsDetailItemCode: TStringField;
    adsDetailSex: TIntegerField;
    adsDetailAvgValue: TBCDField;
    adsDetailSDValue: TBCDField;
    adsMeasureItem: TADODataSet;
    adsMeasureItemcode: TStringField;
    adsMeasureItemName: TStringField;
    adsDetailItemName: TStringField;
    adsSingleMeasureCode: TStringField;
    adsSingleMeasureName: TStringField;
    procedure FormDestroy(Sender: TObject);
    procedure adsSingleiTypeGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure adsSingleiTypeSetText(Sender: TField; const Text: String);
    procedure adsSingleAfterScroll(DataSet: TDataSet);
    procedure adsDetailSexGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure adsSingleNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  protected
    procedure InsRecord; override;
    procedure EditRecord; override;
    procedure BeforeDelete(var AllowDel: Boolean); override; 
  public
    { Public declarations }
    procedure LoadData; override;
  end;

var
  frmJudgeStd: TfrmJudgeStd;

implementation

uses untGlobalFun, untJudgeStdSet, untGlobalVar, untDM;

{$R *.dfm}

{ TfrmQuestions }

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

procedure TfrmJudgeStd.FormDestroy(Sender: TObject);
begin
  inherited;
  frmJudgeStd := nil;
end;

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

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

procedure TfrmJudgeStd.BeforeDelete(var AllowDel: Boolean);
begin
  inherited;
  ExecDBCommand(Conn,
                'delete from tJudgeStd where JSID='
                +adsSingle.fieldbyname('iAutoID').AsString);
end;

procedure TfrmJudgeStd.adsSingleiTypeGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if VarIsNull(Sender.Value) then exit;
  case Sender.Value of
    0: Text := '5层类型';
    1: Text := '上限类型';
    2: Text := '3层类型';
  end;
end;

procedure TfrmJudgeStd.adsSingleiTypeSetText(Sender: TField;
  const Text: String);
begin
  inherited;
  if Text = '5层类型' then Sender.Value := 0
  else if  Text = '3层类型' then Sender.Value := 2
  else Sender.Value := 1;
end;

procedure TfrmJudgeStd.adsSingleAfterScroll(DataSet: TDataSet);
begin
  inherited;
  if (not DataSet.Active) or DataSet.IsEmpty then Exit;
  adsDetailSDValue.Visible := DataSet['iType'] = 0;
 { adsDetailAgeBegin.Visible := DataSet['iType'] = 0;
  adsDetailAgeEnd.Visible := DataSet['iType'] = 0; }
  if DataSet['iType'] = 0 then
    adsDetail.FieldByName('AvgValue').DisplayLabel := '均值'
  else
    adsDetail.FieldByName('AvgValue').DisplayLabel := '上限';
end;

procedure TfrmJudgeStd.adsDetailSexGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if VarIsNull(Sender.Value) then Exit;
  case sender.Value of
    0: Text := '男';
    1: Text := '女';
  end;
end;

procedure TfrmJudgeStd.adsSingleNewRecord(DataSet: TDataSet);
begin
  inherited;
  DataSet['iType'] := 0;
end;

end.