我正在做一个通用的学生综合测评系统，请帮忙啊。(50分)

我正在做一个通用的学生综合测评系统，但我希望在选择学科的时候能够让操作者通过点选DBCheckBox
控件来选择，但是窗体启动的时候，DBCheckBox总是未被选择，而且总也是与预先设想的是相反的效果，
请看源码
procedure TForm1.DBCheckBox1click(Sender: TObject);
begin
if form1.Table1.Fields[0].Visible=true then
form1.Table1.Fields[0].Visible:=false
else
if form1.Table1.Fields[0].Visible=false then
form1.Table1.Fields[0].Visible:=true;
if form1.DBGrid1.Columns[0].Visible=true then
form1.DBGrid1.Columns[0].Visible:=false
else
if form1.DBGrid1.Columns[0].Visible=false then
form1.DBGrid1.columns[0].Visible:=true;
end;
我用的是(D6+PARADOX)

dbgrid1.Columns[0].Visible = checkbox1.cheked;

我也正想做个三层的学生管理系统。用在我们的校园网上。

接受答案了.