原码请高手看看!

Question

procedure TForm5.DBLookupComboBox7Click(Sender: TObject);
begin
   DataSource3.DataSet:= mySQLQuery3;
   DBLookupComboBox1.ListSource := DataSource3;
   if   DBLookupComboBox7.KeyValue <> ''  then
   with mySQLQuery3 do
   begin
      Close;
      SQL.Clear;
      mySQLQuery3.SQL.Add('select  name from employee where   dgroup=:dgroup   group  by dgroup,name ');
      ParamByName('dgroup').Value  :=  DBLookupComboBox7.KeyValue;
      Prepare;
      mySQLQuery3.Open;
   end;
   DBLookupComboBox1.KeyValue :=mySQLQuery3.Fieldbyname ('name').AsString;   DataSource6.DataSet:= mySQLQuery6;
   DBLookupComboBox3.ListSource := DataSource6;
   if   DBLookupComboBox7.KeyValue <> ''  then
   with mySQLQuery6 do
   begin
      Close;
      SQL.Clear;
      mySQLQuery6.SQL.Add('select  distinct work_serial from serial_detail where   dgroup=:dgroup   group  by dgroup,work_serial ');
      ParamByName('dgroup').Value  :=  DBLookupComboBox7.KeyValue;
      Prepare;
      mySQLQuery6.Open;
   end;
   DBLookupComboBox3.KeyValue :=mySQLQuery6.Fieldbyname ('work_serial').AsString;
end;错误:
 access violation at address 00403EC4 in module'prod_payproll_project1.exe'.read of address FFFFFFFF. 急,在线等!

Answer 1

似乎有什么忘记Create了吧
哪一行出的错误

Answer 2

你需要 将 可能出现异常的代码块
用 try except 包含起来比如说 
mySQLQuery3.Open;
   end;
DBLookupComboBox1.KeyValue :=mySQLQuery3.Fieldbyname ('name').AsString;如果 Open出错 那么你mySQLQuery3.Fieldbyname ('name').AsString; 这句可能就会有访问错误地址 的可能

Answer 3

你用了DataModule了吗
如果用了，他的创建顺序必须在调用他的窗体之前

Answer 4

顶,
总是出现cup调试,不知道怎么做,烦!

Answer 5

mySQLQuery3.SQL.Add('select dgroup, name from employee where   dgroup=:dgroup   group  by dgroup,name ');
  mySQLQuery6.SQL.Add('select  distinct dgroup, work_serial from serial_detail where   dgroup=:dgroup   group  by dgroup,work_serial ');

Answer 6

在 DataSource3.DataSet:= mySQLQuery3;处按F5
在运行，运行后 双击BLookupComboBox7，再按F8
一步步按，看按到哪里出错
如果你还没有点BLookupComboBox7就出错，那就不是这里的问题
如果按到其中一行出错，仔细分析这行控件的属性设置是否正确

Answer 7

if (DBLookupComboBox7.KeyValue <> '') and (DBLookupComboBox7.KeyValue <> Null) then?