uchang.pas

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

unit Uchang;

interface

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

type
   TFchang = class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Label4: TLabel;
      Label6: TLabel;
      Label8: TLabel;
      Label9: TLabel;
      Label10: TLabel;
      Label12: TLabel;
      eid: TEdit;
      cblx: TComboBox;
      eoldtitle: TEdit;
      dchang: TDateTimePicker;
      enewtitle: TEdit;
      mnote: TMemo;
      bsave: TButton;
      bclose: TButton;
      dblname: TDBLookupComboBox;
    eolddep: TComboBox;
    enewdep: TComboBox;
      procedure bcloseClick(Sender: TObject);
      procedure bsaveClick(Sender: TObject);
      procedure showdetail(id: string; modify: boolean);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Fchang: TFchang;

implementation

uses Udm, ufunc;

{$R *.dfm}
procedure TFchang.showdetail(id: string; modify: boolean);
begin
   eolddep.Clear;
   enewdep.Clear;
   //将全部部门名称添加到部门下拉列表中
   with dm.Qdep do
   begin
      close;
      open;
      first;
      while not eof do
      begin
         eolddep.Items.Add(fieldbyname('dname').AsString); //添加列表项
         enewdep.Items.Add(fieldbyname('dname').AsString); //添加列表项
         next;
      end;
   end;
   if not (id = 'new') then //不是新增简历记录，显示当前选中的简历记录
   begin
      eid.Enabled := false; //人员编号不可改
      with dm.qchang do
      begin                                              
         eid.Text := fieldbyname('id').AsString; //编号
        dblname.KeyValue := fieldbyname('PID').asstring;//姓名
         cblx.ItemIndex := cblx.Items.IndexOf(fieldbyname('Plx').AsString); //类别
         dchang.Date := fieldbyname('pdate').AsDateTime; //日期
         eoldtitle.Text := fieldbyname('Ptitle').AsString; //原始职务
         enewtitle.Text := fieldbyname('Ptitlenow').AsString; //新职务
         eolddep.ItemIndex := eolddep.Items.IndexOf(fieldbyname('Pdep').AsString); //原始部门
         enewdep.ItemIndex := enewdep.Items.IndexOf(fieldbyname('Pdepnow').AsString); //新部门
         mnote.Lines.Text := fieldbyname('pmemo').AsString; //备注
      end;
   end
   else //新增数据时初始化部分项目值
   begin
      cblx.ItemIndex := 0;
      enewdep.ItemIndex := 0;
      bsave.Hint := 'new';
   end;
   bsave.Visible := modify; //根据modify值设置保存按钮显示与否
end;

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

procedure TFchang.bsaveClick(Sender: TObject);
var
   itemchang: tchang;
begin
   itemchang := tchang.Create; //创建tchang对象的实例
   itemchang.id := eid.Text; //当前编辑的奖惩编号
   itemchang.pid := dblname.KeyValue; //当前编辑的人员编号
   itemchang.lx := cblx.Text; //当前编辑的类型
   itemchang.dep := eolddep.Text; //当前编辑的原始部门
   itemchang.Ndep := enewdep.Text; //当前编辑的新部门
   itemchang.title := eoldtitle.Text; //当前编辑的原始职务
   itemchang.Ntitle := enewtitle.Text; //当前编辑的新职务
   itemchang.pdate := formatdatetime('yyyy-mm-dd', dchang.Date); //当前编辑的日期
   itemchang.memo := mnote.Lines.Text; //当前编辑的备注      }
   if bsave.Hint = 'new' then //根据标志判定为新增数据
      //调用对象的insert方法实现数据保存
      itemchang.insert //释放对象、内存
   else
      itemchang.update; //调用对象的update方法实现数据保存
   itemchang.Free; //释放对象、内存
   itemchang := nil;
   //刷新数据库
   dm.qchang.close;
   dm.qchang.Open;
   close
end;

end.