untstudentset.pas

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

unit untStudentSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBaseSingleEdit, ExtCtrls, DBCtrlsEh, StdCtrls, DBCtrls, Mask,
  DB,ADODB, Buttons, jpeg,untGlobalVar, fcButton, fcImgBtn;

type
  TfrmStudentSet = class(TfrmBaseSingleEdit)
    lbl1: TLabel;
    dbedtCode: TDBEdit;
    lbl2: TLabel;
    dbedtName: TDBEdit;
    lbl3: TLabel;
    dbcbb1: TDBComboBox;
    lbl4: TLabel;
    dbdtmdth1: TDBDateTimeEditEh;
    lbl5: TLabel;
    dbedtBirthYear: TDBEdit;
    lbl6: TLabel;
    dbedtBirthMonth: TDBEdit;
    shp1: TShape;
    lbl7: TLabel;
    dbtxt1: TDBText;
    lbl8: TLabel;
    dbtxt2: TDBText;
    lbl9: TLabel;
    dbtxt3: TDBText;
    lbl10: TLabel;
    lbl11: TLabel;
    lbl12: TLabel;
    lbl13: TLabel;
    dblkcbbfatheredu: TDBLookupComboBox;
    dblkcbbmotheredu: TDBLookupComboBox;
    dblkcbbfatherwork: TDBLookupComboBox;
    dblkcbbmotherwork: TDBLookupComboBox;
    dswork: TDataSource;
    dsedu: TDataSource;
    adswork: TADODataSet;
    lbl14: TLabel;
    dbdtmdthcreatedate: TDBDateTimeEditEh;
    adsedu: TADODataSet;
    dsSingle1: TADODataSet;
    atncfldSingleiAutoID: TAutoIncField;
    strngfldSingleCode: TStringField;
    strngfldSingleName: TStringField;
    intgrfldSingleSex: TIntegerField;
    dtmfldSingleBirth: TDateTimeField;
    strngfldSingleBirthYear: TStringField;
    strngfldSingleBirthMonth: TStringField;
    intgrfldSingleClassID: TIntegerField;
    strngfldSingleClassName: TStringField;
    strngfldSingleSchoolName: TStringField;
    strngfldSingleClassYear: TStringField;
    strngfldSingleSuggest: TStringField;
    smlntfldSingleMotherwork: TSmallintField;
    smlntfldSingleMotherEdu: TSmallintField;
    dtmfldSingleCreateDate: TDateTimeField;
    smlntfldSinglefatherWork: TSmallintField;
    smlntfldSinglefatherEdu: TSmallintField;
    smlntfldSingleifloor: TSmallintField;
    lbl15: TLabel;
    dbedtifloor: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure DataSetAfterScroll(DataSet: TDataSet);
  protected
    procedure InitComponents; override;
  public
    { Public declarations }
     iClassID : Integer;
  end;

 procedure SetStudent(ADataSet: TADODataSet; AOpMode: TOperatorMode;
  AiClassID: Integer);

implementation
uses untDM;

procedure SetStudent(ADataSet: TADODataSet; AOpMode: TOperatorMode;
  AiClassID: Integer);
begin
  with TfrmStudentSet.Create(Application) do begin
    DataSet := ADataSet;
    DataSet.AfterScroll := DataSetAfterScroll;
    iClassID  := AiClassID;
    ContinueAppend:=True;
    OpMode := AOpMode;
    Caption := '学生资料';
    case OpMode of
      omNew : Caption := Caption + '—新增';
      omModi: Caption := Caption + '—编辑';
    end;
   // ContinueAppend := true;
    if ShowModal <> mrOK then
    begin
      if ADataSet.State in [dsInsert, dsEdit] then
        ADataSet.Cancel;
    end
    else begin
      if ADataSet.State in [dsEdit,dsInsert] then
      begin
         ADataSet.Post;
      end;  
    end;

    Free;
  end;
end;

{$R *.dfm}
procedure TfrmStudentSet.DataSetAfterScroll(DataSet: TDataSet);
var
  StudentID: Integer;
begin
  if DataSet.RecordCount=0 then Exit;
  if OpMode = omNew then
    StudentID := -1
  else
    StudentID := DataSet['iAutoID'];
 // LoadDetailData(StudentID);
end;

procedure TfrmStudentSet.InitComponents;
begin
  inherited;
  if OpMode = omNew then
  begin
   
  end;
  DataSetAfterScroll(DataSet);
end;

procedure TfrmStudentSet.FormCreate(Sender: TObject);
begin
  inherited;
  adswork.Active:=True;
  adsedu.Active:=True;
end;

end.