untstudentresult.pas

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

unit untStudentResult;

interface

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

type
  TfrmStudentresult = class(TfrmBaseSingleEdit)
    pnlTop: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit5: TDBEdit;
    DBGridEh1: TDBGridEh;
    btnPiror: TBitBtn;
    btnNext: TBitBtn;
    dsClass: TDataSource;
    adsClass: TADODataSet;
    adsClassiAutoID: TAutoIncField;
    adsClassName: TStringField;
    Shape1: TShape;
    adsClassSchoolID: TIntegerField;
    adsClassClassYear: TStringField;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    Label8: TLabel;
    DBEdit3: TDBEdit;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    adsCheckResult: TADODataSet;
    adsCheckResultiAutoID: TAutoIncField;
    adsCheckResultChildrenID: TIntegerField;
    adsCheckResultMeasureCode: TStringField;
    dsCheckResult: TDataSource;
    adsMeasure: TADODataSet;
    adsMeasurecode: TStringField;
    adsMeasurename: TStringField;
    adsCheckResultMeasureName: TStringField;
    grdItem: TDBGridEh;
    adsResultItem: TADODataSet;
    dsResultItem: TDataSource;
    adsResultItemiAutoID: TAutoIncField;
    adsResultItemCheckResultID: TIntegerField;
    adsResultItemItemCode: TStringField;
    adsResultItemItemValue: TStringField;
    adsMeasureItem: TADODataSet;
    adsResultItemItemName: TStringField;
    DBGrid2: TDBGrid;
    adsXL: TADODataSet;
    adsQZ: TADODataSet;
    adsXW: TADODataSet;
    dsXL: TDataSource;
    dsQZ: TDataSource;
    dsXW: TDataSource;
    adsQZiAutoID: TAutoIncField;
    adsQZChildrenID: TIntegerField;
    adsQZItemCode: TStringField;
    adsQZsResult: TStringField;
    adsQZItemName: TStringField;
    adsXWiAutoID: TAutoIncField;
    adsXWChildrenID: TIntegerField;
    adsXWItemCode: TStringField;
    adsXWNormalValue: TStringField;
    adsXWCalcValue: TStringField;
    adsXWFlagText: TStringField;
    adsXWItemName: TStringField;
    adsSuggestWord: TADODataSet;
    dsSuggestWord: TDataSource;
    adsSuggestWordiAutoID: TAutoIncField;
    adsSuggestWordWord: TStringField;
    adsQZsSuggest: TStringField;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet4: TTabSheet;
    atncfldXLiAutoID: TAutoIncField;
    intgrfldXLChildrenID: TIntegerField;
    strngfldXLsResult: TStringField;
    strngfldXLsSuggest: TStringField;
    dbgrdhSchool1: TDBGridEh;
    lblXLText: TLabel;
    adsXWsSuggest: TStringField;
    TabSheet5: TTabSheet;
    ADSGJ: TADODataSet;
    DSGJ: TDataSource;
    atncfldADSGJiAutoID: TAutoIncField;
    intgrfldADSGJChildrenID: TIntegerField;
    strngfldADSGJItemCode: TStringField;
    strngfldADSGJsResult: TStringField;
    ADSGJItemName: TStringField;
    DBGrid3: TDBGrid;
    procedure btnPirorClick(Sender: TObject);
    procedure btnNextClick(Sender: TObject);
   // procedure DBLookupListBox1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure adsXWFlagTextGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
    procedure LoadDetailData(StudentID: Integer);           //加载资料
    procedure DataSetAfterScroll(DataSet: TDataSet);
  protected
    procedure InitComponents; override;
  public
    { Public declarations }
    iClassID : Integer;
    procedure InitFormControls;
  end;

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

implementation

uses untDM, untGlobalFun;

procedure SetStudentResult(ADataSet: TADODataSet; AOpMode: TOperatorMode;
  AiClassID: Integer);
begin
  with TfrmStudentresult.Create(Application) do begin
    DataSet := ADataSet;
    DataSet.AfterScroll := DataSetAfterScroll;
    iClassID  := AiClassID;
    OpMode := AOpMode;
    Caption := '学生资料';
    lblXLText.Caption:=XLPre;
    InitFormControls;
    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 adsXL.State in [dsEdit,dsInsert] then
      begin
        adsXL.FieldByName('ChildrenID').AsInteger := dsSingle.DataSet.fieldbyname('iAutoID').AsInteger;
        adsXL.Post;
      end;
      if adsQZ.State in [dsEdit,dsInsert] then
      begin
        adsQZ.FieldByName('ChildrenID').AsInteger := dsSingle.DataSet.fieldbyname('iAutoID').AsInteger;
        adsQZ.Post;
      end;
      if adsXW.State in [dsEdit,dsInsert] then
      begin
        adsXW.FieldByName('ChildrenID').AsInteger := dsSingle.DataSet.fieldbyname('iAutoID').AsInteger;
        adsXW.Post;
      end;
    end;    
    DataSet.AfterScroll := nil;
    Free;
  end;
end;

{$R *.dfm}

{ TfrmStudentSet }

procedure TfrmStudentresult.InitComponents;
begin
  inherited;
  if OpMode = omNew then begin
    DataSet['ClassID']  := iClassID;
  end;

  DataSetAfterScroll(DataSet);
end;

procedure TfrmStudentresult.btnPirorClick(Sender: TObject);
begin
  inherited;
  if not DataSet.Bof then DataSet.Prior;
  TBitBtn(Sender).Enabled := DataSet.Bof;
  btnNext.Enabled := True;
end;

procedure TfrmStudentresult.btnNextClick(Sender: TObject);
begin
  inherited;
  if not DataSet.Eof then DataSet.Next;
  TBitBtn(Sender).Enabled := DataSet.Eof;
  btnPiror.Enabled := true;
end;

procedure TfrmStudentresult.LoadDetailData(StudentID: Integer);
begin
  with adsCheckResult do begin
    if Active then Active := false;
    Active := true;
    if Filtered then Filtered := false;
    Filter := 'ChildrenID = '+IntToStr(StudentID);
    Filtered := true;
  end;
  with adsResultItem do begin
    if Active then Active := false;
    Active := true;
  end;
  with adsXL do begin
    if not Active then Active := True;
    if Filtered then Filtered := false;
    Filter := 'ChildrenID = '+IntToStr(StudentID);
    Filtered := true;
  end;
  with adsQZ do begin
    if not Active then Active := True;
    if Filtered then Filtered := false;
    Filter := 'ChildrenID = '+IntToStr(StudentID);
    Filtered := true;
  end;
  with adsXW do begin
    if not Active then Active := True;
    if Filtered then Filtered := false;
    Filter := 'ChildrenID = '+IntToStr(StudentID);
    Filtered := true;
  end;
  with ADSGJ do begin
    if not Active then Active := True;
    if Filtered then Filtered := false;
    Filter := 'ChildrenID = '+IntToStr(StudentID);
    Filtered := true;
  end;
end;

procedure TfrmStudentresult.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 TfrmStudentresult.InitFormControls;
begin
  btnPiror.Visible := (OpMode = omBrowse) and (not DataSet.IsEmpty);
  btnNext.Visible := (OpMode = omBrowse) and (not DataSet.IsEmpty);
  with adsSuggestWord do begin
    if not Active then Active := True;
  end;
end;

{procedure TfrmStudentresult.DBLookupListBox1DblClick(Sender: TObject);
begin
  inherited;
  if not (OpMode in [omNew, omModi]) then Exit;
  DBMemo1.SelText := DBLookupListBox1.SelectedItem;
  dsSingle.DataSet.FieldByName('suggest').Value := DBMemo1.Text;
end; }

procedure TfrmStudentresult.FormCreate(Sender: TObject);
begin
  inherited;
  PageControl1.ActivePageIndex := 0;
end;

procedure TfrmStudentresult.adsXWFlagTextGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
   if Varisnull(sender.Value) then Exit;
  if  sender.Value='*'  then Text := '异常'
  else   Text := '正常';
end;

end.