frm_studentinfo.pas

是一个用delphi设计的考勤系统

      begin
         SqlStr := Sqlstr + ' where (yhxm like ''' + trim(Edtyhxm.text) + ''')';
         inc(irec);
      end
      else begin
         SqlStr := Sqlstr + ' and (yhxm like ''' + trim(Edtyhxm.text) + ''')';
         inc(irec);
      end;
   end;
   if (length(trim(Edtyhzh.Text)) > 0) then
   begin
      if irec < 1 then
      begin
         SqlStr := Sqlstr + ' where (cardsn like ''' + trim(Edtyhzh.text) + ''')';
         inc(irec);
      end
      else begin
         SqlStr := Sqlstr + ' and (cardsn like ''' + trim(Edtyhzh.text) + ''')';
         inc(irec);
      end;
   end;
   if (length(trim(Edtsfzh.Text)) > 0) then
   begin
      if irec < 1 then
      begin
         SqlStr := Sqlstr + ' where (sfzh like ''' + trim(Edtsfzh.text) + ''')';
         inc(irec);
      end
      else begin
         SqlStr := Sqlstr + ' and (sfzh like ''' + trim(Edtsfzh.text) + ''')';
         inc(irec);
      end;
   end;
   if irec = 0 then
   begin
      statusbar1.Panels[1].Text := '请输入查询条件,只能根据用户编号、用户姓名、身份证号进行查找！';
      exit;
   end;
   with Adoqry do
   begin
      sql.Clear;
      sql.Add(sqlstr);
      open;
   end;
   if Adoqry.RecordCount > 0 then
   begin
      SetEditValue;
      Edtyhbh.SetFocus;
      edtyhbh.SelectAll;
      statusbar1.Panels[1].Text := '查找到' + inttostr(Adoqry.RecordCount) + '笔符合条件的记录！';
      statusbar1.Panels[2].Text := 'Modify'
   end
   else begin
      InitValue;
      statusbar1.Panels[1].Text := '无符合条件的用户信息！';
   end;

end;

procedure TStudentInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   inherited;
   Action := Cafree;
end;

procedure TStudentInfo.FormDestroy(Sender: TObject);
begin
   inherited;
   StudentInfo := nil;
end;

procedure TStudentInfo.FormShow(Sender: TObject);
begin
   inherited;
   InitValue;
end;

procedure TStudentInfo.Tv_YzListClick(Sender: TObject);
var
   TempNode: TTreeNode;
begin
   inherited;

   if Tv_YzList.Selected = nil then exit;
   TempNode := Tv_YzList.Selected;
   if TempNode.Level = 1 then
   begin
      GetOwnerInfo;
      Edtszbj.Text := TempNode.Text;
   end;
   edtyhbh.SetFocus;
end;

procedure TStudentInfo.GetOwnerInfo;
var
   Tempstr: string;
   Sqlstr: string;
begin
   try
      m_NodeValue := ptTreeNode(TV_yzlist.selected.data)^.NodeValue;
      if copy(m_NodeValue, 1, 1) = 'd' then
      begin
         p_bjbh := copy(m_NodeValue, 2, length(m_NodeValue) - 1);
         InitValue;
      end;
   except
   end;
   if AdoQry.RecordCount > 0 then
   begin
      Statusbar1.Panels[1].Text := '当前总记录数:' + inttostr(AdoQry.RecordCount);
      statusbar1.Panels[2].Text := 'Modify';
   end
   else begin
      Statusbar1.Panels[1].Text := '无符合条件的记录';
      statusbar1.Panels[2].Text := 'Insert';
   end;

end;

procedure TStudentInfo.CbxbKeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   key := #0;
end;

procedure TStudentInfo.cbszbjKeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   key := #0;
end;

procedure TStudentInfo.EdtsfzhKeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   if not (key in ['0'..'9', #8, #13]) then key := #0;
end;

procedure TStudentInfo.RbtplgxClick(Sender: TObject);
begin
   inherited;
   if rbtplgx.Checked then
   begin
      edtyhbh.ReadOnly := true;
      edtyhxm.ReadOnly := true;
      cbxb.Enabled := false;
      edtsfzh.ReadOnly := true;
      Edtszbj.SetFocus;
      Edtszbj.SelectAll;
   end;

end;

procedure TStudentInfo.FormCreate(Sender: TObject);
begin
   inherited;
   LoadOrganTree(WindData.AdoConn, Tv_YzList, 4);
end;

procedure TStudentInfo.edtyhbhKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
   Sqlstr: string;
begin
   inherited;
   if key = 13 then
   begin
      if Edtyhbh.Text = '' then
      begin
         statusbar1.Panels[1].Text := '用户编号不可为空值，请输入！';
         exit;
      end;
      if copy(edtyhbh.Text, 1, 1) = '0' then
      begin
         statusbar1.Panels[1].Text := '用户编号第一位不可为0，请输入！';
         exit;
      end;
      SqlStr := 'select * from vzx_s_yhxx  where yhbh like ''' + trim(edtyhbh.text) + '''';
      with Adoqry do
      begin
         sql.Clear;
         sql.Add(sqlstr);
         open;
      end;
      if Adoqry.RecordCount > 0 then
      begin
         SetEditValue;
         statusbar1.Panels[1].Text := '查找到' + inttostr(Adoqry.RecordCount) + '笔符合条件的记录！';
         statusbar1.Panels[2].Text := 'Modify'
      end;
      Edtyhbh.SetFocus;
      edtyhbh.SelectAll;
   end;
end;

procedure TStudentInfo.RbtdbclClick(Sender: TObject);
begin
   inherited;
   if Rbtdbcl.Checked then
   begin
      edtyhbh.ReadOnly := false;
      edtyhxm.ReadOnly := false;
      cbxb.Enabled := true;
      edtsfzh.ReadOnly := false;
      Edtyhbh.SetFocus;
      edtyhbh.SelectAll;
   end;
end;

procedure TStudentInfo.BtnFirstClick(Sender: TObject);
begin
   inherited;
   Adoqry.First;
   SetEditValue;
end;

procedure TStudentInfo.BtnPrevClick(Sender: TObject);
begin
   inherited;
   Adoqry.Prior;
   SetEditValue;
end;

procedure TStudentInfo.BtnNextClick(Sender: TObject);
begin
   inherited;
   Adoqry.Next;
   SetEditValue;
end;

procedure TStudentInfo.BtnLastClick(Sender: TObject);
begin
   inherited;
   Adoqry.Last;
   SetEditValue;
end;

procedure TStudentInfo.BtnBrowseClick(Sender: TObject);
begin
   inherited;
   if not assigned(SlectClass) then
      SlectClass := TSlectClass.Create(Application);
   slectclass.SelFlag := 'BJXZ';
   SlectClass.Show;

end;

procedure TStudentInfo.EdtszbjClick(Sender: TObject);
begin
   inherited;
   statusbar1.Panels[1].Text := '请按编辑框右边的按钮进行班部门选择！';
end;

procedure TStudentInfo.EdtszbjKeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   statusbar1.Panels[1].Text := '请按编辑框右边的按钮进行部门选择！';
end;

procedure TStudentInfo.DBGrid1CellClick(Column: TColumn);
begin
   inherited;
   SetEditValue;
end;

procedure TStudentInfo.FormActivate(Sender: TObject);
begin
   inherited;
   if length(GsTempstr2) > 0 then
   begin
      Edtszbj.Text := GsTempstr2;
      p_bjbh := GsTempStr1;
   end;
end;

procedure TStudentInfo.edtyhbhKeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   if key = char(vk_back) then exit;
   if (key <> #13) and (not (key in ['0'..'9'])) then
      key := #0;
end;

end.