LongTech 3000 人力资源管理系统 排班源码

Question

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

Answer 1

两个ListView控件 中间有4个按钮：ListView1 >> ListView2
ListView1 >  ListView2
ListView1 << ListView2
ListView1 <  ListView2这个实现怎么写，谢谢。

Answer 2

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;不要钱的

Answer 3

非常感谢！我这个设定的是： ListView1.ViewStyle := vsReport　请问两列怎么写？

Answer 4

demo写了一个给你，其它的自己去摸索，老靠别人不如自己思考