LongTech 3000 人力资源管理系统 排班源码,该怎么处理

LongTech 3000 人力资源管理系统 排班源码
请问谁有LongTech 3000 人力资源管理系统的排班源码， 就是有一个日历，单击那一天就可以排班，下面两个listview ，可以左右选择移动员工。

谢谢！ 
[解决办法]

procedure TForm1.btnMoveRightAllClick(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    ListView2.AddItem(ListView1.Items[i].Caption,nil);
  end;
  ListView1.Items.Clear;
end;

procedure TForm1.btnMoveLeftAllClick(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to ListView2.Items.Count - 1 do
  begin
    ListView1.AddItem(ListView2.Items[i].Caption,nil);
  end;
  ListView2.Items.Clear;
end;

procedure TForm1.btnMoveRightClick(Sender: TObject);
begin
  if ListView1.Selected <> nil then
  begin
    ListView2.AddItem(ListView1.Selected.Caption,nil);
    ListView1.Selected.Delete;
  end;
end;

procedure TForm1.btnMoveLeftClick(Sender: TObject);
begin
  if ListView2.Selected <> nil then
  begin
    ListView1.AddItem(ListView2.Selected.Caption,nil);
    ListView2.Selected.Delete;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListView1.ViewStyle := vsList;
  ListView2.ViewStyle := vsList;
end;