untworkset.pas

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

unit untWorkSet;

interface

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

type
  Tfrmworkset = class(TfrmBaseSingle)
    smlntfldSingleiAutoID: TSmallintField;
    strngfldSingleName: TStringField;
    intgrfldSingleiType: TIntegerField;
    procedure adsSingleBeforePost(DataSet: TDataSet);
    procedure btnDelClick(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure grdSingleKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure grdSingleKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  protected
     procedure InsRecord; override;
  public
    { Public declarations }
  end;



implementation





{$R *.dfm}
procedure Tfrmworkset.InsRecord;
begin
   inherited;
end;

procedure Tfrmworkset.adsSingleBeforePost(DataSet: TDataSet);
begin
  inherited;
  if adsSingle.FieldByName('name').AsString='' then
  begin
    MsgOK('职业名称不能为空！');
    Exit;
  end;
  adsSingle['Itype']:=2;
end;

procedure Tfrmworkset.btnDelClick(Sender: TObject);
begin
  //inherited;
   if MessageBox(Application.Handle,'确实要删除该记录吗？','请问',MB_YESNO+MB_ICONQUESTION) = IDYES then
     adsSingle.Delete;
end;

procedure Tfrmworkset.btnNewClick(Sender: TObject);
begin
  inherited;
  grdSingle.SetFocus;
  grdSingle.SelectedIndex:=0;
  grdSingle.SelectedField.FocusControl;
end;

procedure Tfrmworkset.grdSingleKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
   case Key of
    VK_UP, 33:
      begin
        if (grdSingle.DataSource.DataSet.RecNo = 1) then exit;
        if  grdSingle.DataSource.DataSet.FieldByName('Name').IsNull then
            grdSingle.DataSource.DataSet.delete;
      end;
      VK_DOWN, 34:
      begin
        if (grdSingle.DataSource.DataSet.RecNo <>grdSingle.DataSource.DataSet.RecordCount) then exit;
        begin
          grdSingle.DataSource.DataSet.Append;
          grdSingle.SelectedField.FocusControl;
        end;
      end;
      46:
      begin
       if Application.MessageBox('是否删除当前明细？', '提示:',
         MB_OKCancel + MB_ICONQUESTION) = ID_OK then
         grdSingle.DataSource.DataSet.delete;
       end;
    end;
end;

procedure Tfrmworkset.grdSingleKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
  begin
    key:=#0;
    PostMessage(ActiveControl.handle,WM_KEYDOWN,vk_tab,0);
    grdSingle.SelectedIndex:=0;
    grdSingle.SelectedField.FocusControl;
  end;
end;

end.