procedure Tmain.Timer3Timer(Sender: TObject);
begin
fall;
end;
、、、、、、、、
procedure Tmain.FormCreate(Sender: TObject);
begin
xa:=1;
main.ListView1.Columns.Add.Caption:=main.adotable2.Fields[1].FieldName; //取出标题
main.ListView1.Columns.Add.Caption:=main.adotable2.Fields[3].FieldName; //取出标题
listview1.Column[0].Width:=200;
listview1.Column[1].width:=100;
fall;
end;