图片的效果怎么实现？？？？？？？？？？？

[ni1988]

列不是固定的，是根据每月的天数决定

[starluck]

看不到圖，你可以研究下行轉列的SQL，不是很難的東西。這只是我的猜測。

[Corn1]

用动态交叉表，循环一下生成列名

[lovelymelon]

用StringGrid可以实现个差不多吧
var
dt:TDateTime;
i,j,m:Integer;
year,mon,day:Word;
ls:TListColumn;
item1,item2:TListItem;
begin
dt:=Now;
DecodeDate(dt,year,mon,day);
i:=DaysInAMonth(year,mon);
self.StringGrid1.ColCount:=i+1;
self.StringGrid1.DefaultColWidth:=30;
self.StringGrid1.ColWidths[0]:=60;
for j:=1 to i do
begin
dt:=EncodeDate(year,mon,j);
m:=DayOfTheWeek(dt);
if m=7 then
self.StringGrid1.Cells[j,0]:='日'
else
begin
if m=6 then
self.StringGrid1.Cells[j,0]:='六'
else
self.StringGrid1.Cells[j,0]:=IntToStr(j);
end;
end;
self.StringGrid1.Cells[0,1]:='正常班';
Self.StringGrid1.Cells[0,2]:='加班';

[lovelymelon]

加上下面的代码，可以很好的实现上述功能吧

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.vg_row:=1;
  self.vg_col:=1;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  self.vg_row:=ARow;
  self.vg_col:=ACol;
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
  if self.StringGrid1.Cells[self.vg_col,self.vg_row]='' then
    self.StringGrid1.Cells[self.vg_col,self.vg_row]:='√'
  else
    self.StringGrid1.Cells[self.vg_col,self.vg_row]:='';
end;

[ni1988]

var
dt:TDateTime;
i,j,m:Integer;
year,mon,day:Word;
ls:TListColumn;
item1,item2:TListItem;
begin
dt:=Now;
DecodeDate(dt,year,mon,day);
i:=DaysInAMonth(year,mon);
self.StringGrid1.ColCount:=i+1;
self.StringGrid1.DefaultColWidth:=30;
self.StringGrid1.ColWidths[0]:=60;
for j:=1 to i do
begin
dt:=EncodeDate(year,mon,j);
m:=DayOfTheWeek(dt);
if m=7 then
self.StringGrid1.Cells[j,0]:='日'
else
begin
if m=6 then
self.StringGrid1.Cells[j,0]:='六'
else
self.StringGrid1.Cells[j,0]:=IntToStr(j);
end;
end;
self.StringGrid1.Cells[0,1]:='正常班';
Self.StringGrid1.Cells[0,2]:='加班';
这个代码放哪呢？

[ni1988]

self.vg_row:=1;
self.vg_col:=1;
为什么报错呢？

[lovelymelon]

需要设定全局变量
private
{ Private declarations }
procedure SetComCtlStyle(Ctl: TWinControl; Value: Integer; UseStyle: Boolean);
public
{ Public declarations }
vg_row,vg_col:Integer;
end;

var
Form1: TForm1;

implementation

[lovelymelon]

[Quote=引用 4 楼 lovelymelon 的回复:]
加上下面的代码，可以很好的实现上述功能吧

Delphi(Pascal) code
procedure TForm1.FormCreate(Sender: TObject);
begin
self.vg_row:=1;
self.vg_col:=1;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
self.vg_row:=ARow;
self.vg_col:=ACol;
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
if…
[/Quote]
这要看你的需要。

[lovelymelon]

[Quote=引用 5 楼 ni1988 的回复:]
var
dt:TDateTime;
i,j,m:Integer;
year,mon,day:Word;
ls:TListColumn;
item1,item2:TListItem;
begin
dt:=Now;
DecodeDate(dt,year,mon,day);
i:=DaysInAMonth(year,mon);
self.StringGrid1.ColCount:=i+1;
self.StringGrid1.DefaultColWidth:=30;
self.StringGrid1.ColWidths[0]:=60;
for j:=1 to i do
begin
dt:=EncodeDate(year,mon,j);
m:=DayOfTheWee…
[/Quote]
这要看你的需要。

[ni1988]

谢谢，很好用