var str_sjklx_path:string;
begin
  try
    with form_data.adoty do
    begin
      close;
      sql.clear;
      sql.add('select * from card_ydxm');
      open;
    end;
    application.messagebox(pchar('ݿѾɹظ'),'ʾ',mb_ok+mb_iconinformation);
  except
    if form_main.edit_yncx.text='-1' then
      str_sjklx_path:=extractfilepath(application.exename)+'\data\card_ydxm_A.ini' //ʹA
    else    //='1'
      str_sjklx_path:=extractfilepath(application.exename)+'\data\card_ydxm_S.ini'; //ʹS
    With form_data.adoty1 do
    begin
      Close;
      SQL.Clear;
      SQL.LoadFromFile(str_sjklx_path);
      execsql;
    end;
    application.messagebox(pchar('ԱԤĿݿɹ'),'ʾ',mb_ok+mb_iconinformation);
  end;
end;