首先我没有用AdoTable,全是AdoQuery。所有的用户都可以登陆上主窗口。但是一些用户打开某些窗口的时候只能显示其中的一些内容,一些用户根本就不能显示该窗口(在执行Form Show语句的时候就没有相应了!),一些用户又完全没有问题。这是怎么回事。我百思不得其解。请大哥们帮忙看看。现在是我某断窗口的Form Show代码:
//打开adoqHB
frmDM.AdoqHB.Close;
frmDM.AdoqHB.SQL.Clear;
strHB := 'select * from Flight';
frmDM.AdoqHB.SQL.Add(strHB);
frmDM.AdoqHB.Open;
with frmDM.AdoqHB do
begin
First;
while not eof do
begin
edt_hbcw.Items.Append(trim(frmDM.AdoqHB.FieldValues['flightclass']));
next;
end;
end;
//打开adoqAir
frmDM.adoqAir.Close;
frmDM.adoqAir.SQL.Clear;
strAir := 'select * from Air order by Company';
frmDM.adoqAir.SQL.Add(strAir);
frmDM.adoqAir.Open;
//打开adoqTicinf
frmDM.adoqTicinf.Close;
frmDM.adoqTicinf.SQL.Clear;
strTicInf := 'select * from ticinf';
frmDM.adoqTicinf.SQL.Add(strTicInf);
frmDM.adoqTicinf.Open;
//打开adoqCity
frmDM.adoqCity.Close;
frmDM.adoqCity.SQL.Clear;
strCity := 'select * from City';
frmDM.adoqCity.SQL.Add(strCity);
frmDM.adoqCity.Open;
//打开adoqPolicyIn
frmDM.adoqPolicyIn.Close;
frmDM.adoqPolicyIn.SQL.Clear;
strPolicyIn := 'select * from PolicyIn';
frmDM.adoqPolicyIn.SQL.Add(strPolicyIn);
frmDM.adoqPolicyIn.Open;
//打开adoqClass
frmDM.adoqClass.Close;
frmDM.adoqClass.SQL.Clear;
strClass := 'select * from Class ';
frmDM.adoqClass.SQL.Add(strClass);
frmDM.adoqClass.Open;
//打开adoqHB
frmDM.AdoqHB.Close;
frmDM.AdoqHB.SQL.Clear;
strHB := 'select * from Flight';
frmDM.AdoqHB.SQL.Add(strHB);
frmDM.AdoqHB.Open;
with frmDM.AdoqHB do
begin
First;
while not eof do
begin
edt_hbcw.Items.Append(trim(frmDM.AdoqHB.FieldValues['flightclass']));
next;
end;
end;
//打开adoqAir
frmDM.adoqAir.Close;
frmDM.adoqAir.SQL.Clear;
strAir := 'select * from Air order by Company';
frmDM.adoqAir.SQL.Add(strAir);
frmDM.adoqAir.Open;
//打开adoqTicinf
frmDM.adoqTicinf.Close;
frmDM.adoqTicinf.SQL.Clear;
strTicInf := 'select * from ticinf';
frmDM.adoqTicinf.SQL.Add(strTicInf);
frmDM.adoqTicinf.Open;
//打开adoqCity
frmDM.adoqCity.Close;
frmDM.adoqCity.SQL.Clear;
strCity := 'select * from City';
frmDM.adoqCity.SQL.Add(strCity);
frmDM.adoqCity.Open;
//打开adoqPolicyIn
frmDM.adoqPolicyIn.Close;
frmDM.adoqPolicyIn.SQL.Clear;
strPolicyIn := 'select * from PolicyIn';
frmDM.adoqPolicyIn.SQL.Add(strPolicyIn);
frmDM.adoqPolicyIn.Open;
//打开adoqClass
frmDM.adoqClass.Close;
frmDM.adoqClass.SQL.Clear;
strClass := 'select * from Class ';
frmDM.adoqClass.SQL.Add(strClass);
frmDM.adoqClass.Open;
我今天通过换网卡解决的
窗体不能出现了吗
有的用户不能显示某些窗体,有的用户显示了,但是有些对数据库操作读取某表所有字段时显示不了,但是有些用户有一点问题都没有。所有的用户都能通过用户名,密码登陆到主窗口!