untselectrecord.pas

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

unit untSelectRecord;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBaseDialog, StdCtrls, Buttons, ExtCtrls, jpeg, DB, Grids,
  DBGrids, ADODB, DBGridEh, fcButton, fcImgBtn;

type
  TfrmSelectRecord = class(TfrmBaseDialog)
    dsSchool: TDataSource;
    adsSchool: TADODataSet;
    atncfldSchooliAutoID: TAutoIncField;
    strngfldSchoolName: TStringField;
    dsClass: TDataSource;
    adsClass: TADODataSet;
    atncfldClassiAutoID: TAutoIncField;
    strngfldClassName: TStringField;
    intgrfldClassSchoolID: TIntegerField;
    strngfldClassClassYear: TStringField;
    pnlLeftHand: TPanel;
    Splitter1: TSplitter;
    GroupBox1: TGroupBox;
    DBGridEh2: TDBGridEh;
    GroupBox2: TGroupBox;
    DBGridEh3: TDBGridEh;
    dsSingle: TDataSource;
    adsSingle: 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;
    DBGridEh1: TDBGridEh;
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure adsClassAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
    procedure loaddata;
  public
    { Public declarations }
  end;

function SelectRecord: integer;

implementation

uses untGlobalFun, untMessage;


function SelectRecord: integer;
begin
  with TfrmSelectRecord.Create(Application) do
  begin
    try
      if ShowModal = mrOk then
        Result:=adsSingle.fieldbyname('iAutoID').AsInteger
      else
        Result:=-1;
    finally
       Free;
    end;
  end;
end;

{$R *.dfm}
procedure TfrmSelectRecord.LoadData;
begin
  frmMessage := TfrmMessage.Create(Application);
  frmMessage.lblMessage.Caption := '正在加载数据，请稍侯...';
  frmMessage.Show;
  Application.ProcessMessages;

  with adsClass do begin
    AfterScroll := nil;
    if Active then Active := false;
    Active := true;
    AfterScroll := adsClassAfterScroll;
  end;
  with adsschool do begin
    if Active then Active := false;
    Active := true;
  end;
  adsSchool.First;
  frmMessage.Free;
end;

procedure TfrmSelectRecord.btnOKClick(Sender: TObject);
begin
  inherited;
  if not adsSingle.IsEmpty then
     ModalResult := mrOk
  else
     ModalResult:=mrCancel;
end;

procedure TfrmSelectRecord.FormCreate(Sender: TObject);
begin
  inherited;
  LoadData;
end;

procedure TfrmSelectRecord.adsClassAfterScroll(DataSet: TDataSet);
begin
  inherited;
   if not adsSingle.Active then
          adsSingle.Active:=True;
  if not DataSet.IsEmpty then begin
    with adsSingle do begin
      if Filtered then Filtered := false;
      Filter := 'ClassID='+DataSet.fieldByName('iAutoID').AsString;
      Filtered := true;
    end;
  end;
end;

end.