untquestiongrp.pas

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

unit untQuestionGrp;

interface

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

type
  TfrmQuestionGrp = class(TfrmBaseSingle)
    adsSinglecode: TStringField;
    adsSinglename: TStringField;
    adsSinglememo: TStringField;
    adsSingleIsUsed: TBooleanField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure InsRecord; override;
    procedure EditRecord; override;
    procedure DeleteRecord; override;  
  public
    { Public declarations }
  end;

var
  frmQuestionGrp: TfrmQuestionGrp;

implementation

uses untQuestionGrpSet, untGlobalFun;

{$R *.dfm}

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

procedure TfrmQuestionGrp.EditRecord;
begin
  inherited;
  SetQuestionGrp(adsSingle, omModi);
end;

procedure TfrmQuestionGrp.FormDestroy(Sender: TObject);
begin
  inherited;
  frmQuestionGrp := nil;
end;

procedure TfrmQuestionGrp.InsRecord;
begin
  inherited;
  SetQuestionGrp(adsSingle, omNew);
end;

end.