展开全部
PROCEDURE Tfrm_Login.FormShow(Sender: TObject);
BEGIN
WITH qry1 DO
BEGIN
Close;
SQL.Clear;
SQL.Add('select subname from sys_xq');
Open;
cbb1.Items.Clear;
WHILE NOT Eof DO
BEGIN
cbb1.Items.Add(Fields[0].AsString);
Next;
END;
END;
END;
BEGIN
WITH qry1 DO
BEGIN
Close;
SQL.Clear;
SQL.Add('select subname from sys_xq');
Open;
cbb1.Items.Clear;
WHILE NOT Eof DO
BEGIN
cbb1.Items.Add(Fields[0].AsString);
Next;
END;
END;
END;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询