ufunc.pas

用于计算机专业程序设计 大家可以共同的分享. 如果喜欢请收藏

procedure Tdep.delete; //删除部门记录
var
   query: tquery;
begin
   if application.MessageBox(pchar('是否删除当前被选中的部门信息？' + #13 + '编号：' + ID + #13 + '名称：' + PName),
      '删除数据', MB_ICONQUESTION + MB_YESNO, ) = idno then exit; ;
   //动态创建Query对象，实现删除记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      close;
      sql.Text := 'delete from Tdep where id=''' + ID + ''''; //删除部门信息
      execsql;
      close;
      free; //释放内存
   end;
   query := nil
end;

//********************************************//
//            Tachi类方法定义                 //
//********************************************//

procedure Tachi.setfields(query: tquery); //为表字段赋值
begin
   with query do
   begin
      fieldbyname('pid').asstring := Pid; //人员编号
      fieldbyname('Tlx').asstring := Lx; //类型
      fieldbyname('pdate').asstring := pdate; //日期
      fieldbyname('Ptitle').asstring := Title; //名称
      fieldbyname('Pmemo').asstring := Memo; //说明
      post; //保存
   end;
end;

procedure Tachi.insert; //新增奖惩记录
var
   query: tquery;
begin
   //动态创建Query对象，实现新增记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      //设置数据访问组件为可写
      autorefresh := true;
      requestlive := true;
      close;
      sql.Text := 'select * from tachi where 1=2';
      open;
      insert; //新增空记录
   end;
   setfields(query);
   query.free; //释放内存
   query := nil;
end;

procedure Tachi.update; //修改奖惩记录
var
   query: tquery;
begin
   //动态创建Query对象，实现修改记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      //设置数据访问组件为可写
      autorefresh := true;
      requestlive := true;
      close;
      sql.Text := 'select * from tachi where id=''' + ID + '''';
      open;
      edit; //编辑记录
   end;
   setfields(query);
   query.free; //释放内存
   query := nil
end;

procedure Tachi.delete; //删除奖惩记录
var
   query: tquery;
begin
   if application.MessageBox(pchar('是否删除当前被选中的奖惩信息？' + #13 + '编号：' + ID + #13 + '名称：' + Title),
      '删除数据', MB_ICONQUESTION + MB_YESNO, ) = idno then exit; ;
   //动态创建Query对象，实现删除记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      close;
      sql.Text := 'delete from tachi where id=''' + ID + ''''; //删除奖惩信息
      execsql;
      close;
      free; //释放内存
   end;
   query := nil
end;

//********************************************//
//            Tkq类方法定义                   //
//********************************************//

procedure Tkq.setfields(query: tquery); //为表字段赋值
begin
   with query do
   begin
      fieldbyname('pid').asstring := Pid; //人员编号
      fieldbyname('Plx').asstring := Lx; //类型
      fieldbyname('pdate').asstring := pdate; //日期
      fieldbyname('PFtime').asstring := Ftime; //开始时间
      fieldbyname('PStime').asstring := Etime; //截止时间
      fieldbyname('Pmemo').asstring := Memo; //说明
      post; //保存
   end;
end;

procedure Tkq.insert; //新增考勤记录
var
   query: tquery;
begin
   //动态创建Query对象，实现新增记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      //设置数据访问组件为可写
      autorefresh := true;
      requestlive := true;
      close;
      sql.Text := 'select * from tkq where 1=2';
      open;
      insert; //新增空记录
   end;
   setfields(query);
   query.free; //释放内存
   query := nil;
end;

procedure Tkq.update; //修改考勤记录
var
   query: tquery;
begin
   //动态创建Query对象，实现修改记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      //设置数据访问组件为可写
      autorefresh := true;
      requestlive := true;
      close;
      sql.Text := 'select * from tkq where id=''' + ID + '''';
      open;
      edit; //编辑记录
   end;
   setfields(query);
   query.free; //释放内存
   query := nil
end;

procedure Tkq.delete; //删除考勤记录
var
   query: tquery;
begin
   if application.MessageBox(pchar('是否删除当前被选中的考勤信息？' + #13 + '编号：' + ID + #13 + '类型：' + Lx),
      '删除数据', MB_ICONQUESTION + MB_YESNO, ) = idno then exit; ;
   //动态创建Query对象，实现删除记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      close;
      sql.Text := 'delete from tkq where id=''' + ID + ''''; //删除考勤信息
      execsql;
      close;
      free; //释放内存
   end;
   query := nil
end;

//********************************************//
//            Tchange类方法定义               //
//********************************************//

procedure Tchang.setfields(query: tquery); //为表字段赋值
begin
   with query do
   begin
      fieldbyname('pid').asstring := Pid; //人员编号
      fieldbyname('Plx').asstring := Lx; //类型
      fieldbyname('pdate').asstring := pdate; //日期
      fieldbyname('PDep').asstring := Dep; //原始部门
      fieldbyname('Pdepnow').asstring := Ndep; //当前部门
      fieldbyname('PTitle').asstring := Title; //原始职务
      fieldbyname('Ptitlenow').asstring := Ntitle; //当前职务
      fieldbyname('Pmemo').asstring := Memo; //说明
      post; //保存
   end;
end;

procedure Tchang.insert; //新增简历记录
var
   query: tquery;
begin
   //动态创建Query对象，实现新增记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      //设置数据访问组件为可写
      autorefresh := true;
      requestlive := true;
      close;
      sql.Text := 'select * from Tchange where 1=2';
      open;
      insert; //新增空记录
   end;
   setfields(query);
   query.free; //释放内存
   query := nil;
end;

procedure Tchang.update; //修改简历记录
var
   query: tquery;
begin
   //动态创建Query对象，实现修改记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      //设置数据访问组件为可写
      autorefresh := true;
      requestlive := true;
      close;
      sql.Text := 'select * from tchange where id=''' + ID + '''';
      open;
      edit; //编辑记录
   end;
   setfields(query);
   query.free; //释放内存
   query := nil
end;

procedure Tchang.delete; //删除简历记录
var
   query: tquery;
begin
   if application.MessageBox(pchar('是否删除当前被选中的简历信息？' + #13 + '编号：' + ID + #13 + '类型：' + Lx),
      '删除数据', MB_ICONQUESTION + MB_YESNO, ) = idno then exit; ;
   //动态创建Query对象，实现删除记录
   query := tquery.Create(nil);
   query.DatabaseName := dm.db.DatabaseName;
   with query do
   begin
      close;
      sql.Text := 'delete from tchange where id=''' + ID + ''''; //删除简历信息
      execsql;
      close;
      free; //释放内存
   end;
   query := nil
end;
end.