unit19.pas

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

unit Unit19;

interface

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

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

var
  Form19: TForm19;
  ID_:String;

implementation

{$R *.dfm}
procedure TForm19.setID(vid:String);
begin
ID_:=vid;
end;

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

memo1.Lines.Text:='';

end;

end.