unit14.pas

人力资源管理系统的源代码和毕业论文 人力资源管理系统是一个典型的信息管理系统(MIS)

unit Unit14;

interface

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

type
  TForm14 = class(TForm)
    GroupBox2: TGroupBox;
    Label11: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label18: TLabel;
    ADOTable1: TADOTable;
    Memo1: TMemo;
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure setID(vid:String);
  end;

var
  Form14: TForm14;
  ID_:String;

implementation

{$R *.dfm}
procedure TForm14.setID(vid:String);
begin
ID_:=vid;
adotable1.Locate('ID',ID_,[]);
if not adotable1.Eof then
begin
datetimepicker1.Date:=strToDate(adotable1.FieldByName('开始日期').AsString);
datetimepicker2.Date:=strtoDate(adotable1.FieldByName('结束日期').AsString);
memo1.Text:=adotable1.FieldByName('说明').AsString;

end;
end;

procedure TForm14.Button1Click(Sender: TObject);
begin
adotable1.Edit;
adotable1.FieldByName('开始日期').AsString:=DatetoStr(datetimepicker1.Date);
adotable1.FieldByName('结束日期').AsString:=DatetoStr(datetimepicker2.Date);
adotable1.FieldByName('说明').AsString:=memo1.Text;
adotable1.FieldByName('pID').AsString:=ID_;
adotable1.Post;
memo1.Text:='';
visible:=false;

end;

end.