frmaddobj.~pas

毕业论文源码 毕业论文源码 毕业论文源码

unit frmAddObj;

interface

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

type
  TAddObjForm = class(TForm)
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    btnOK: TButton;
    btnClose: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure btnCloseClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddObjForm: TAddObjForm;

implementation

uses frmRegRoom;

{$R *.dfm}

procedure TAddObjForm.btnCloseClick(Sender: TObject);
begin
    close;
end;

procedure TAddObjForm.btnOKClick(Sender: TObject);
begin
    RegUserRoom.Label10.Caption := edit1.text;
    RegUserRoom.Label11.Caption := datetostr(DateTimePicker1.datetime);
    RegUserRoom.ValueListEditor1.InsertRow(edit1.Text,datetostr(DateTimePicker1.datetime),true);
    close;
end;

end.