ukq.pas

编写该文档是为了分析企业人事管理系统的流程

unit Ukq;
 
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DBCtrls;

type
  TFkq = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label12: TLabel;
    eid: TEdit;
    cblx: TComboBox;
    dkq: TDateTimePicker;
    mnote: TMemo;
    bsave: TButton;
    bclose: TButton;
    tkq1: TDateTimePicker;
    tkq2: TDateTimePicker;
    dblname: TDBLookupComboBox;
    procedure bcloseClick(Sender: TObject);
    procedure bsaveClick(Sender: TObject);
    procedure showdetail(id: string; modify: boolean) ;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fkq: TFkq;

implementation

uses Udm, ufunc;

{$R *.dfm}
procedure TFkq.showdetail(id: string; modify: boolean);
begin

   if not (id = 'new') then //不是新增考勤记录，显示当前选中的考勤记录
   begin
      eid.Enabled := false; //考勤编号不可改
      with dm.qkq do
      begin
         eid.Text := fieldbyname('id').AsString; //编号
         dblname.KeyValue := fieldbyname('pid').AsString; //姓名
         cblx.ItemIndex := cblx.Items.IndexOf(fieldbyname('Plx').AsString); //类别
         dkq.Date := fieldbyname('pdate').AsDateTime; //日期
         tkq1.Time  := fieldbyname('pftime').AsDateTime; //开始时间
         tkq2.time := fieldbyname('pstime').AsDateTime; //截止时间
         mnote.Lines.Text := fieldbyname('pmemo').AsString; //备注
      end;
   end
   else //新增数据时初始化部分项目值
   begin
      cblx.ItemIndex := 0;
      bsave.Hint := 'new';
   end;
   bsave.Visible := modify; //根据modify值设置保存按钮显示与否
end;

procedure TFkq.bcloseClick(Sender: TObject);
begin
close
end;

procedure TFkq.bsaveClick(Sender: TObject);
var
   itemkq: tkq;
begin
  itemkq := tkq.Create; //创建tachi对象的实例
   itemkq.id := eid.Text; //当前编辑的奖惩编号
   itemkq.pid := dblname.KeyValue; //当前编辑的人员编号
   itemkq.lx := cblx.Text; //当前编辑的类型
   itemkq.ftime := formatdatetime('hh:mm:ss', tkq1.Time ); //当前编辑的开始时间
   itemkq.Etime := formatdatetime('hh:mm:ss', tkq2.Time ); //当前编辑的开始时间
   itemkq.pdate := formatdatetime('yyyy-mm-dd', dkq.Date); //当前编辑的日期
   itemkq.memo := mnote.Lines.Text; //当前编辑的备注
   if bsave.Hint = 'new' then //根据标志判定为新增数据
      //调用对象的insert方法实现数据保存
      itemkq.insert //释放对象、内存
   else
      itemkq.update; //调用对象的update方法实现数据保存
   itemkq.Free; //释放对象、内存
   itemkq := nil;
   //刷新数据库
   dm.qkq.close;
   dm.qkq.Open;
   close
end;

end.