untschool.pas

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· PAS 代码 · 共 62 行

unit untSchool;

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
  TfrmSchool = class(TfrmBaseMD)
    adsSingleiAutoID: TAutoIncField;
    adsSingleName: TStringField;
    adsDetailiAutoID: TAutoIncField;
    adsDetailSchoolID: TIntegerField;
    adsDetailClassYear: TStringField;
    adsDetailName: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure InsRecord; override;
    procedure EditRecord; override;
  public
    { Public declarations }
  end;

var
  frmSchool: TfrmSchool;

implementation

uses UntSchoolSet, untDM, untGlobalVar;

{$R *.dfm}

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

procedure TfrmSchool.FormDestroy(Sender: TObject);
begin
  inherited;
  frmSchool := nil;
end;

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

end.